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.