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