AutoCAD .Net 加载lisp

程序代码：


    <CommandMethod("lisptest")> _
    Public Sub lisptest()
        '设置标记并发送PLINE         
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim lispPath As String = "C:/test.lsp"
        Dim loadStr As String = String.Format("(load ""{0}"")  cmdtest" & vbLf, lispPath)
        acDoc.SendStringToExecute(loadStr, False, False, False)
    End Sub

(defun c:cmdtest()
　　(alert "hello world")
)