Hej.
Jag har ett problem jag inte löser. Jag har en karta med rör och knutpunkter. När jag klickar på kartan vill jag kunna välja ut närmsta knutpunkt. Jag kan nu inte utesluta att träffa på närmsta röret istället. Är det någon som har en idé vad jag kan göra? (Knutpunkt->LayerName=LAYER_NODE)
Tack på förhand
Anders


Private Sub mnuForstaNod_Click()
Dim vnt2 As Variant
Dim sel As VDSELECTIONSET
Dim elem As VDFIGURE
Dim xy As Variant
Dim strValdLayer As String

xy = Array(Xpunkt, Ypunkt)
If Not IsEmpty(xy) Then
Debug.Print "Valt", xy(0), xy(1)
If VDraw.Utility.getOsnapPoint(xy, xy, VdOsnapNearest, vnt2) Then
Debug.Print "Hittat: ", vnt2(0), vnt2(1)
Set sel = VDraw.ActiveDocument.SelectionSetList.FindName("VDRAW_PREVIOUS_SELSET")

Set elem = sel.SelectAtPoint(vnt2)
Debug.Print elem.ToolTip
strValdLayer = elem.LayerName
strValdNod = elem.Label
sel.RemoveAll
End If
If strValdLayer = "LAYER_NODE" Then
frmOptions.Show vbModeless, Me
End If
End If
End Sub