MakeTangentLineAtPt

From scripting
Revision as of 07:21, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub MakeTangentLineAtPt(InputCrv As Variant, EndPt As Variant, DestSet As HybridBody) Dim TangLine As HybridShapeLineTangency Set TangLine = MyHSFactory.AddNewLineTangency(...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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