IsObjInSetWithinDist

From scripting
Jump to: navigation, search
Function IsObjInSetWithinDist(STRUCTSet As HybridBody, CompareObj As Variant, DistVal As Double) As Boolean
Dim MEMCounter As Integer
MEMCounter = 1
Dim TMeas
Set TMeas = TheSPAWorkbench.GetMeasurable(CompareObj)
While MEMCounter <= STRUCTSet.HybridShapes.Count
    Dim TDist As Double
    TDist = TMeas.GetMinimumDistance(STRUCTSet.HybridShapes.Item(MEMCounter))
    If DistVal > TDist Then
        IsObjInSetWithinDist = True
        Exit Function
    End If
    MEMCounter = MEMCounter + 1
Wend
IsObjInSetWithinDist = False
End Function