Difference between revisions of "GetMinimumDistanceAtLineEndPts"
From scripting
(Created page with " Function GetMinimumDistanceAtLineEndPts(Line1 As Variant, Line2 As Variant) As Double IsUpdatable Line1 IsUpdatable Line2 Dim L1Meas Set L1Meas = TheSPAWorkbench.GetMeasu...") |
(No difference)
|
Latest revision as of 05:58, 22 April 2017
Function GetMinimumDistanceAtLineEndPts(Line1 As Variant, Line2 As Variant) As Double IsUpdatable Line1 IsUpdatable Line2 Dim L1Meas Set L1Meas = TheSPAWorkbench.GetMeasurable(Line1) Dim L1Coords() ReDim L1Coords(8) L1Meas.GetPointsOnCurve L1Coords Dim L2Meas Set L2Meas = TheSPAWorkbench.GetMeasurable(Line2) Dim L2Coords() ReDim L2Coords(8) L2Meas.GetPointsOnCurve L2Coords Dim Di As Double Di = find3DDistance(L1Coords(6), L1Coords(7), L1Coords(8), L2Coords(6), L2Coords(7), L2Coords(8)) GetMinimumDistanceAtLineEndPts = Di End Function