Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo escribir un programa VB y enviarlo automáticamente a CAD? método...

¿Cómo escribir un programa VB y enviarlo automáticamente a CAD? método...

Subcomando privado 1_Click()

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