社区 › AutoLISP/Visual LISP 编程技术 › 这个对话框的怎么写?

120120 发表于 2007-8-11 13:38:00

这个对话框的怎么写?

<p>我有很多LISP的小功能,我想做一个对话框,把这些小功能集成一起!<br/>一个对话框里有很多按钮,点某一个按钮就调用指定的命令!</p><p>这个对话框有那位朋友会不?</p><p>我很菜的.刚接触这个,希望各位大虾指教!小弟在此谢过啦<br/></p>

英雄无敌 发表于 2007-8-11 15:00:00

你自己在CAD里面做一个图标菜单不就行了啊

120120 发表于 2007-8-11 17:18:00

我想做一个对话框来显示!有朋友会不?

ZZXXQQ 发表于 2007-8-11 21:22:00

给个例子:

dd:dialog{label="常用工具";
:boxed_row{label="绘图";
:image_button{
key ="kimage1";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage2";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage3";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage4";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage5";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage6";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage7";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage8";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage9";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage10";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage11";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage12";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage13";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
:image_button{
key ="kimage14";
color = -2;
width = 5;
aspect_ratio = 1;
allow_accept = true;}
cancel_button;
}}

xgr 发表于 2007-8-11 21:23:00

用DCL的图象按钮就可以的

120120 发表于 2007-8-13 09:00:00

<p>请问<strong><font face="Verdana" color="#da2549">ZZXXQQ!</font></strong></p><p>比如我要点一个按钮,执行LINE命令,怎么实现?lsp要怎么写才行?</p><p>还有,我有很多LSP,我要加载这个集成很多按钮的LSP时自动加载要用到LSP功能,请问怎么实现?</p>

飞诗(fsxm) 发表于 2007-8-13 21:05:00

<p>找个工具箱如autool之类的...(但加载有点慢哦)</p><p>你自己写一个自己的最好!加载会快很多~!</p>

120120 发表于 2007-8-14 09:03:00

本帖最后由 作者 于 2007-8-14 9:03:33 编辑 <br /><br /> <p>(Defun c:test ( / dcl_id what)<br/>&nbsp;(setq dcl_id (load_dialog "test"))<br/>&nbsp;(new_dialog "test" dcl_id)<br/>&nbsp;(action_tile "aa" "(done_dialog 1)")<br/>&nbsp;(action_tile "bb" "(done_dialog 2)")<br/>&nbsp;(setq what (start_dialog))<br/>&nbsp;(cond ((= 1 what)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (null c:aa)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (load "c:\\a\\a")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (c:screw)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ((= 2 what)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (null c:bb)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (load "c:\\a\\a")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (c:pin)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;)<br/>&nbsp;(princ)<br/>)<br/></p><p>这个怎么把绝对路径去掉,出错时，弹出一个对话框之类的</p>

ZZXXQQ 发表于 2007-8-14 09:21:00

(Defun c:test ( / dcl_id what)
(setq dcl_id (load_dialog "test"))
(new_dialog "test" dcl_id)
(action_tile "aa" "(done_dialog 1)")
(action_tile "bb" "(done_dialog 2)")
(setq what (start_dialog))
(cond ((= 1 what)
      (if (AND (null c:aa) (SETQ NM (FINDFILE "A.LSP")))
         (load NM)
      )
      (c:screw)
       )
       ((= 2 what)
      (if (AND (null c:bb) (SETQ NM (FINDFILE "A.LSP")))
         (load NM)
      )
      (c:pin)
       )
)
(princ)
)

120120 发表于 2007-8-14 17:55:00

<p>(load NM)</p><p>nm是不是对话框文件?</p>

查看完整版本: 这个对话框的怎么写?