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

)

相关文章:

  • 2022-12-23
  • 2021-10-26
  • 2021-09-08
  • 2021-11-15
  • 2021-08-16
  • 2021-09-02
  • 2021-07-10
猜你喜欢
  • 2022-12-23
  • 2022-12-23
  • 2023-03-08
  • 2021-09-12
  • 2021-11-14
  • 2021-09-03
  • 2022-12-23
相关资源
相似解决方案