向命令行发送命令

        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)