Realización de un ejercicio preliminar

Para crear el objeto de texto “Hola a todos”

1. Abra el IDE de VBA ejecutando el siguiente comando desde la línea de comando de AutoCAD:

   Comando: VBAIDE

2. Abra la ventana de código seleccionando la opción Código del menú Ver en el IDE de VBA.
3. Cree un procedimiento nuevo en el proyecto seleccionando la opción Procedimiento en el menú Insertar en el IDE de VBA.
4. Cuando se le solicite la información del procedimiento, escriba un nombre, por ejemplo, HolaATodos. Asegúrese de que estén seleccionados el tipo Procedimiento y el ámbito Público.
5. Pulse Aceptar.
6. Escriba el código siguiente (que abre un dibujo nuevo) entre las líneas Public Sub Hola a todos() y End Sub.

   ThisDrawing.Application.Documents.Add

7. Escriba el código siguiente (que crea la cadena de texto y define el punto donde se inserta) inmediatamente después del código introducido en el paso 6.

   Dim insPoint(0 To 2) As Double 'Declare insertion point

   Dim textHeight As Double 'Declare text height

   Dim textStr As String 'Declare text string

   Dim textObj As AcadText 'Declare text object

   insPoint(0) = 2 'Set insertion point x coordinate
   insPoint(1) = 4 'Set insertion point y coordinate
   insPoint(2) = 0 'Set insertion point z coordinate
   textHeight = 1 'Set text height to 1.0
   textString = "Hello, World." 'Set the text string
   'Create the Text object
   Set textObj = ThisDrawing.ModelSpace.AddText _
                           (textStr, insPoint, textHeight)

8. Escriba el siguiente código (que guarda el dibujo) inmediatamente después del código introducido en el paso 7.

   ThisDrawing.SaveAs("Hello.dwg")

9. Ejecute el programa seleccionando la opción Ejecutar Sub/UserForm en el menú Ejecutar del IDE de VBA.

   Cuando termine la ejecución del programa, traiga la aplicación AutoCAD al primer plano. Debería ver el texto “Hola a todos” en el dibujo. El nombre del dibujo debe ser Hello.dwg.