All Frameworks Object Hierarchy This Framework Indexes
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.