MakeTangentLineAtPt

From scripting
Jump to: navigation, search
Sub MakeTangentLineAtPt(InputCrv As Variant, EndPt As Variant, DestSet As HybridBody)
Dim TangLine As HybridShapeLineTangency
Set TangLine = MyHSFactory.AddNewLineTangency(InputCrv, EndPt, 0, 100, True)
DestSet.AppendHybridShape TangLine
TangLine.Name = InputCrv.Name & "_TANGLINE"
IsUpdatable TangLine

Dim Tmeas
Set Tmeas = TheSPAWorkbench.GetMeasurable(InputCrv)
Dim PtCoords(8)
Tmeas.GetPointsOnCurve PtCoords
MoveLineTangencyCloserToCoord TangLine, CDbl(PtCoords(3)), CDbl(PtCoords(4)), CDbl(PtCoords(5))
IsUpdatable TangLine
ForceColorObjUgly TangLine, 30, 230, 100, 6, 1000, 1, 1000
End Sub