GetMinimumDistanceAtLineEndPts

From scripting
Jump to: navigation, search
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