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.