做一个简单的对话框（兄弟们帮帮忙）
<p>我想做一个简单的对话框，就是有一些LSP文件，命令是分开的，</p><p>我想输入一个命令“CAD”就出现对话框，用对话框来操作，找了很久也没找到资料，</p><p>望兄弟们帮帮忙，如果加上“确定”“取消”之类的按扭更好（有图片，都在压缩文件里）</p> 本帖最后由 作者 于 2007-12-29 14:39:05 编辑(defun c:cad ()
(if (> (setq dcl_id (load_dialog "cad")) 0) (progn
(if (new_dialog "cad" dcl_id) (progn
(setimage)
(action_tile "red" "(done_dialog 1)")
(action_tile "green" "(done_dialog 2)")
(action_tile "blue" "(done_dialog 3)")
(action_tile "copy1" "(done_dialog 4)")
(action_tile "copy2" "(done_dialog 5)")
(action_tile "cancel" "(done_dialog 0)")
(setq re (start_dialog))
)
(alert "Unable to display dialog box")
)
(unload_dialog dcl_id)
)
(alert "Unable to load dialog box")
)
(cond
((= re 1) (c:cr))
((= re 2) (c:cg))
((= re 3) (c:cb))
((= re 4) (c:cc))
((= re 5) (c:cv))
)
(princ)
)
(defun setimage ()
(setq x (dimx_tile "red")
y (dimy_tile "red"))
(start_image "red") (fill_image 0 0 x y 1) (end_image)
(start_image "green") (fill_image 0 0 x y 3) (end_image)
(start_image "blue") (fill_image 0 0 x y 5) (end_image)
)
(defun c:cr() ;红
(setq rr (ssget))(command "change" rr """p" "c""1" ""))
(defun c:cg() ;绿
(setq rr (ssget))(command "change" rr """p" "c" "3" ""))
(defun c:cb() ;蓝
(setq rr (ssget))(command "change" rr """p" "c" "5" ""))
(defun c:cc() (command "COPY" )) ;复制
(defun c:cv () (setq rr (ssget)) (command "COPY" rr "" "m")) ;复制多个
dcl_settings : default_dcl_settings { audit_level = 3; }
cad : dialog{
label="程序选择";
:boxed_row{
label="改颜色";
:image_button{key="red";color=1;width=6;aspect_ratio=1;allow_accept=true;}
:image_button{key="green";color=3;width=6;aspect_ratio=1;allow_accept=true;}
:image_button{key="blue";color=5;width=6;aspect_ratio=1;allow_accept=true;}
}
:boxed_row{
label="复制";
:button{key="copy1";label="拷贝";width=6;is_default=true;}
:button{key="copy2";label="连续拷贝";width=10;}
}
cancel_button;
}
<p>完全达到我的要求</p><p>真谢谢这位ZZXXQQ兄弟，以后我就可以“依葫芦画瓢”做一些这样简单的对话框了，</p><p>再次感谢！！！</p><p></p> <p> label="程序选择";<br/> :boxed_row{<br/> label="改颜色";<br/> :image_button{key="red";color=1;width=3;aspect_ratio=1;allow_accept=true;}<br/> :image_button{key="green";color=3;width=6;aspect_ratio=1;allow_accept=true;}<br/> :image_button{key="blue";color=5;width=6;aspect_ratio=1;allow_accept=true;}</p><p>///////<br/> }</p><p></p><p>再问下，如果“////”处再多几个按扭的话，对话框的按扭就会很长，怎样让它重新另放一行（就是都在“程序选择”里，第三个按扭放在下行）</p> <p> :boxed_column{<br/> label="改颜色";<br/> :row{<br/> :image_button{key="red";color=1;width=6;aspect_ratio=1;allow_accept=true;}<br/> :image_button{key="green";color=3;width=6;aspect_ratio=1;allow_accept=true;}<br/> :image_button{key="blue";color=5;width=6;aspect_ratio=1;allow_accept=true;}<br/> }<br/> :row{<br/> ///...<br/> }<br/> ///...<br/> }<br/></p> 本帖最后由 作者 于 2007-12-29 22:30:17 编辑 <br /><br /> <p>先谢谢了，我再试一下。</p><p><font color="#ff3300">22：30了，版主要早点休息呀！</font></p> ding 我看不了,呵&&&&,新人来找东西学的,呵&& <p>回复上一楼</p><p>即使不能下载一楼的，二楼也是明码的，复制就行了</p> <p>好想学习啊</p><p></p>
页:
[1]
2