[编程交流] 从VB启动AutoCAD。NET Pro

Imports Autodesk.AutoCAD.Interop.AcadDocumentClass
Imports Autodesk.AutoCAD.InterOp.Common
Module Module1
   Sub Main()
       Dim vAcadApp As Autodesk.AutoCAD.Interop.AcadApplication
       Dim vAcadDoc As Autodesk.AutoCAD.Interop.AcadDocuments
       vAcadApp = New Autodesk.AutoCAD.Interop.AcadApplication
       vAcadApp.Visible = True
      
   End Sub
End Module

Imports System.Runtime.InteropServices
Imports System.Reflection
Imports System.Globalization
Imports System.Collections
Public Class ReflectionCommands
   <System.Security.SuppressUnmanagedCodeSecurity()> _
   Public Shared Sub TestACAD(ByVal dwgname As String)
       'Save current culture to variable
       Dim thisThread As System.Globalization.CultureInfo = System.Threading.Thread.CurrentThread.CurrentCulture
       'Set culture to whatever you want
       thisThread = New System.Globalization.CultureInfo("en-US")
       Dim appProgID As String = "AutoCAD.Application"
       Dim filename As String = dwgname
       'NGet reference on intergrace IDispatch
       Dim AcadType As Type = Type.GetTypeFromProgID(appProgID)
       'Launch AutoCAD
       Dim AcadApp As Object = Activator.CreateInstance(AcadType)
       Dim visargs() As Object = New Object(0) {}
       visargs(0) = True
       'Set Application Window visible
       AcadApp.GetType().InvokeMember("Visible", BindingFlags.SetProperty, Nothing, AcadApp, visargs, Nothing)
       Dim AcadDocs As Object = AcadApp.GetType().InvokeMember("Documents", BindingFlags.GetProperty, Nothing, AcadApp, Nothing)
       'Create array of parameters
       Dim args() As Object = New Object(1) {}
       args(0) = filename
       args(1) = False ' read-only=false
       'open a drawing
       Dim AcDoc As Object = AcadDocs.GetType.InvokeMember("Open", BindingFlags.InvokeMethod, Nothing, AcadDocs, args, Nothing)
       Dim Util As Object = New Object
       Try
           'Get reference on active document
           AcDoc = AcadApp.GetType.InvokeMember("ActiveDocument", BindingFlags.GetProperty, Nothing, AcadApp, Nothing, Nothing)
           'Get reference on AcadUtility
           Util = AcDoc.GetType().InvokeMember("Utility", BindingFlags.GetProperty, Nothing, AcDoc, Nothing)
           'Get reference on ModelSpace
           Dim oSpace As Object = AcDoc.GetType.InvokeMember("ModelSpace", BindingFlags.GetProperty, Nothing, AcDoc, Nothing)
       Catch ex As Exception
       End Try
   End Sub
End Class
Module Module1
   Sub Main()
       Dim fname As String = "H:\Test123.dwg"
       ReflectionCommands.TestACAD(fname)
   End Sub
End Module

3