All Frameworks Object Hierarchy This Framework Indexes
Dim InputObjectType(0) 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 a planar curve whose plane is parallel to the XY plane InputObjectType(0)="Edge" Status=Selection.SelectElement2(InputObjectType,"Select a planar curve whose plane is parallel to the XY plane",true) if (Status = "cancel") then Exit Sub Set PlanarCurve = Selection.Item(1).Value Set HybridShapeDirection = HybridShapeFactory.AddNewDirectionByCoord(1.0,0.0,0.0) Set HybridShapePointTangent = HybridShapeFactory.AddNewPointTangent(PlanarCurve,HybridShapeDirection) HybridBody.AppendHybridShape HybridShapePointTangent Document.Part.InWorkObject = HybridShapePointTangent Document.Part.Update
Copyright © 2003, Dassault Systèmes. All rights reserved.