All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---DrawingView
The drawing view is included in a drawing sheet and contains
texts,leaders, dimensions, arrows, pictures, tables, 2D Geometry and 2D component.
Warning: This interface is not available with 2D Layout for 3D Design.
o Property Angle( | ) As double |
PI = 3.1415926535 Angle90Clockwise = -PI/2 MyView.Angle = Angle90Clockwise
o Property Arrows( | ) As CATIADrawingArrows (Read Only) |
Dim ArrowCollection As DrawingArrows Set ArrowCollection = MyView.Arrows
o Property Components( | ) As CATIADrawingComponents (Read Only) |
Dim ComponentCollection As DrawingComponents Set ComponentCollection = MyView.Components
o Property Dimensions( | ) As CATIADrawingDimensions (Read Only) |
Dim DimensionCollection As DrawingDimensions Set DimensionCollection = MyView.Dimensions
o Property Factory2D( | ) As CATIAFactory2D (Read Only) |
Set mySketch = my2DFactory.GetParent
Set my2DFactory = myView.Factory2D
o Property FrameVisualization( | ) As boolean |
MyView.FrameVisualization = True
o Property GenerativeBehavior( | ) As CATIAGenerativeViewBehavior (Read Only) |
Dim MyViewGenBehavior As DrawingViewGenerativeBehavior Set MyViewGenBehavior = MyView.GenerativeBehavior
o Property GenerativeLinks( | ) As CATIAGenerativeViewLinks (Read Only) |
Dim MyViewGenLinks As DrawingViewGenerativeLinks Set MyViewGenLinks = MyView.GenerativeLinks
o Property GeometricElements( | ) As CATIAGeometricElements (Read Only) |
Dim colGeometry As GeometricElements Set colGeometry = myView.GeometricElements
o Property LockStatus( | ) As boolean |
ViewToWorkOn.LockStatus = True
o Property Pictures( | ) As CATIADrawingPictures (Read Only) |
Dim PictureCollection As DrawingPictures Set PictureCollection = MyView.Pictures
o Property ReferenceView( | ) As CATIADrawingView |
Dim ReferenceView As DrawingView Set ReferenceView = MyView.RefView
o Property Scale( | ) As double |
MyView.Scale = 0.5
o Property Scale2( | ) As double |
MyView.Scale2 = 0.5
o Property Tables( | ) As CATIADrawingTables (Read Only) |
Dim TableCollection As DrawingTables Set TableCollection = MyView.Tables
o Property Texts( | ) As CATIADrawingTexts (Read Only) |
Dim TextCollection As DrawingTexts Set TextCollection = MyView.Texts
o Property Threads( | ) As CATIADrawingThreads (Read Only) |
Dim ThreadCollection As DrawingThreads Set ThreadCollection = MyView.Threads
o Property ViewType( | ) As CatDrawingViewType (Read Only) |
o Property Weldings( | ) As CATIADrawingWeldings (Read Only) |
Dim weldingCollection As DrawingWeldings Set weldingCollection = MyView.Weldings
o Property x( | ) As double |
X = MyView.x
o Property xAxisData( | ) As double |
X = MyView.xAxisData
o Property y( | ) As double |
NewYCoordinate = 5*25.4 MyView.y = NewYCoordinate
o Property yAxisData( | ) As double |
NewYCoordinate = 5*25.4 MyView.yAxisData = NewYCoordinate
o Sub Activate( | ) |
ViewToWorkOn.Activate()
o Sub AlignedWithReferenceView( | ) |
MyView.AlignedWithReferenceView()
o Sub GetViewName( | CATBSTR | iViewNamePrefix, |
CATBSTR | iViewNameIdent, | |
CATBSTR | iViewNameSuffix) |
Dim MyPrefix, MyIdent, MySuffix As CATBSTR MyView.GetViewName (MyPrefix, MyIdent, MySuffix)
o Sub InsertViewAngle( | long | iFirst, |
CATIADrawingText | ioText) |
index = Len(MyText.Text)+1 MyView.InsertViewScale index, MyText
o Sub InsertViewScale( | long | iFirst, |
CATIADrawingText | ioText) |
MyView.InsertViewScale 1, MyText
o Func IsGenerative( | ) As boolean |
GenView = MyView.IsGenerative()
o Sub Isolate( | ) |
MyView.Isolate
o Sub SaveEdition( | ) |
MyView.SaveEdition
o Sub SetViewName( | CATBSTR | iViewNamePrefix, |
CATBSTR | iViewNameIdent, | |
CATBSTR | iViewNameSuffix) |
MyView.SetViewName ("MyPrefix", "MyIdent", "MySuffix")
o Sub Size( | CATSafeArrayVariant | oValues) |
Dim oXY(4) As Double ViewToWorkOn.Size oXY Xmin = oXY(0) Xmax = oXY(1) Ymin = oXY(2) Ymax = oXY(3)
o Sub UnAlignedWithReferenceView( | ) |
MyView.UnAlignedWithReferenceView()
Copyright © 2003, Dassault Systèmes. All rights reserved.