主要是想将以前的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")
)