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.