Sustitución del texto de cota

AutoCAD ActiveX

 
Sustitución del texto de cota
 
 
 

El valor de cota mostrado puede reemplazarse mediante la propiedad TextOverride. Esta propiedad permite reemplazar completamente el valor mostrado de la cota o añadirle texto.

Modificación del texto de cota

Este ejemplo añade texto al valor para que se muestren tanto la cadena como el valor de la cota.

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