向命令行发送命令
Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim LispString As String = System.Text.RegularExpressions.Regex.Replace(MyPath() & "tch_kernal_2007.arx", "\\", "\\").ToString()
doc.SendStringToExecute("(arxload" & " " & """" & LispString & """" & ")" & vbCr, True, False, False)