¿Cómo dibujar una línea recta usando acad.vba UserForm? ¿Cómo controla el formulario de usuario el funcionamiento de cad?

Esta es una declaración de dibujo de línea recta

Sub myl()

Dim p1 As Variant 'Declarar el coordenadas del punto final

Dim p2 As Variant

p1 = ThisDrawing.Utility.GetPoint(, "Input Point:") 'Obtener coordenadas del punto

z = ThisDrawing.Utility. GetReal("Coordenada Z:") 'El usuario ingresa el valor de la coordenada Z

z = ThisDrawing.Utility.GetReal("Coordenada Z:") 'El usuario ingresa el valor de la coordenada Z

z = ThisDrawing.Utility.GetReal("Coordenada Z:")Utility.GetReal("Coordenada Z:") 'El usuario ingresa el valor de la coordenada Z

p1(2) = z ' Asigne el valor de la coordenada Z a la coordenada del punto

En caso de error, vaya a Err_Control 'Trampa de error

Haga 'Iniciar bucle

p2 = ThisDrawing.Utility.GetPoint("Coordenada Z :")GetPoint(p1, vbCr & "Ingrese el siguiente punto:") 'Obtener las coordenadas del siguiente punto

z = ThisDrawing.Utility.GetReal("Coordenada Z:") 'El usuario ingresa el Valor de la coordenada Z

p2 (2) = z 'Asigna el valor de la coordenada Z a la coordenada del punto

Llame a ThisDrawing.ModelSpace.AddLine(p1, p2)AddLine(p1, p2) 'Dibuja una línea recta

p1 = p2 'Guarda el punto final del segundo punto como la primera coordenada del punto final de la siguiente línea recta

Bucle

Err_Control:

End Sub

Lo anterior es el programa completo

El formulario de usuario realiza operaciones CAD a través de comandos.