替代标注样式

创建、修改和复制标注样式

使用标注样式

模型空间和图纸空间中的标注

 

ActiveX/VBA 开发人员手册 > 标注和公差 > 使用标注样式 > 

替代标注样式

每个标注都可以替代该标注的标注样式中的设置值。以下特性可用于大多数标注对象：

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

指定是否隐藏尺寸界线。

拟合

指定文字和箭头在尺寸界线的内部或外部。

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

指定文字相对于尺寸线的垂直位置。

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

      
    ' 定义标注
      
    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
      
      
    ' 在模型空间中创建对齐标注对象
      
    Set dimObj = ThisDrawing.ModelSpace. _
      
                 AddDimAligned(point1, point2, location)
      
      
    ThisDrawing.Application.ZoomAll
      
    ' 允许用户修改标注的文字后缀
      
    suffix = InputBox("Enter a new text suffix for the dimension" _
      
                      , "Set Dimension Suffix", ":SUFFIX")
      
      
    ' 将修改应用到标注
      
    dimObj.TextSuffix = suffix
      
    ThisDrawing.Regen acAllViewports
      
End Sub