Indexes Previous Next
o Property Orientation( | ) As CatPaperOrientation |
MySheet.Orientation = catPaperLandscape
o Property PageSetup( | ) As DrawingPageSetup (Read Only) |
Dim MySheetPageSetup As DrawingPageSetup Set MySheetPageSetup = MySheet.PageSetup
o Property PaperHeight( | ) As double |
Layout2DSheet1.GetPaperHeight oPaperHeight
o Property PaperName( | ) As CATBSTR |
MySheet.PaperName = DSFormat1
o Property PaperSize( | ) As CatPaperSize |
MySheet.PaperSize = catPaperA4
o Property PaperWidth( | ) As double |
Sheet1.GetPaperWidth oPaperWidth
o Property PrintArea( | ) As PrintArea (Read Only) |
Dim MyPrintArea As PrintArea Set MyPrintArea = MySheet.PrintArea
o Property ProjectionMethod( | ) As CatSheetProjectionMethod |
MySheet.ProjectionMethod = catFirstAngle
o Property SheetScale( | ) As double |
MySheet.SheetScale = 0.5
o Property Views( | ) As Layout2DViews (Read Only) |
Dim ViewCollection As Layout2DViews Set ViewCollection = MySheet.Views.
o Property VisuIn3D( | ) As CatVisuIn3DMode |
o Sub Activate( | ) |
MySheet.Activate
o Func IsDetail( | ) As boolean |
IsDetail = MySheet.IsDetail
o Sub PrintOut2( | ) |
Layout2DSheet1.PrintOut2
o Sub PrintOut( | CatRenderingMode | iRenderingMode) |
Layout2DSheet1.PrintOut catRenderShadingWithEdges
o Sub PrintToFile2( | CATBSTR | fileName) |
Layout2DSheet1.PrintToFile2 "e:\temp\sheet1.prn"
o Sub PrintToFile( | CATBSTR | fileName, |
CatRenderingMode | iRenderingMode) |
Layout2DSheet1.PrintToFile "e:\temp\sheet1.prn",catRenderShadingWithEdges
o Sub reorder_Views( | CATSafeArrayVariant | 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 © 2006, Dassault Systèmes. All rights reserved.