http://nickpisca.com/BLAST/index.php?title=IsObjInSetWithinDist&feed=atom&action=historyIsObjInSetWithinDist - Revision history2024-03-29T07:59:58ZRevision history for this page on the wikiMediaWiki 1.28.1http://nickpisca.com/BLAST/index.php?title=IsObjInSetWithinDist&diff=189&oldid=prevNickpisca: 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 =..."2017-04-22T07:01:57Z<p>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 =..."</p>
<p><b>New page</b></p><div> Function IsObjInSetWithinDist(STRUCTSet As HybridBody, CompareObj As Variant, DistVal As Double) As Boolean<br />
Dim MEMCounter As Integer<br />
MEMCounter = 1<br />
Dim TMeas<br />
Set TMeas = TheSPAWorkbench.GetMeasurable(CompareObj)<br />
While MEMCounter <= STRUCTSet.HybridShapes.Count<br />
Dim TDist As Double<br />
TDist = TMeas.GetMinimumDistance(STRUCTSet.HybridShapes.Item(MEMCounter))<br />
If DistVal > TDist Then<br />
IsObjInSetWithinDist = True<br />
Exit Function<br />
End If<br />
MEMCounter = MEMCounter + 1<br />
Wend<br />
IsObjInSetWithinDist = False<br />
End Function<br />
<br />
<br />
<br />
[[Category:CATIA DP VB]]</div>Nickpisca