¿Cómo utilizar VB para el desarrollo secundario de AutoCAD? ¡urgente! ¡urgente! ¡urgente!

Lo más básico es cargar la biblioteca de AutoCAD en VB primero. Por supuesto, debe instalar AutoCAD. Puede usar VB para controlar la creación del archivo CAD y luego escribir datos en el CAD. archivo. Para establecer un sistema de coordenadas rectangulares en CAD, se recomienda observar qué objeto en CAD corresponde a wcs y luego usar vb para llamarlo para crear wcs. El siguiente es un código que crea un archivo CAD en VB y dibuja una línea recta hacia el espacio modelo.

El requisito previo debe ser cargar CAD en VB. Recuerde que el archivo de ayuda de CAD tiene ayuda de VBA. Se recomienda descargar el libro de desarrollo secundario de CAD VBA, que está disponible en la biblioteca de Baidu. ¡Espero que mi respuesta pueda ser adoptada! ! ! ! !

Sub AddLineVB()

En caso de error, reanudar siguiente

' Conectarse a la aplicación AutoCAD

Dim acadApp As AcadApplication

Establecer acadApp = GetObject _

(, "AutoCAD.Application.17")

Si Err Entonces

Err.Clear

Establecer acadApp = CreateObject _

("AutoCAD.Application.17")

Si Err Entonces

MsgBox Err.Description

Salir Sub

Finalizar si

Finalizar si

' Conectar al dibujo de AutoCAD

Dim acadDoc As AcadDocument

Set acadDoc = acadApp.ActiveDocument

' Crea el punto final de la línea recta

Dim lineObj As AcadLine

Dim startPoint(0 To 2) As Double

Atenuar endPoint(0 a 2) como doble

startPoint(0) = 1

startPoint(1) = 1

startPoint(2 ) = 0

endPoint(0) = 5

endPoint(1) = 5

endPoint(2) = 0

' en el modelo Crear un objeto Línea en el espacio

Establecer lineObj = acadDoc.ModelSpace.AddLine _

(startPoint, endPoint)

ZoomAll

acadApp. visible = Verdadero

End Sub