[编程交流] 从C++代码运行Lisp

       <CommandMethod("SMB", CommandFlags.Session)> _
       Public Sub SMB(ByVal DwgName As String)
           ' LAUNCH AUTOCAD & LISP
           'Sub Launch_AutoCAD(ByVal DwgName As String)
           Dim vAcadApp As AcadApplication
           Dim vAcadDoc As AcadDocument
           Dim DwgPath As String = "\\\.....
           Dim LispPath As String = ".....
           Dim My_Lisp As String = "SMBTEST"
           Dim Cmd_To_Start_LISP_Program As String = "SMBRUN"
           Try
               If Process.GetProcessesByName("acad").Length > 0 Then
                   vAcadApp = GetObject(, "AutoCAD.Application")
               Else
                   'vAcadApp = CreateObject("AutoCAD.Application.20")
                   vAcadApp = New AcadApplication
               End If
               vAcadApp.Visible = True
               vAcadApp.WindowState = AcWindowState.acMax
               vAcadDoc = vAcadApp.Documents.Open(DwgPath & DwgName, True)
               vAcadDoc.SendCommand("(load """ & LispPath & My_Lisp & ".lsp"" ""The load failed"") " & Cmd_To_Start_LISP_Program & Chr(13))
           Catch ex As System.Exception
           Finally
               vAcadApp = Nothing
               vAcadDoc = Nothing
           End Try
       End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
       Const progID As String = "AutoCAD.Application.19.1"
       Dim acApp As AcadApplication = Nothing
       Dim LispPath As String = "..."
       Dim My_Lisp As String = "SMBTEST"
       Dim Cmd_To_Start_LISP_Program As String = "SMBRUN"
       Try
           acApp = DirectCast(Marshal.GetActiveObject(progID), AcadApplication)
       Catch
           Try
               Dim acType As Type = Type.GetTypeFromProgID(progID)
               acApp = DirectCast(Activator.CreateInstance(acType, True), AcadApplication)
           Catch
               MessageBox.Show("Cannot create object of type """ + progID + """")
           End Try
       End Try
       If acApp IsNot Nothing Then
           acApp.Visible = True
           acApp.ActiveDocument.SendCommand("(load """ & LispPath & My_Lisp & ".lsp"" ""The load failed"") " & Cmd_To_Start_LISP_Program & Chr(13))
       End If
   End Sub