All Frameworks Object Hierarchy This Framework Previous Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---Collection
|
+---Layout2DViews
| o Property ActiveView( | ) As CATIALayout2DView (Read Only) |
Dim MyRoot As Layout2DRoot
Set MyRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim ViewToWorkIn As Layout2DView
Set ViewToWorkIn = MyRoot.Sheets.ActiveSheet.Layout2DViews.ActiveView
| o Func AddAuxiliary( | CATIALayout2DView | iReferenceView, |
| CATSafeArrayVariant | iBCSegment, | |
| double | iXorient, | |
| double | iYorient, | |
| CatViewType | iSectionType, | |
| double | iX, | |
| double | iY) As CATIALayout2DView |
Dim x As double
Set x = 10.
Dim y As double
Set y = 10.
Dim MySegment
ReDim MySegment(3)
MySegment(0) = 10.
MySegment(1) = 200.
MySegment(2) = 100.
MySegment(3) = 200.
Dim MyRoot As Layout2DRoot
Set MyRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MyFirstView As Layout2DView
Set MyFirstView = MyRoot.Sheets.ActiveSheet.Views.ActiveView
Dim MyView As Layout2DView
Set MyView = MyRoot.Sheets.ActiveSheet.Views.
| o Func AddDetail( | CATBSTR | iDetailName) As CATIALayout2DView |
Dim MyLayoutRoot As Layout2DRoot
Set MyLayoutRoot = CATIA.Documents.Part.GetItem("CATLayoutRoot")
Dim MyDetailSheet As Layout2DSheet
Set MyDetailSheet = .Sheets.ActiveSheet
Dim MyView As Layout2DView
Set MyView = MyDetailSheet.Views.AddDetail("Ditto")
| o Func AddFrom3DPlane( | CATSafeArrayVariant | iPlane, |
| CatViewType | iViewType, | |
| double | iX, | |
| double | iY) As CATIALayout2DView |
| o Func AddPrimary( | double | iX, |
| double | iY) As CATIALayout2DView |
Dim x as double
Set x = 10.
Dim y as double
Set y = 10.
Dim MyView As Layout2DView
Set MyView = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot").Sheets.ActiveSheet.
Views.AddPrimary(x, y).
| o Func AddRelated( | CATIALayout2DView | iReferenceView, |
| CatViewSide | iSide, | |
| double | iX, | |
| double | iY) As CATIALayout2DView |
Dim x as double
Set x = 10.
Dim y as double
Set y = 10.
Dim MyFirstView As Layout2DView
Set MyFirstView = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot").Sheets.ActiveSheet.Views.ActiveView
Dim MyView As Layout2DView
Set MyView = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot").Sheets.ActiveSheet.Views.
AddRelated(MyFirstView,catLeftSide, x, y)
| o Func Item( | CATVariant | iIndex) As CATIALayout2DView |
Dim MySheet As Layout2DSheet
Set MySheet = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot").Sheets.ActiveSheet
Dim ThisLayout2DView As Layout2DView
Set ThisLayout2DView = MySheet.Views.ActiveView.Item(2)
Dim ThatLayout2DView As Layout2DView
Set ThatLayout2DView = MySheet.Views.ActiveView.Item("MyView")
| o Sub Remove( | CATVariant | iIndex) |
Dim MySheet As Layout2DSheet
Set MySheet = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot").Sheets.ActiveSheet
MySheet.ActiveViews.Remove(3)
MySheet.ActiveViews.Remove("TopView")
Copyright © 2003, Dassault Systèmes. All rights reserved.