All Frameworks Object Hierarchy This Framework Indexes
Returns sub parts of dimension: Extension lines, dimension line and dimension value.
| o Property CumulateMode( | ) As (Read Only) |
oCumulateMode = MyDimension.CumulateMode
| o Property DimStatus( | ) As (Read Only) |
oIsStatus = MyDimension.DimStatus
| o Property DimType( | ) As (Read Only) |
oTypeDim = MyDimension.DimType
| o Property DualValue( | ) As |
oDualValue = MyDimension.DualValue
| o Property Forshortened( | ) As |
oForsh = MyDimension.Forshortened
| o Property HalfDimMode( | ) As |
oHalfDimMode = MyDimension.HalfDimMode
| o Property IsClipped( | ) As (Read Only) |
myDimmensionClippingStatus=MyDimension.IsClipped
| o Property NbExtLine( | ) As (Read Only) |
oNbExtline = MyDimension.NbExtLine
| o Property NbSymb( | ) As (Read Only) |
oNbSymb = MyDimension.NbSymb
| o Property Parameters( | ) As (Read Only) |
Dim DimensionParameters As Parameters
Set DimensionParameters = MyDimension.Parameters
Dim DimValueParameter As Parameter
Set DimValueParameter = DimensionParameters.Item("Measured length")
| o Property SymbolsSide( | ) As |
oSymbSide = MyDimension.SymbolsSide
| o Property TrueDimMode( | ) As (Read Only) |
oTrueDimMode = MyDimension.TrueDimMode
| o Property ValueAngle( | ) As |
oValueAng = MyDimension.ValueAngle
| o Property ValueAutoMode( | ) As |
oValueAutoMode = MyDimension.ValueAutoMode
| o Property ValueDisplay( | ) As |
oValueDisplay = MyDimension.ValueDisplay
| o Property ValueFrame( | ) As |
oValueFrame = MyDimension.ValueFrame
| o Property ValueInOut( | ) As |
oInOut = MyDimension.ValueInOut
| o Property ValueOrientation( | ) As |
oValueOrient = MyDimension.ValueOrientation
| o Property ValueReference( | ) As |
oValueRef = MyDimension.ValueReference
| o Sub GetBoundaryBox( | oValues) |
MyDimension.GetBoundaryBox(oValues)
| o Sub GetClip( | X, | |
| Y, | ||
| oKeptSide) |
if MyDimension.IsClipped then MyDimension.GetClip(X, Y, keptSide) end if
| o Func GetDimExtLine( | ) As |
Dim DimExtLine As DrawingDimExtLine Set DimExtLine = MyDimension.GetDimExtLine
| o Func GetDimLine( | ) As |
Dim DimDimLine As DrawingDimLine Set DimDimLine = MyDimension.GetDimLine
| o Sub GetTolerances( | oTolType, | |
| oTolName, | ||
| oUpTol, | ||
| oLowTol, | ||
| odUpTol, | ||
| odLowTol, | ||
| oDisplayMode) |
MyDimension.GetTolerances(oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode)
| o Func GetValue( | ) As |
Dim DimDimValue As DrawingDimValue Set DimDimValue = MyDimension.GetValue
| o Sub MoveValue( | X, | |
| Y, | ||
| SubPart, | ||
| DimAngleBehavior) |
MyDimension.MoveValue(X, Y, SubPart, DimAngleBehavior)
| o Sub RestoreValuePosition( | ) |
MyDimension.RestoreValuePosition()
| o Sub SetClip( | X, | |
| Y, | ||
| iKeptSide) |
MyDimension.SetClip(X, Y, 1)
| o Sub SetTolerances( | iTolType, | |
| itolName, | ||
| iUpTol, | ||
| iLowTol, | ||
| idUpTol, | ||
| idLowTol, | ||
| DisplayMode) |
MyDimension.SetTolerances(iTolType, itolName, iUpTol, iLowTol, idUpTol, idLowTol, DisplayMode)
| o Sub Unclip( | ) |
if MyDimension.IsClipped then MyDimension.Unclip
Copyright © 2003, Dassault Systèmes. All rights reserved.