FindClosestObjectInGeomSet

From scripting
Jump to: navigation, search
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