在DCL对话框中点击按钮怎么让它调用已有的lisp程序

宇涵他爹/

我刚开始学习dcl对话框，不知道怎么调用已有的lisp程序，我现在要做一个自己用的工具箱，想把我已有的程序集中起来，不知道怎么弄，是把已有的程序重新再写一个程序哪，还是能使用什么函数调用已有的程序哪，望前辈们给讲讲！谢谢了！

nzl1116

和一般的函数调用没什么区别,就是多了双引号

宇涵他爹/

nzl1116 发表于 2012-1-3 19:38
和一般的函数调用没什么区别,就是多了双引号

不行啊，你有没有示例文件啊？帮我发一个

nzl1116

宇涵他爹/ 发表于 2012-1-4 07:24
不行啊，你有没有示例文件啊？帮我发一个

把你自己的发上来

宇涵他爹/

nzl1116 发表于 2012-1-4 07:39
把你自己的发上来

不好意思，我可能没有说清楚，一个对话框和一个lisp程序我知道怎么弄，我想说的是一个对话框和多个lisp程序连接。要把几个小程序合到一起在连接对话框我也会，就是不知道在不编辑那几个小程序的情况下用什么办法可以实现

nzl1116

宇涵他爹/ 发表于 2012-1-4 08:14
不好意思，我可能没有说清楚，一个对话框和一个lisp程序我知道怎么弄，我想说的是一个对话框和多个lisp程 ...

在动作回调表达式里要加载lsp文件
(load file (princ))

宇涵他爹/

nzl1116 发表于 2012-1-4 08:24
在动作回调表达式里要加载lsp文件
(load file (princ))

输入之后一运行到这就就提示         错误: 参数类型错误: fixnump: nil          是怎么回事啊？
(load "C:/Documents and Settings/Administrator/桌面/《标注整理》.lsp"(princ))

nzl1116

宇涵他爹/ 发表于 2012-1-4 10:46
输入之后一运行到这就就提示         错误: 参数类型错误: fixnump: nil          是怎么回事啊？
(load ...

应该不是这条表达式的问题，你把和对话框交互的其他表达式都发上来看看

宇涵他爹/

nzl1116 发表于 2012-1-4 11:10
应该不是这条表达式的问题，你把和对话框交互的其他表达式都发上来看看

第一个程序都连不上，所以其他的还没有写。麻烦你了
(defun Action_测量绘图工具_Keys (key value) ;全部控件的点击动作触发
        (cond
                ((= key "accept") ;{确认按钮}
                       
                        (Get_测量绘图工具_Data)
                        (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
                )
                ((= key "cancel") ;{取消按钮}
                       
                        (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
                )
                ((= key "Command1") ; {"坐标标注"} (按钮)
                        (load "C:/Documents and Settings/Administrator/桌面/《标注整理》.lsp"(princ))
                        (start_dialog) ;激活对话框函数
                        (unload_dialog id) ;释放该对话框
                )
）
）

nzl1116

宇涵他爹/ 发表于 2012-1-4 11:24
第一个程序都连不上，所以其他的还没有写。麻烦你了
(defun Action_测量绘图工具_Keys (key value) ;全部 ...

ID是全局变量吗？
问题应该出在ID身上