All Frameworks Object Hierarchy This Framework Indexes
Pad.2 ! ! + V ! +---+ ! / / ! +-- Pad.1 / / ! ! / / one +------+ ! +---+ / /! <--- Pad.1 ! ! ! / / + +-- Pad.2 ! !/ / / ! +------+ / ! ! / +----------+then, for the PlanarFace number "one", the AnyObject.Parent property returns the Pad.2 automation object (see Pad ).
Dim InputObjectType(0) Set Document = CATIA.ActiveDocument Set Selection = Document.Selection 'We propose to the user that he select an edge InputObjectType(0)="TriDimFeatEdge" Status=Selection.SelectElement2(InputObjectType,"Select an edge",true) if (Status = "cancel") then Exit Sub Set EdgeFillet = ShapeFactory.AddNewEdgeFilletWithConstantRadius(Selection.Item(1).Value,1,5.0) EdgeFillet.EdgePropagation = 1 Document.Part.Update
Copyright © 2003, Dassault Systèmes. All rights reserved.