All Frameworks  Object Hierarchy  This Framework  Indexes

DrawingDimensions (Collection)

A collection of all the drawing dimensions currently managed by a drawing view of drawing sheet in a drawing document.

Add2: Creates a drawing dimension along a direction and adds it to the DrawingDimensions collection.
Add: Creates a drawing dimension and adds it to the DrawingDimensions collection.
Item: Returns a drawing dimension using its index or its name from the DrawingDimensions collection.
Remove: Removes a drawing dimension from the DrawingDimensions collection.

Methods

o Func Add2(		`iTypeDim`,
		`iGeomElem`,
		`iPtCoordElem`,
		`iLDCRefElem`,
		`iLDCRefAngle`) As

Creates a drawing dimension along a direction and adds it to the DrawingDimensions collection.

Parameters:

iTypeDim: Dimension type (available types : catDimDistance, catDimLength, catDimRadiusTangent and catDimDiameterTangent)
iGeomElem: Parent geometorical element(s) of dimension
iPtCoordElem: Array of pointers on the selection points of each element of iGeomElem
iLDCRefElem: Reference geometrical element for the direction of the dimension line .iLDCRefElem can be null: in this case, the view is the reference element
iLDCRefAngle: Angle between the reference element and the direction of the dimension line

Returns:

The created drawing dimension (The property CATDimLineRep of the dimension line of the created dimension is set to catDimUserDefined)

Example:

The following example creates a drawing distance dimension between two points along the direction of a line and retrieved in MyDimension in the drawing view collection of the MyView drawing view. This view belongs to the drawing view collection of the drawing sheet

 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 Add(		`iTypeDim`,
		`iGeomElem`,
		`iPtCoordElem`,
		`iLineRep`) As

Creates a drawing dimension and adds it to the DrawingDimensions collection.

Parameters:

iTypeDim: Dimension type
iGeomElem: Parent geometrical element(s) of dimension
iPtCoordElem: Array of pointers on the selection points of each element of iGeomElem
iLineRep: Basic representation mode

Returns:

The created drawing dimension

Example:

The following example creates a drawing angle dimension between two lines and a partial curvilinear length dimension on an ellipse and retrieved in MyDimension1 and MyDimension2 in the drawing view collection of the MyView drawing view. This view belongs to the drawing view collection of the drawing sheet

 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 Item( iIndex) As

Returns a drawing dimension using its index or its name from the DrawingDimensions collection.

Parameters:

o Sub Remove( iIndex)

Removes a drawing dimension from the DrawingDimensions collection.

Parameters:

iIndex: The index of the drawing dimension to remove from the collection of drawing dimensions. As a numerics, this index is the rank of the drawing dimension in the collection. The index of the first drawing dimension in the collection is 1, and the index of the last drawing dimension is Count.

Example:

The following example removes the third drawing dimension in the drawing dimension collection of the active view of the active document, supposed to be a drawing document.

 Dim MyView As DrawingView
 Set MyView  = MySheet.Views.ActiveView
 MyView.Dimensions.Remove(3)

DrawingDimensions (Collection)

Method Index

Methods