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.
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