Difference between revisions of "IsObjInSetWithinDist"
From scripting
(Created page with " Function IsObjInSetWithinDist(STRUCTSet As HybridBody, CompareObj As Variant, DistVal As Double) As Boolean Dim MEMCounter As Integer MEMCounter = 1 Dim TMeas Set TMeas =...") |
(No difference)
|
Latest revision as of 07:01, 22 April 2017
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