All Frameworks Object Hierarchy This Framework Indexes
Dim InputObjectType(1)
Set Document = CATIA.ActiveDocument
Set Selection = Document.Selection
Set HybridBodies = Document.Part.HybridBodies
Set HybridBody = HybridBodies.Item("Geometrical Set.1")
'We propose to the user that he select an edge
InputObjectType(0)="TriDimFeatEdge"
InputObjectType(1)="BiDimFeatEdge"
Status=Selection.SelectElement2(InputObjectType,"Select an edge",true)
if (Status = "cancel") then Exit Sub
Set Curve = Selection.Item(1).Value
Set HybridShapePointOnCurve = HybridShapeFactory.AddNewPointOnCurveFromDistance(Curve,18.0,False)
HybridBody.AppendHybridShape HybridShapePointOnCurve
Document.Part.InWorkObject = HybridShapePointOnCurve
Document.Part.Update
Copyright © 2003, Dassault Systèmes. All rights reserved.