关于重写维度样式 （VBA/ActiveX）
每个维度都能够覆盖该维度的维度样式中的设置。
以下属性可用于大多数维度对象：
- AltRoundDistance
- 指定备用单位的舍入。
- 角度格式
- 指定角度尺寸的单位格式。
- 箭头 1块、箭头 2块
- 指定要用作尺寸线的自定义箭头的块。
- 箭头1类型、箭头2类型
- 指定尺寸线的箭头类型。
- 箭头大小
- 指定尺寸线箭头、引线箭头和钩线的大小。
- CenterMarkSize
- 指定径向尺寸和直径尺寸的中心标记的大小。
- 中心类型
- 指定径向尺寸和直径尺寸的中心标记类型。
- 十进制分隔符
- 指定要用作十进制尺寸和公差值中的小数分隔符的字符。
- 尺寸线颜色
- 指定尺寸、引线或公差对象的尺寸线的颜色。
- 尺寸线重
- 指定尺寸线的线宽。
- DimLine1Suppress、DimLine2Suppress
- 指定尺寸线的隐含。
- DimLine内部
- 仅指定延伸线内尺寸线的显示。
- 扩展线颜色
- 指定尺寸延伸线的颜色。
- ExtensionLineExtend
- 指定延伸线延伸到尺寸线之外的距离。
- ExtensionLineOffset
- 指定延伸线与原点的偏移距离。
- ExtensionLineWeight
- 指定延长线的线宽。
- ExtLine1EndPoint、ExtLine2EndPoint
- 指定扩展行的端点。
- ExtLine1StartPoint、ExtLine2StartPoint
- 指定延伸线的起点。
- ExtLine1Suppress、ExtLine2Suppress
- 指定延长线的隐含。
- 适合
- 指定文本和箭头在扩展线内或外的位置。
- 力线内
- 指定是否在扩展线之间绘制尺寸线，即使文本放置在扩展线之外也是如此。
- 分数格式
- 指定尺寸和公差中分数值的格式。
- HorizontalTextPosition
- 指定尺寸文本的水平对齐方式。
- 线性比例因子
- 指定线性尺寸测量的全局比例因子。
- PrimaryUnitsPrecision
- 指定为尺寸或公差的主要单位显示的小数位数。
- SuppressLeadingZeros、SuppressTrailingZeros
- 指定禁止显示维度值中的前导零和尾随零。
- SuppressZeroFeet， SuppressZeroInches
- 指定在尺寸值中隐含零英尺和零英寸测量值。
- 文本颜色
- 指定尺寸和公差对象的文本颜色。
- 文本间隙
- 指定在分割尺寸线以容纳尺寸文本时尺寸文本与尺寸线之间的距离。
- 文本高度
- 指定尺寸或公差文本的高度。
- 文本内部
- 指定是否要在扩展线内绘制尺寸文本。
- 文本Inside对齐
- 指定除纵坐标外的所有尺寸类型的延伸线内尺寸文本的位置。
- 文本运动
- 指定移动文本时如何绘制尺寸文本。
- 文本OutsideAlign
- 指定除纵坐标外的所有尺寸类型的扩展线外的尺寸文本的位置。
- 文本位置
- 指定尺寸文本位置。
- 文本精度
- 指定角度标注文本的精度。
- 文本前缀
- 指定维度值前缀。
- 文本旋转
- 指定尺寸文本的旋转角度。
- 文本后缀
- 指定维度值后缀。
- 公差显示
- 指定公差是否与尺寸文本一起显示。
- 公差高度刻度
- 指定公差值的文本高度相对于尺寸文本高度的比例因子。
- 容差理由
- 指定公差值相对于标称尺寸文本的垂直对齐方式。
- 容差下限
- 指定尺寸文本的最小容差限制。
- 公差精度
- 指定公差值在主要尺寸中的精度。
- 容差抑制前导零
- 指定隐含公差值中的前导零点。
- 容差SuppressTrailingZeros
- 指定禁止显示维度值中的尾随零。
- 容差上限
- 指定尺寸文本的最大公差限制。
- 单位格式
- 指定除角度之外的所有尺寸的单位格式。
- VerticalTextPosition
- 指定文本相对于尺寸线的垂直位置。
为对齐的尺寸输入用户定义的后缀
本示例在模型空间中创建一个对齐的维度，并使用该属性允许用户更改该维度的文本后缀。TextSuffix
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
| 
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
