Sustitución del texto de cota

From AutoCAD ActiveX

previous page next page

Edición de cotas

Trabajo con estilos de cota

Manual del desarrollador de ActiveX y VBA > Cotas y tolerancias > Edición de cotas >

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

previous page start next page