Creación de cotas por coordenadas

AutoCAD ActiveX

 
Creación de cotas por coordenadas
 
 
 

Las cotas de coordenadas, o de referencia, miden la distancia perpendicular desde un punto de origen llamado punto de referencia hasta una característica acotada como, por ejemplo, el agujero de una pieza. La acotación por coordenadas evita los errores de escala, al mantener desfases exactos de los objetos con respecto al punto de referencia.

Las cotas de coordenadas están formadas por las coordenadas X o Y y una línea directriz. Las cotas de coordenadas de referencia X indican la distancia de un elemento desde la cota de referencia a lo largo del eje X. Las cotas de coordenadas de referencia Y miden la misma distancia a lo largo del eje Y. AutoCAD utiliza el origen del sistema de coordenadas personales (SCP) actual para determinar las coordenadas medidas. Se utiliza el valor absoluto de las coordenadas.

El texto se alinea con la línea directriz de la coordenada sin considerar la orientación de texto definida en el estilo de cota activo. Se puede aceptar el texto por defecto o escribir uno nuevo.

Para crear una cota de coordenadas, utilice el método AddDimOrdinate. Este método requiere tres valores de entrada: una coordenada que determine el punto que se desea acotar (A), una coordenada que determine el final de la línea directriz (B) y una señal booleana que determine si es una cota de coordenada de referencia X o Y. Si introduce TRUE como valor de la señal booleana, el método creará una cota de coordenada de referencia X. Si introduce FALSE, creará una cota de coordenada de referencia Y.

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

Creación de una cota de coordenadas

Este ejemplo crea una cota de coordenadas en espacio modelo.

Sub Ch5_CreatingOrdinateDimension()
    Dim dimObj As AcadDimOrdinate
    Dim definingPoint(0 To 2) As Double
    Dim leaderEndPoint(0 To 2) As Double
    Dim useXAxis As Long
      
    ' Define the dimension
    definingPoint(0) = 5
    definingPoint(1) = 5
    definingPoint(2) = 0
    leaderEndPoint(0) = 10
    leaderEndPoint(1) = 5
    leaderEndPoint(2) = 0
    useXAxis = 5
      
    ' Create an ordinate dimension in model space
    Set dimObj = ThisDrawing.ModelSpace. _
               AddDimOrdinate(definingPoint, _
               leaderEndPoint, useXAxis)
    ZoomAll
End Sub