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.