Las cotas angulares miden el ángulo formado por dos líneas o tres puntos. Se pueden utilizar, por ejemplo, para medir el ángulo que forman dos radios de un círculo. La línea de cota forma un arco.
Para crear una cota angular, utilice el método AddDimAngular. Este método requiere tres valores de entrada: el vértice del ángulo, los orígenes de las líneas de referencia y la ubicación del texto. El AngleVertex es el centro del círculo o arco, o el vértice común a las dos líneas que se están acotando. El origen de las líneas de referencia está en los puntos por los que pasan ambas líneas.
El AngleVertex puede coincidir con uno de los puntos del origen. Las líneas de referencia se añaden de forma automática cuando se necesitan.
Para obtener más información acerca de la creación de cotas angulares, véase “Creación de cotas angulares” en el Manual del usuario.
Este ejemplo crea una cota angular en espacio modelo.
Sub Ch5_CreateAngularDimension()
Dim dimObj As AcadDimAngular
Dim angVert(0 To 2) As Double
Dim FirstPoint(0 To 2) As Double
Dim SecondPoint(0 To 2) As Double
Dim TextPoint(0 To 2) As Double
' Define the dimension
angVert(0) = 0
angVert(1) = 5
angVert(2) = 0
FirstPoint(0) = 1
FirstPoint(1) = 7
FirstPoint(2) = 0
SecondPoint(0) = 1
SecondPoint(1) = 3
SecondPoint(2) = 0
TextPoint(0) = 3
TextPoint(1) = 5
TextPoint(2) = 0
' Create the angular dimension in model space
Set dimObj = ThisDrawing.ModelSpace. _
AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)
ZoomAll
End Sub