Utilice VB para crear un programa que pueda abrir un archivo CAD y extraer información relevante para guardarla como un archivo.
Comenzar VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StarUpPosition = 3 'Valor predeterminado de la ventana
Inicia el programa VB.NET.
p>
Fin
Fin
Atributo VB_Name = "Form1"
Atributo VB_GlobalNameSpace = False
Atributo VB_Creatable = False
Atributo VB_PredeclaredId = True
Atributo VB_Exposed = False
PrivateacadApp como AcadApplication
AcadDoc privado como AcadDocument
Punto de tipo privado
X como doble
Y como doble
Tipo final
Subcomando privado1_Click()
Atenuar p1 como punto
Atenuar p2 como punto
p1.X = 100
p1.Y = 200
p2.X = 300
p2.Y = 400
AddLine p1, p2
End Sub
Función privada AcadConnect() Como Booleano
Atenuar indicador como booleano
En caso de error, reanudar siguiente
Establecer acadApp = GetObject(, "AutoCAD.p>
indicador = Verdadero
Si Err Entonces
Err.Clear
Establecer acadApp = CreateObject("AutoCAD.Application")
bandera = Verdadero
Si Err Then
flag = False
MsgBox "¿No puedo? No se puede ejecutar AutoCAD, verifique si es seguro. ¡Compruebe si es seguro! ", vbOKCancel, "¡Advertencia! "
Salir de la función
Finalizar si
Finalizar si
AcadConnect = flag
'Establecer acadDoc = acadApp . acadApp.Application.Documents.Open("D:\1.dwg")
'acadDoc.Open "D:\1.dwg"
'acadDoc.Close False
Finalizar función
Función privada AcadQuit()
'En caso de error Reanudar siguiente
'acadDoc.SaveAs ("D:\1. dwg")
acadDoc.Close vbSí, "D:\1.dwg"
acadApp.Exit
Establecer acadApp = Nada
Función final
Función privada AddLine(s As poi)
nt, e Como punto, opcional ByVal typeName Como cadena = "")
Dim startPoint(0 a 2) como doble
Dim endPoint(0 a 2) como doble
'color
' Atenuar color como AcadAcCmColor
' Establecer color = acadApp.GetInterfaceObject()GetInterfaceObject("AutoCAD.AcCmColor.16")
'Gris
' Llamar color.SetRGB(128, 128, 128)
Si typeName lt; "" Entonces LoadLineType
Dim lineObj As AcadLine;
Atenuar AcadText como AcadText
Atenuar AcadCicle como AcadCircle
startPoint(0) = s.X
startPoint(1) = s.Y p>
puntoinicial(2) = 0
puntofinal(0) = e.X
puntofinal(1) = e.Y