¿Cómo utilizar código VBA para escribir texto en anotaciones de salida CAD?

Subexample_measure()

Este ejemplo crea una dimensión alineada en el espacio modelo

y devuelve la medida de la dimensión en este caso; ;En este caso

Para dimensiones lineales, la dimensión será su longitud

Dim dimObj As AcadDimAligned

Dim point1 (0 a 2) es Double, point2 (0 a 2) es Doble

Atenuar la posición (0 a 2) a Doble

Marcar el valor actual como una cadena

Dimensiones de definición

punto 1(0)= 5:punto 1(1)= 5:punto 1(2)= 0

punto 2(0)= 9:punto 2(1 )= 5: punto 2(2)= 0

Posición(0) = 5:posición(1) = 7:posición(2) = 0

Creado en el espacio modelo Objeto de dimensión alineado

Establecer dimObj = EsteDrawing. espacio modelo AddDimAligned(punto 1, punto2, ubicación)

Esta pintura. aplicación. ZoomAll

Leer y mostrar las mediciones actuales

MsgBox "El valor de medición actual de la nueva dimensión es:" & ampdimObj. Dimensiones

Accesorios finales