All Frameworks Object Hierarchy This Framework Indexes
| o Property ActiveView( | ) As (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( | iReferenceView, | |
| iBCSegment, | ||
| iXorient, | ||
| iYorient, | ||
| iSectionType, | ||
| iX, | ||
| iY) As |
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( | iDetailName) As |
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( | iPlane, | |
| iViewType, | ||
| iX, | ||
| iY) As |
| o Func AddPrimary( | iX, | |
| iY) As |
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( | iReferenceView, | |
| iSide, | ||
| iX, | ||
| iY) As |
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( | iIndex) As |
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( | 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.