LineFromArcEndPts

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