Creación de cotas radiales

AutoCAD ActiveX

 
Creación de cotas radiales
 
 
 

Las cotas radiales miden los radios y los diámetros de arcos y círculos. Para crear una cota radial, utilice el método AddDimRadial.

Se crean tipos de cotas distintos según el tamaño del círculo del arco, la propiedad TextPosition y los valores de las variables del sistema de cotas DIMUPT, DIMTOFL, DIMFIT, DIMTIH, DIMTOH, DIMJUST y DIMTAD. (Las variables del sistema se pueden consultar o configurar con los métodosGetVariable y SetVariable

Para el texto de cotas horizontales, si el ángulo de la línea de cota radial con respecto a la horizontal tiene más de 15 grados y está fuera del círculo o arco, AutoCAD dibuja una línea de conexión, también llamada de quiebro o aterrizaje. La línea de conexión tiene la longitud de un extremo de cota y se ubica junto al texto de la cota, como muestran las siguientes ilustraciones:

Para crear cotas radiales, utilice los métodos AddDimRadial o AddDimDiametric. Estos métodos requieren tres valores de entrada: la coordenada del círculo o del centro del arco, la coordenada para el enlace de la directriz y la longitud de la directriz.

Estos métodos utilizan el parámetro LeaderLength como distancia desde el punto de cuerda hasta el punto donde la cota realiza una línea de conexión horizontal al texto de anotación (o se detiene si la línea de conexión no es necesaria).

Para obtener más información acerca de la creación de cotas lineales, véase “Creación de cotas radiales” en el Manual del usuario.

Creación de una cota radial

Este ejemplo crea una cota radial en espacio modelo.

Sub Ch5_CreateRadialDimension()
    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
      
    ' Define the dimension
    center(0) = 0
    center(1) = 0
    center(2) = 0
    chordPoint(0) = 5
    chordPoint(1) = 5
    chordPoint(2) = 0
    leaderLen = 5
      
    ' Create the radial dimension in model space
    Set dimObj = ThisDrawing.ModelSpace. _
           AddDimRadial(center, chordPoint, leaderLen)
    ZoomAll
End Sub
NotaEl parámetro LeaderLength sólo se utiliza en la creación de las cotas, y únicamente si está definido con el valor por defecto de posición del texto. Cuando la cota se cierra por primera vez, el cambio del valor de LeaderLength no afecta a la presentación de la cota, pero el nuevo parámetro queda almacenado y se muestra en las aplicaciones DXF, LISP y ADSRX.