[求助]C#窗体中调用lisp程序的一个问题

xuhawk

上次飞狐版主提供一个C#调用lisp的程序，如下：

2.         [CommandMethod("tt")]         public static void Test()         {             var db = HostApplicationServices.WorkingDatabase;             var doc = Application.DocumentManager.GetDocument(db);             var ed = doc.Editor;             var rb = InvokeArx.CallLispFunction("C:lsptest1");             ed.WriteMessage("{0}", rb);         }

        [CommandMethod("tt")]         public static void Test()         {             var db = HostApplicationServices.WorkingDatabase;             var doc = Application.DocumentManager.GetDocument(db);             var ed = doc.Editor;             var rb = InvokeArx.CallLispFunction("C:lsptest1");             ed.WriteMessage("{0}", rb);         }

这个程序作为命令的形式运行良好。但是我把这段话写到我的窗体中时（如下），该窗体在AutoCAD中以ShowModelessDialog形式抛出，就运行不了啦。提示：invalid AutoCAD command: nil（我的lisp程序中调用了其他lisp程序）。但是我此时直接调用该lisp程序“test”运行良好。不知道这是怎么回事。   

2.    private void button1_Click(object sender, EventArgs e)
3.         {
4.             var db = HostApplicationServices.WorkingDatabase;
5.             var doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.GetDocument(db);
6.             var ed = doc.Editor;
7.             var rb = InvokeArx.CallLispFunction("C:test");
8.             ed.WriteMessage("{0}", rb);
9.         }  

   private void button1_Click(object sender, EventArgs e)         {             var db = HostApplicationServices.WorkingDatabase;             var doc = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.GetDocument(db);             var ed = doc.Editor;             var rb = InvokeArx.CallLispFunction("C:test");             ed.WriteMessage("{0}", rb);         }  

雪山飞狐_lzh

不调用命令的lisp函数有问题吗，比如用entmod之类的

xuhawk

我做了个测试，把写了个很简单的lisp程序

2. (defun c:test ()
3. (command "line" '(0 0 0) '(100 100 0) "")
4. )

(defun c:test () (command "line" '(0 0 0) '(100 100 0) "") )

当我在窗口里调用时，就会出现
invalid AutoCAD command: nil
直接调用，就没有任何问题。

xuhawk

的确，我试了一下下面这个程序

2. (defun c:test ()
3.   (setq c (getreal "input:"))
4.   (setq a 1)
5.   (setq b 2)
6.   (+ a b c)
7. )

(defun c:test ()   (setq c (getreal "input:"))   (setq a 1)   (setq b 2)   (+ a b c) )

在窗口里调用就没有问题。
这个怎么会与autocad本身的命令有关呢？

雪山飞狐_lzh

估计和lisp的dcl类似，最好不要调用命令