MoveCurveParCloserToCoord

From scripting
Revision as of 19:32, 24 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub MoveCurveParCloserToCoord(CurvePar As HybridShapeCurvePar, XVal As Double, YVal As Double, ZVal As Double) MyPart.UpdateObject CurvePar Dim CMeas Set CMeas = TheSPAWor...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Sub MoveCurveParCloserToCoord(CurvePar As HybridShapeCurvePar, XVal As Double, YVal As Double, ZVal As Double)
MyPart.UpdateObject CurvePar
Dim CMeas
Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar)
Dim CCoords()
ReDim CCoords(8)
CMeas.GetPointsOnCurve CCoords

Dim FirstDist As Double
FirstDist = find3DDistance(CCoords(0), CCoords(1), CCoords(2), XVal, YVal, ZVal)

CurvePar.InvertDirection = False
MyPart.UpdateObject CurvePar
Dim CMeas2
Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePar)
Dim CCoords2()
ReDim CCoords2(8)
CMeas2.GetPointsOnCurve CCoords2 

Dim SecondDist As Double
SecondDist = find3DDistance(CCoords2(0), CCoords2(1), CCoords2(2), XVal, YVal, ZVal) 

If SecondDist > FirstDist Then
    CurvePar.InvertDirection = True
    MyPart.UpdateObject CurvePar
End If

End Sub