概要 - 寸法値を優先する(VBA/ActiveX)

表示される寸法値を置き換えるには、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