CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

关于覆盖维度文本（VBA/ActiveX）

2024-5-18 18:55| 发布者: admin| 查看: 373| 评论: 0|原作者: admin|来自: AutoCAD

可以使用 TextOverride 属性替换显示的维度值。使用此属性，可以完全替换维度的显示值，也可以将文本追加到该值。

修改尺寸文本

本示例将一些文本追加到值中，以便同时显示字符串和维度值。

Sub Ch5_OverrideDimensionText()
    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

    ' Define the dimension
    point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
    point2(0) = 10#: point2(1) = 3#: point2(2) = 0#
    location(0) = 7.5: location(1) = 5#: location(2) = 0#

    ' Create an aligned dimension object in model space
    Set dimObj = ThisDrawing.ModelSpace. _
 AddDimAligned(point1, point2, location)

    ' Change the text string for the dimension
    dimObj.TextOverride = "The value is <>"
    dimObj.Update
End Sub