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 the first face InputObjectType(0)="Face" Status=Selection.SelectElement2(InputObjectType,"Select the first face",true) if (Status = "cancel") then Exit Sub Set FirstFace = Selection.Item(1).Value Selection.Clear 'We propose to the user that he select the second face InputObjectType(0)="Face" Status=Selection.SelectElement2(InputObjectType,"Select the second face",true) if (Status = "cancel") then Exit Sub Set SecondFace = Selection.Item(1).Value Set FaceFillet = ShapeFactory.AddNewFaceFillet(FirstFace,SecondFace,5.0) Document.Part.Update
Copyright © 2003, Dassault Systèmes. All rights reserved.