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