Sustitución del estilo de cota

Creación, modificación y copia de estilos de cota

Trabajo con estilos de cota

Acotación en espacio modelo y en espacio papel

 

Manual del desarrollador de ActiveX y VBA > Cotas y tolerancias > Trabajo con estilos de cota > 

Sustitución del estilo de cota

En todas las cotas es posible ignorar los parámetros de su estilo de acotación. La mayoría de los objetos de acotación disponen de las siguientes propiedades:

AltRoundDistance

Especifica el redondeo de las unidades alternativas.

AngleFormat

Establece el formato de las unidades de las cotas angulares.

Arrowhead1Block, Arrowhead2Block

Designa el bloque que se utiliza como extremo de cota personalizado de las líneas de cota.

Arrowhead1Type, Arrowhead2Type

Designa el tipo de extremo de cota de las líneas de cota.

ArrowheadSize

Especifica el tamaño de los extremos de cota de las líneas de cota, los extremos de cota de las líneas directrices y las líneas de conexión

CenterMarkSize

Especifica el tamaño de la marca central de las cotas radiales y de diámetro.

CenterType

Especifica el tipo de la marca central de las cotas radiales y de diámetro.

DecimalSeparator

Especifica el carácter utilizado como separador decimal en los valores de cota y de tolerancia decimales.

DimensionLineColor

Determina el color de la línea de cota de un objeto de cota, directriz o tolerancia.

DimensionLineWeight

Determina el grosor de las líneas de cota.

DimLine1Suppress, DimLine2Suppress

Designan la supresión de las líneas de cota.

DimLineInside

Especifica la presentación de líneas de cota solamente dentro de las líneas de referencia.

ExtensionLineColor

Designa el color de las líneas de referencia de cota.

ExtensionLineExtend

Especifica la distancia de la línea de referencia que sobrepasa a la línea de cota.

ExtensionLineOffset

Determina la distancia que se desvían las líneas de referencia con respecto a sus puntos de origen.

ExtensionLineWeight

Determina el grosor de las líneas de referencia.

ExtLine1EndPoint, ExtLine2EndPoint

Determina el punto final de las líneas de referencia.

ExtLine1StartPoint, ExtLine2StartPoint

Especifica el punto inicial de las líneas de referencia.

ExtLine1Suppress, ExtLine2Suppress

Determina la supresión de las líneas de referencia.

Ajustar

Especifica la ubicación del texto y los extremos de cota fuera o dentro de las líneas de referencia.

ForceLineInside

Determina si una línea de cota se dibuja entre las líneas de referencia, incluso cuando el texto está situado fuera de dichas líneas.

FractionFormat

Especifica el formato de los valores fraccionarios en las cotas y las tolerancias.

HorizontalTextPosition

Designa la justificación horizontal del texto de la cota.

LinearScaleFactor

Especifica un factor de escala global para la medición de cotas lineales.

PrimaryUnitsPrecision

Designa el número de posiciones decimales mostradas para las unidades principales de una cota o una tolerancia.

SuppressLeadingZeros, SuppressTrailingZeros

Especifica la supresión de los ceros a la derecha y a la izquierda en los valores de las cotas.

SuppressZeroFeet, SuppressZeroInches

Especifica la supresión de una medida de cero pies y cero pulgadas en los valores de las cotas.

TextColor

Designa el color del texto de los objetos de cota y de tolerancia.

TextGap

Especifica la distancia entre el texto de la cota y la línea de cota cuando se divide la línea para incluir el texto.

TextHeight

Determina la altura del texto de la cota o la tolerancia.

TextInside

Especifica si el texto de la cota debe dibujarse dentro de las líneas de referencia.

TextInsideAlign

Especifica la posición del texto de la cota dentro de las líneas de referencia para todos los tipos de acotaciones excepto las de coordenadas.

TextMovement

Indica cómo se dibuja el texto de la cota cuando el texto se desplaza.

TextOutsideAlign

Especifica la posición del texto de la cota fuera de las líneas de referencia para todos los tipos de acotaciones excepto las de coordenadas.

TextPosition

Determina la posición del texto de cota.

TextPrecision

Indica la precisión del texto de las cotas angulares.

TextPrefix

Designa el prefijo del valor de la cota.

TextRotation

Determina el ángulo de rotación del texto de cota.

TextSuffix

Designa el sufijo del valor de la cota.

ToleranceDisplay

Especifica si se muestran las tolerancias junto con el texto de la cota.

ToleranceHeightScale

Especifica un factor de escala para la altura del texto de los valores de tolerancia con respecto a la altura del texto de la cota.

ToleranceJustification

Designa la justificación vertical de los valores de tolerancia con respecto al texto de cota nominal.

ToleranceLowerLimit

Especifica el límite de tolerancia mínima del texto de las cotas.

TolerancePrecision

Indica la precisión de los valores de tolerancia en las cotas principales.

ToleranceSuppressLeadingZeros

Especifica la supresión de los ceros a la izquierda en los valores de tolerancia.

ToleranceSuppressTrailingZeros

Especifica la supresión de los ceros a la derecha en los valores de cota.

ToleranceUpperLimit

Especifica el límite de tolerancia máxima del texto de las cotas.

UnitsFormat

Designa el formato de las unidades de las todas las cotas excepto las angulares.

VerticalTextPosition

Designa la posición vertical del texto con respecto a la línea de cota.

Sub Ch5_AddTextSuffix()

    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

    Dim suffix As String

      
    ' Define the dimension
      
    point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
      
    point2(0) = 5: point2(1) = 5: point2(2) = 0
      
    location(0) = 5: location(1) = 7: location(2) = 0
      
      
    ' Create an aligned dimension object in model space
      
    Set dimObj = ThisDrawing.ModelSpace. _
      
                 AddDimAligned(point1, point2, location)
      
      
    ThisDrawing.Application.ZoomAll
      
    ' Allow the user to change the text suffix for the dimension
      
    suffix = InputBox("Enter a new text suffix for the dimension" _
      
                      , "Set Dimension Suffix", ":SUFFIX")
      
      
    ' Apply the change to the dimension
      
    dimObj.TextSuffix = suffix
      
    ThisDrawing.Regen acAllViewports
      
End Sub