¿Cómo escribir un programa VB para generar automáticamente gráficos CAD? Método...
Private Sub Command1_Click()
'Primero haga referencia a la biblioteca de tipos acad ***Object Library, en el menú del proyecto, haga referencia y verifique cad
Dim myAcadApp Como AutoCAD.AcadApplication, activeDoc Como AutoCAD.AcadDocument, acMS Como AutoCAD.AcadModelSpace
En caso de error, reanudar a continuación
Establezca myAcadApp = GetObject(, "Autocad.Application") 'Compruebe si AutoCAD tiene Open Set myAcadApp = CreateObject("Autocad.Application") 'Abrir CAD myAcadApp.Visible = True 'Mostrar CAD
Si Err lt；gt 0 Entonces 'No abrir
Err; Borrar
Establecer activeDoc = myAcadApp.ActiveDocument
Si Err Entonces
MsgBox Err.Number amp ":" amp;
p>Salir del sub
Finalizar si
Finalizar si
En caso de error Ir a prcERR
myAcadApp.Visible = True 'Mostrar CAD
Establecer activeDoc = myAcadApp.ActiveDocument
Atenuar punto de inicio(0 a 2) como doble
Atenuar punto final(0 a 2) como doble
Dim LineObj As AcadLine'Si ocurre un error al dibujar, cambie a Dim LineObj As Object
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 30: endPoint(1) = 20: endPoint(2) = 0
Establecer LineObj = activeDoc.ModelSpace.AddLine(startPoint, endPoint) ' Dibuja una línea
prcExit:
Establecer activeDoc = Nada
Establecer myAcadApp = Nada
Salir de Sub
prcERR:
MsgBox Err.Number amp; ":" amp Err.Description, vbCritical, "Error"
Reanudar prcExit
End Sub