All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---Collection
|
+---DrawingViews
| o Property ActiveView( | ) As CATIADrawingView (Read Only) |
Dim MyDrawingDoc As Document
Set MyDrawingDoc = CATIA.Documents.Item("CATDrawing1")
Dim ViewToWorkIn As DrawingView
Set ViewToWorkIn = MyDrawingDoc.Sheets.ActiveSheet.DrawingViews.ActiveView
| o Func Add( | CATBSTR | iDrawingViewName) As CATIADrawingView |
Dim MyDrawingDoc As Document
Set MyDrawingDoc = CATIA.Documents.Item("CATDrawing1")
Dim MySheet As DrawingSheet
Set MySheet = MyDrawingDoc.Sheets.Item("FirstSheet")
Dim MyView As DrawingView
Set MyView = MySheet.Views.Add("LeftView")
| o Func Item( | CATVariant | iIndex) As CATIADrawingView |
Dim MySheet As DrawingSheet
Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
Dim ThisDrawingView As DrawingView
Set ThisDrawingView = MySheet.Views.ActiveView.Item(2)
Dim ThatDrawingView As DrawingView
Set ThatDrawingView = MySheet.Views.ActiveView.Item("MyView")
| o Sub Remove( | CATVariant | iIndex) |
Dim MySheet As DrawingSheet
Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
MySheet.ActiveViews.Remove(3)
MySheet.ActiveViews.Remove("TopView")
Copyright © 2003, Dassault Systèmes. All rights reserved.