Edición de cotas
Edición de cotas
Trabajo con estilos 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