主要是想将以前的lisp程序整合到现在的.net菜单中才会这么干的

using Autodesk.AutoCAD.Windows;

using Autodesk.AutoCAD.Runtime;

using System.Windows.Forms;

using Autodesk.AutoCAD.DatabaseServices;

using Autodesk.AutoCAD.EditorInput;

using Autodesk.AutoCAD.ApplicationServices;

using System;

using System.Collections;

using app = Autodesk.AutoCAD.ApplicationServices.Application;

namespace test

{

        [CommandMethod("test")]

        public void test()

        {

            //设置标记并发送PLINE         

            Document curAcadDoc = app.DocumentManager.MdiActiveDocument;

            string lispPath = "d:/1.lsp";

            string loadStr = String.Format("(load \"{0}\")  tttt\n"/*space after closing paren!!!*/, lispPath);

            curAcadDoc.SendStringToExecute(loadStr, false, false, false);

        }

}

以下是lisp中的代码:

(defun c:tttt()

(alert  "hello world")

)