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.