Difference between revisions of "MakeTangentLineAtPt"
From scripting
(Created page with " Sub MakeTangentLineAtPt(InputCrv As Variant, EndPt As Variant, DestSet As HybridBody) Dim TangLine As HybridShapeLineTangency Set TangLine = MyHSFactory.AddNewLineTangency(...") |
(No difference)
|
Latest revision as of 07:21, 22 April 2017
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