Each dimension has the capability of overriding settings in the dimension style for that dimension. The following properties are available for most dimension objects:
- AltRoundDistance
- AngleFormat
- Arrowhead1Block, Arrowhead2Block
- Arrowhead1Type, Arrowhead2Type
- ArrowheadSize
- CenterMarkSize
- CenterType
- DecimalSeparator
- DimensionLineColor
- DimensionLineWeight
- DimLine1Suppress, DimLine2Suppress
- DimLineInside
- ExtensionLineColor
- ExtensionLineExtend
- ExtensionLineOffset
- ExtensionLineWeight
- ExtLine1EndPoint, ExtLine2EndPoint
- ExtLine1StartPoint, ExtLine2StartPoint
- ExtLine1Suppress, ExtLine2Suppress
- Fit
- ForceLineInside
- FractionFormat
- HorizontalTextPosition
- LinearScaleFactor
- PrimaryUnitsPrecision
- SuppressLeadingZeros, SuppressTrailingZeros
- SuppressZeroFeet, SuppressZeroInches
- TextColor
- TextGap
- TextHeight
- TextInside
- TextInsideAlign
- TextMovement
- TextOutsideAlign
- TextPosition
- TextPrecision
- TextPrefix
- TextRotation
- TextSuffix
- ToleranceDisplay
- ToleranceHeightScale
- ToleranceJustification
- ToleranceLowerLimit
- TolerancePrecision
- ToleranceSuppressLeadingZeros
- ToleranceSuppressTrailingZeros
- ToleranceUpperLimit
- UnitsFormat
- VerticalTextPosition
Enter a user-defined suffix for an aligned dimension
This example creates an aligned dimension in model space and uses the TextSuffix property to allow the user to change the text suffix for the dimension.
Sub Ch5_AddTextSuffix()
Dim dimObj As AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
Dim suffix As String
' Define the dimension
point1(0) = 0: point1(1) = 5: point1(2) = 0
point2(0) = 5: point2(1) = 5: point2(2) = 0
location(0) = 5: location(1) = 7: location(2) = 0
' Create an aligned dimension object in model space
Set dimObj = ThisDrawing.ModelSpace. _
AddDimAligned(point1, point2, location)
ThisDrawing.Application.ZoomAll
' Allow the user to change the text suffix for the dimension
suffix = InputBox("Enter a new text suffix for the dimension" _
, "Set Dimension Suffix", ":SUFFIX")
' Apply the change to the dimension
dimObj.TextSuffix = suffix
ThisDrawing.Regen acAllViewports
End Sub