All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---Collection
|
+---Layout2DSheets
| o Property ActiveSheet( | ) As CATIALayout2DSheet (Read Only) |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.ActiveSheet
| o Func Add( | CATBSTR | iLayoutSheetName) As CATIALayout2DSheet |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.Add("FirstSheet").
| o Func AddDetail( | CATBSTR | iLayoutSheetName) As CATIALayout2DSheet |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MySheet As Layout2DSheet
Set MySheet = MyLayoutRoot.Sheets.Add("FirstSheet")
| o Func Item( | CATVariant | iIndex) As CATIALayout2DSheet |
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( | CATVariant | iIndex) |
Dim ThisLayoutRoot As Layout2DRoot
Set ThisLayoutRoot = CATIA.ActiveDocument.Part.GetItem("CATlayoutRoot")
ThisLayoutRoot.Layout2DSheets.Remove("SheetToBeRemoved")
Copyright © 2003, Dassault Systèmes. All rights reserved.