Difference between revisions of "LineFromArcEndPts"
From scripting
(Created page with " Function LineFromArcEndPts(ArcCrv As Variant, ConstSet As HybridBody, DestSet As HybridBody) As HybridShapeLinePtPt If CrvCheck(ArcCrv) Then Dim BPt As HybridShapePoint...") |
(No difference)
|
Latest revision as of 07:14, 22 April 2017
Function LineFromArcEndPts(ArcCrv As Variant, ConstSet As HybridBody, DestSet As HybridBody) As HybridShapeLinePtPt If CrvCheck(ArcCrv) Then Dim BPt As HybridShapePointOnCurve Set BPt = MyHSFactory.AddNewPointOnCurveFromPercent(ArcCrv, 0, True) ConstSet.AppendHybridShape BPt BPt.Name = ArcCrv.Name & "_BPT" MyHSFactory.GSMVisibility BPt, 0 Dim EPt As HybridShapePointOnCurve Set EPt = MyHSFactory.AddNewPointOnCurveFromPercent(ArcCrv, 1, True) ConstSet.AppendHybridShape EPt EPt.Name = ArcCrv.Name & "_EPT" MyHSFactory.GSMVisibility EPt, 0 Dim LineObj As HybridShapeLinePtPt Set LineObj = MyHSFactory.AddNewLinePtPt(BPt, EPt) DestSet.AppendHybridShape LineObj LineObj.Name = ArcCrv.Name & "_FINLINE" IsUpdatable LineObj Set LineFromArcEndPts = LineObj End If End Function