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 © 2006, Dassault Systèmes. All rights reserved.