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
¿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) p>
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