Indexes
| o Property ActiveSheet( | ) As (Read Only) |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.ActiveSheet
| o Func AddDetail( | iLayoutSheetName) As |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.Add("FirstSheet")
| o Func Add( | iLayoutSheetName) As |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.Add("FirstSheet").
| o Func Item( | iIndex) As |
Dim ThisLayoutRoot As Layout2DRoot
Set ThisLayoutRoot = CATIA.ActiveDocument.Part.GetItem("CATlayoutRoot")
Dim ThisLayoutSheet As Layout2DSheet
Set ThisLayoutSheet = ThisLayoutRoot.Sheets.Item(3)
Dim ThatLayoutSheet As Layout2DSheet
Set ThatLayoutSheet = ThisLayoutRoot.Sheets.Item("MySheet")
| o Sub Remove( | iIndex) |
Dim ThisLayoutRoot As Layout2DRoot
Set ThisLayoutRoot = CATIA.ActiveDocument.Part.GetItem("CATlayoutRoot")
ThisLayoutRoot.Layout2DSheets.Remove("SheetToBeRemoved")
Copyright © 2006, Dassault Systèmes. All rights reserved.