FindClosestObjectInGeomSet
From scripting
Function FindClosestObjectInGeomSet(GeomSet As HybridBody, CurrentPt As Variant) As Variant Dim WinningDist As Double WinningDist = 1000000000 Dim CMeas 'As Measurable Set CMeas = theSPAWorkbench.GetMeasurable(CurrentPt) For xxx = 1 To GeomSet.HybridShapes.Count Dim CurLine 'As HybridShape Set CurLine = GeomSet.HybridShapes.Item(xxx) Dim TempDist As Double TempDist = CMeas.GetMinimumDistance(CurLine) If TempDist < WinningDist Then WinningDist = TempDist Set winningObj = CurLine End If Next xxx Set FindClosestObjectInGeomSet = winningObj End Function