IsObjInSetWithinDist
From scripting
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