¿Cómo escribir un programa VB y enviarlo automáticamente a CAD? método...
Primero consulte la biblioteca de tipos de acad ***Biblioteca de objetos En el menú del proyecto, consulte y marque cad.
Marcar myAcadApp como AutoCAD. AcadApplication, activeDoc para AutoCAD. AcadDocument, acMS como AutoCAD. Espacio modelo académico
Continúe con el siguiente paso en caso de error
Establezca myacadeapp = getobject(, "AutoCAD.Application")' Compruebe si AutoCAD está abierto. set myacadeapp = createobject("AutoCAD. Aplicación")'Abrir CAD myacadeapp. "Visible = verdadero" muestra CAD.
Si Err lt gt "0 Then" no está activado.
Eh. borrar
Establecer activeDoc = myAcadApp. Documento Activo
Si hay un error, entonces
MsgBox es incorrecto. cantidad y cantidad. ":" amplificador eh. La "Descripción" no se puede abrir.
Salir del conector
Finalizar si...
Finalizar si...
Ir a error en caso de error
MiAcadApp. "Visible = Verdadero" muestra CAD.
Establezca activeDoc = myAcadApp. Documento activo
Atenuar el punto inicial (0 a 2) como doble
Mostrar el punto final (0 a 2) como doble
' Dim LineObj As AcadLine 'Si hay un error en el dibujo, cámbielo a Dim LineObj As Object.
Punto inicial (0) = 0: Punto inicial (1) = 0: Punto inicial (2) = 0
Punto final (0) = 30: Punto final (1) = 20 : Punto final (2) = 0
establecer línea obj = documento modelo activo addline (punto inicial, punto final) 'Dibuja una línea.
prcExit:
Establecer activeDoc = Nada
Establecer myAcadApp = Nada
Conector de salida
prcERR:
Error de cuadro de mensaje. cantidad y cantidad. ":" amplificador eh. Descripción, vbCritical, "Error"
Continuar para salir
Finalizar conector