All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown
|
+---IDispatch
|
+---CATBaseUnknown
|
+---CATBaseDispatch
|
+---Collection
|
+---DrawingDimensions
| o Func Add( | CatDimType | iTypeDim, |
| CATSafeArrayVariant | iGeomElem, | |
| CATSafeArrayVariant | iPtCoordElem, | |
| CatDimLineRep | iLineRep) As CATIADrawingDimension |
Dim MyView As DrawingView Set MyView = MySheet.Views.ActiveView Dim Fact2D As Factory2D Set Fact2D = MyView.Factory2D Dim Line1 As Line2D Dim Line2 As Line2D Set Line1 = Fact2D.CreateLine(50, 10, 150, 10) Set Line2 = Fact2D.CreateLine(50, 10, 120, 100) Dim Ellipse1 As Ellipse2D Set Ellipse1 = Fact2D.CreateEllipse(-40, 100, 120, 180,120,90,0, 3) Dim Point1 As Point2D Dim Point2 As Point2D Set Point1 = Fact2D.CreatePoint(-10,190) Set Point2 = Fact2D.CreatePoint(-120,90) Dim iType As catDimType iType = catDimAngle Dim myElements1(1) myElements1(1) = Array(Line1,Line2) Dim selpoints(3) selpoints(3) = Array(150, 10, 120, 100) Dim MyDimension1 As DrawingDimension Set MyDimension1 = MyView.Dimensions.Add(iType, myElements1(1), selpoints(3),catDimAuto) iType = catDimLengthCurvilinear Dim myElements2(2) myElements2(2) = Array(Point1,Point2,Ellipse1) selpoints(3) = Array(0, 0, 0, 0) Dim MyDimension2 As DrawingDimension Set MyDimension2 = MyView.Dimensions.Add(iType, myElements2(1), selpoints(3),catDimOffset)
| o Func Add2( | CatDimType | iTypeDim, |
| CATSafeArrayVariant | iGeomElem, | |
| CATSafeArrayVariant | iPtCoordElem, | |
| CATVariant | iLDCRefElem, | |
| long | iLDCRefAngle) As CATIADrawingDimension |
Dim MyView As DrawingView Set MyView = MySheet.Views.ActiveView Dim Fact2D As Factory2D Set Fact2D = MyView.Factory2D Dim Point1 As Point2D Dim Point2 As Point2D Set Point1 = Fact2D.CreatePoint(40, 230) Set Point2 = Fact2D.CreatePoint(80, 210) Dim Line1 As Line2D Set Line1 = Fact2D.CreateLine(50, 10, 150, 10) Dim iType As catDimType iType = catDimDistance Dim myElements(1) myElements(1) = Array(Point1,Point2) Dim selpoints(3) selpoints(3) = Array(0, 0, 0, 0) Dim MyDimension As DrawingDimension Set MyDimension = MyView.Dimensions.Add2(iType, myElements(1), selpoints(3), Line1, 0)
| o Func Item( | CATVariant | iIndex) As CATIADrawingDimension |
Dim MyView As DrawingView
Set MyView = MySheet.Views.ActiveView
Dim ThisDrawingDimension As DrawingDimension
Set ThisDrawingDimension = MyView.Dimensions.Item(2)
Dim ThatDrawingDimension As DrawingDimension
Set ThatDrawingDimension = MyView.Dimensions.Item("MyDimension")
| o Sub Remove( | CATVariant | iIndex) |
Dim MyView As DrawingView Set MyView = MySheet.Views.ActiveView MyView.Dimensions.Remove(3)
Copyright © 2003, Dassault Systèmes. All rights reserved.