All Frameworks Object Hierarchy This Framework Indexes
o Property Orientation( | ) As |
MySheet.Orientation = catPaperLandscape
o Property PageSetup( | ) As (Read Only) |
Dim MySheetPageSetup As DrawingPageSetup Set MySheetPageSetup = MySheet.PageSetup
o Property PaperHeight( | ) As |
Layout2DSheet1.GetPaperHeight oPaperHeight
o Property PaperName( | ) As |
MySheet.PaperName = DSFormat1
o Property PaperSize( | ) As |
MySheet.PaperSize = catPaperA4
o Property PaperWidth( | ) As |
Sheet1.GetPaperWidth oPaperWidth
o Property PrintArea( | ) As (Read Only) |
Dim MyPrintArea As PrintArea Set MyPrintArea = MySheet.PrintArea
o Property ProjectionMethod( | ) As |
MySheet.ProjectionMethod = catFirstAngle
o Property SheetScale( | ) As |
MySheet.SheetScale = 0.5
o Property Views( | ) As (Read Only) |
Dim ViewCollection As Layout2DViews Set ViewCollection = MySheet.Views.
o Property VisuIn3D( | ) As |
o Sub Activate( | ) |
MySheet.Activate
o Func IsDetail( | ) As |
IsDetail = MySheet.IsDetail
o Sub PrintOut2( | ) |
Layout2DSheet1.PrintOut2
o Sub PrintOut( | iRenderingMode) |
Layout2DSheet1.PrintOut catRenderShadingWithEdges
o Sub PrintToFile2( | fileName) |
Layout2DSheet1.PrintToFile2 "e:\temp\sheet1.prn"
o Sub PrintToFile( | fileName, | |
iRenderingMode) |
Layout2DSheet1.PrintToFile "e:\temp\sheet1.prn",catRenderShadingWithEdges
o Sub reorder_Views( | iOrderedViews) |
Set drw = CATIA.ActiveDocument.Part.GetItem("CATLayoutRoot") Set drwviewsorder = drwsheetsorder.Sheets.ActiveSheet Set drwviews = drwviewsorder.Views Set mainview = drwviews.item(1) Set backview = drwviews.item(2) Set view1 = drwviews.item(3) Set view2 = drwviews.item(4) newvieworder = Array(mainview, backview, view2, view1) drwviewsorder.reorder_Views(newvieworder)
Copyright © 2003, Dassault Systèmes. All rights reserved.