Labelling Depth points in ArcMap

Question

Original User: azzwan I am not sure if this is the best forum to post this question but hopefully someone can point me in the right direction. I have a thinned bathymetry points file where the depths are negative in sign and drying heights are positive. I intend to create a map and label my points as depths as you would see them on a nautical chart. For example the the negative depths become positive values and the depths are rounded to 1 decimal place etc. I have a a small VB Script for doing just that and it works quite well. However, I have a problem, the drying heights appear as negative numbers once labelled. I would like to have the drying heights remain positive sign but become underlined labels. I do not know much about scripting so if anyone can help me out with a way to do this it would be greatly appreciated. To enter the label script I go to layer properties>label>test string Expression>Under Expression I tick the advanced option and then paste in the VBScript. I then click on Verify to make sure that it works and then OK. Here is an example of the points file [ATTACH=CONFIG]31500[/ATTACH] Here is an example of how the points are labelled[ATTACH=CONFIG]31501[/ATTACH] Here is the current VB Script that I am using: Function FindLabel ( [Depth] ) fltDepth = Round([Depth] * -1, 1) strChar = "." intPos = InStr(1, fltDepth, strChar) intLen1 = Len(fltDepth) intLen2 = intLen1 - intPos If intPos <> 0 Then intStart = Left(fltDepth, intPos - 1) intLast = Right(fltDepth, intLen2) 'strOutput = intStart & " " & intLast FindLabel = intStart & "_{" & intLast & "}" Else FindLabel = fltDepth End If 'FindLabel = strOutput End Function Regards, Aaron Points_Table.PNG Depth_Labels.PNG offset.jpg copy_attributes.jpg SeasonalityChart.JPG UK Renewable Energy Capacity dashboard.png

arlandeleon · Answer

Function FindLabel ( [Depth] ) If Round([Depth]) < 0 Then fltDepth = Round([Depth] * -1, 1) Else fltDepth = Round([Depth] , 1) End If strChar = "." intPos = InStr(1, fltDepth, strChar) intLen1 = Len(fltDepth) intLen2 = intLen1 - intPos If intPos <> 0 Then intStart = Left(fltDepth, intPos - 1) intLast = Right(fltDepth, intLen2) 'strOutput = intStart & " " & intLast FindLabel = intStart & "_{" & intLast & "}" Else FindLabel = fltDepth End If If fltDepth < 0 Then FindLabel = "" & FindLabel & "" End If 'FindLabel = strOutput End Function

Anonymous User · Answer

Original User: azzwan

Hi Sabeshan,

Thank you for the modified script.  I have trialled it but I did not get the results that I expected.

This first screen capture shows the points labelled with your script unmodified.   [ATTACH=CONFIG]31748[/ATTACH]

Notice that all the depths are underlined

I then modified the script by replacing the fltDepth = Round([Depth] * -1, 1) with fltDepth = Round([Depth] * 1, 1) and this is the result that I got  [ATTACH=CONFIG]31749[/ATTACH]

Notice that the drying height in the top left is labelled correctly but all of the other depths have picked up the negative sign.

Do you have any more ideas.  Thanks again for your time.

Regards,
Aaron Godwin

Depths no mod.JPG

Depths no -1.JPG

question.rar

SceneShot.jpg

SabeshanSrinivasan · Answer

Aaron, try this out:Function FindLabel ( [Depth] ) If Round([Depth]) > 0 Then fltDepth = Round([Depth], 1) Else fltDepth = Round([Depth] * -1, 1) End If strChar = "." intPos = InStr(1, fltDepth, strChar) intLen1 = Len(fltDepth) intLen2 = intLen1 - intPos If intPos <> 0 Then intStart = Left(fltDepth, intPos - 1) intLast = Right(fltDepth, intLen2) 'strOutput = intStart & " " & intLast FindLabel = intStart & "_{" & intLast & "}" Else FindLabel = fltDepth End If If fltDepth > 0 Then FindLabel = "" & FindLabel & "" End If 'FindLabel = strOutput End Function I basically added a conditional check in the beginning to only negate the value returned from [Depth] if it was less than 0. I also added logic at the end to apply an underline ("" tag) if the depth was positive. Hope this helps. One word of caution - I didn't test the code changes as I directly wrote them here. The changes are simple enough and should work but don't be surprised if you see an error due to some simple mistake I may have made! Cheers, Sabeshan