Role: This object may be, for example, the edge of a cylinder. You will create an Edge object using the , , or method. Then, you pass it to the operator (such as ). The lifetime of an Edge object is limited, see . See also:
, , , , , .
- Example:
-
This example asks the end user to select a planar curve, whose plane is parallel to the XY plane.
Then, it creates a point on the tangent to the curve in the X direction:
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