Red de conocimiento informático - Descarga de software - Usando programación VB para llamar a CAD pero no muestra el dibujo

Usando programación VB para llamar a CAD pero no muestra el dibujo

'No soy un desarrollador profesional, simplemente creo que es divertido llamar CAD con VB. ¡Espero que te sea útil! ! ¿Privado?Sub?Command1_Click()

¿Activado?Error?Resume?Siguiente

Establecer?AcadApp?=?GetObject(,?"AutoCAD.Application")

Si?Err?Entonces

Err.Clear

Establecer?AcadApp?=?CreateObject("AutoCAD.Application")

Si?Err?Entonces

MsgBox?Err.Description

¿Salir?Sub

¿Fin?Si

¿Establecer? acadDoc?=?AcadApp.ActiveDocument

Set?MoSpace?=?acadDoc.ModelSpace

Set?PaSpace?=?acadDoc.PaperSpace

Set?AcadUtil? =?acadDoc.Utility

AcadApp.Visible?=?True

Dim?p1(2)?As?Double,?p2(2)?As?Double,?p3( 2)?Como?Doble

p1(0)?=?0:?p1(1)?=?0:?p1(2)?=?0

p2( 0)?=?4:?p2(1)?=?7:?p2(2)?=?0

Set?lineobj?=?MoSpace.AddLine(p1,?p2)

p1(0)?=?4:?p1(1)?=?7:?p1(2)?=?0

p2(0)?=?18:? p2(1)?=?13:?p2(2)?=?0

Set?lineobj?=?MoSpace.AddLine(p1,?p2)

AcadApp.ZoomExtents ?'Escala de tamaño real

End?Sub