All Frameworks Object Hierarchy This Framework Previous Next Indexes
IUnknown | +---IDispatch | +---CATBaseUnknown | +---CATBaseDispatch | +---AnyObject | +---DrawingDimension
Returns sub parts of dimension: Extension lines, dimension line and dimension value.
o Property CumulateMode( | ) As boolean (Read Only) |
oCumulateMode = MyDimension.CumulateMode
o Property DimStatus( | ) As CatDimAnalyse (Read Only) |
oIsStatus = MyDimension.DimStatus
o Property DimType( | ) As CatDimType (Read Only) |
oTypeDim = MyDimension.DimType
o Property DualValue( | ) As CatDimDualDisplay |
oDualValue = MyDimension.DualValue
o Property Forshortened( | ) As boolean |
oForsh = MyDimension.Forshortened
o Property HalfDimMode( | ) As boolean |
oHalfDimMode = MyDimension.HalfDimMode
o Property IsClipped( | ) As boolean (Read Only) |
myDimmensionClippingStatus=MyDimension.IsClipped
o Property NbExtLine( | ) As long (Read Only) |
oNbExtline = MyDimension.NbExtLine
o Property NbSymb( | ) As long (Read Only) |
oNbSymb = MyDimension.NbSymb
o Property Parameters( | ) As CATIAParameters (Read Only) |
Dim DimensionParameters As Parameters Set DimensionParameters = MyDimension.Parameters Dim DimValueParameter As Parameter Set DimValueParameter = DimensionParameters.Item("Measured length")
o Property SymbolsSide( | ) As long |
oSymbSide = MyDimension.SymbolsSide
o Property TrueDimMode( | ) As boolean (Read Only) |
oTrueDimMode = MyDimension.TrueDimMode
o Property ValueAngle( | ) As double |
oValueAng = MyDimension.ValueAngle
o Property ValueAutoMode( | ) As long |
oValueAutoMode = MyDimension.ValueAutoMode
o Property ValueDisplay( | ) As long |
oValueDisplay = MyDimension.ValueDisplay
o Property ValueFrame( | ) As CatDimFrame |
oValueFrame = MyDimension.ValueFrame
o Property ValueInOut( | ) As long |
oInOut = MyDimension.ValueInOut
o Property ValueOrientation( | ) As CatDimOrientation |
oValueOrient = MyDimension.ValueOrientation
o Property ValueReference( | ) As CatDimReference |
oValueRef = MyDimension.ValueReference
o Sub GetBoundaryBox( | CATSafeArrayVariant | oValues) |
MyDimension.GetBoundaryBox(oValues)
o Sub GetClip( | double | X, |
double | Y, | |
long | oKeptSide) |
if MyDimension.IsClipped then MyDimension.GetClip(X, Y, keptSide) end if
o Func GetDimExtLine( | ) As CATIADrawingDimExtLine |
Dim DimExtLine As DrawingDimExtLine Set DimExtLine = MyDimension.GetDimExtLine
o Func GetDimLine( | ) As CATIADrawingDimLine |
Dim DimDimLine As DrawingDimLine Set DimDimLine = MyDimension.GetDimLine
o Sub GetTolerances( | long | oTolType, |
CATBSTR | oTolName, | |
CATBSTR | oUpTol, | |
CATBSTR | oLowTol, | |
double | odUpTol, | |
double | odLowTol, | |
long | oDisplayMode) |
MyDimension.GetTolerances(oTolType, oTolName, oUpTol, oLowTol, odUpTol, odLowTol, oDisplayMode)
o Func GetValue( | ) As CATIADrawingDimValue |
Dim DimDimValue As DrawingDimValue Set DimDimValue = MyDimension.GetValue
o Sub MoveValue( | double | X, |
double | Y, | |
long | SubPart, | |
long | DimAngleBehavior) |
MyDimension.MoveValue(X, Y, SubPart, DimAngleBehavior)
o Sub RestoreValuePosition( | ) |
MyDimension.RestoreValuePosition()
o Sub SetClip( | double | X, |
double | Y, | |
long | iKeptSide) |
MyDimension.SetClip(X, Y, 1)
o Sub SetTolerances( | long | iTolType, |
CATBSTR | itolName, | |
CATBSTR | iUpTol, | |
CATBSTR | iLowTol, | |
double | idUpTol, | |
double | idLowTol, | |
long | 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.