流_星 发表于 2013-4-20 22:12:44

求助通过面板管理lisp文件

本帖最后由 流_星 于 2013-4-21 13:42 编辑

dcl文件
；
fil:dialog{label="辅助设计面板";
:row{
:boxed_column{label="数字计算"; width=5;
:button{label="加法计算"; key="jf";width=5; is_default = true;}                     
:button{label="减法计算"; key="jian";width=5;is_default = true;}
:button{label="乘法计算"; key="cf";width=5; is_default = true;}
:button{label="除法计算"; key="chu";width=5; is_default = true;}
}
}
ok_cancel;}
然后通过lisp文件，管理文件
点击加法计算，读取加法计算.lsp文件。
(defun c:HH ()
(if (> (setq dcl_id (load_dialog (findfile "drawn.dcl"))) 0) (progn
(if (new_dialog "drawn" dcl_id "") (progn
   (action_tile "jf"   "(done_dialog 1)")
   (action_tile "jian" "(done_dialog 2)")
   (action_tile "cf"   "(done_dialog 3)")
   (action_tile "chu""(done_dialog 4)")
   (setq re (start_dialog))
   (princ "\n无法显示对话框！")
)
)
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(cond
((= re 1) (load "C:/CSRCAD/TOOL/加法计算") (c:Jf))
((= re 2) (load "C:/CSRCAD/TOOL/减法计算") (c:jian))
((= re 3) (load "C:/CSRCAD/TOOL/乘法计算") (c:cf))
((= re 4) (load "C:/CSRCAD/TOOL/除法计算") (c:chu))
)
(princ)
)
对吗；调试出错
请高手帮个忙，大家帮帮忙

shenhung 发表于 2013-4-21 11:44:11

Dcl 檔名要為.drawn.dcl

fil:dialog{label="辅助设计面板"; 改為
drawn:dialog{label="辅助设计面板";

然後你調用的LISP 路徑要在.C:/CSRCAD/目錄下.

流_星 发表于 2013-4-21 13:42:20

谢谢我试试

ZZXXQQ 发表于 2013-4-21 21:06:38

语句顺序有误。下面是改过的。

(defun c:HH ()
(if (> (setq dcl_id (load_dialog (findfile "drawn.dcl"))) 0) (progn
(if (new_dialog "drawn" dcl_id "") (progn
   (action_tile "jf"   "(done_dialog 1)")
   (action_tile "jian" "(done_dialog 2)")
   (action_tile "cf"   "(done_dialog 3)")
   (action_tile "chu""(done_dialog 4)")
   (setq re (start_dialog))
)
   (princ "\n无法显示对话框！")
)
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(cond
((= re 1) (load "C:/CSRCAD/TOOL/加法计算") (c:Jf))
((= re 2) (load "C:/CSRCAD/TOOL/减法计算") (c:jian))
((= re 3) (load "C:/CSRCAD/TOOL/乘法计算") (c:cf))
((= re 4) (load "C:/CSRCAD/TOOL/除法计算") (c:chu))
)
(princ)
)

流_星 发表于 2013-4-22 19:08:24

非常感谢ZZXXQQ

ZZXXQQ 发表于 2014-6-23 23:05:32

记忆先前的选择(defun c:HH ()
(setq re 0)
(if (> (setq dcl_id (load_dialog (findfile "drawn.dcl"))) 0) (progn
(if (new_dialog "drawn" dcl_id "") (progn
   (cond
    ((= re 1) (mode_tile "jf" 2))
    ((= re 2) (mode_tile "jian" 2))
    ((= re 3) (mode_tile "cf" 2))
    ((= re 4) (mode_tile "chu" 2))
   )
   (action_tile "jf"   "(done_dialog 1)")
   (action_tile "jian" "(done_dialog 2)")
   (action_tile "cf"   "(done_dialog 3)")
   (action_tile "chu""(done_dialog 4)")
   (setq re (start_dialog))
)
   (princ "\n无法显示对话框！")
)
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(cond
((= re 1) (load "C:/CSRCAD/TOOL/加法计算") (c:Jf))
((= re 2) (load "C:/CSRCAD/TOOL/减法计算") (c:jian))
((= re 3) (load "C:/CSRCAD/TOOL/乘法计算") (c:cf))
((= re 4) (load "C:/CSRCAD/TOOL/除法计算") (c:chu))
)
(princ)
)

知行ooo李肖坪 发表于 2016-1-24 07:39:07

同步学习中………………

paulpipi 发表于 2020-9-8 11:29:54

这是个好东西

czb203 发表于 2020-9-8 19:12:57

感谢楼主分享下载试试!

zxh92 发表于 2023-8-21 07:47:34

这个源码真好，感谢分享！
页: [1] 2
查看完整版本: 求助通过面板管理lisp文件