All Frameworks Object Hierarchy This Framework Indexes
o Func Create2DLayout( | iStandardName) As |
Dim MyRoot As Layout2DRoot Set MyRoot = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot") if MyRoot Is Nothing then Dim MyRootFact As Layout2DFactory Set MyRootFact = CATIA.ActiveDocument.Part.GetItem("CATLayoutRootFactory") Set MyRoot = MyRootFact.Create2DLayout("ISO_3D") end if
Copyright © 2003, Dassault Systèmes. All rights reserved.