求助，LISP 和DCL調用對話框的問題
本帖最后由 作者 于 2008-11-1 14:01:56 编辑 <br /><br /> <p>1.想了好幾天，我這問題還是沒有解決;</p><p>2.想附圖上去，但圖片無論如何也顯示不了，不知這次上傳會不會有顯示；</p><p>3.問題：我在DCL對話框中加入了多張SLD圖片，對話框不是很大，所以看得不是很清楚，現想在每個SLD上加入一個預覽功能，（我只想在DCL中設置一個DCL按鈕"預覽" 點擊不同的SLD，可以加載不同的放大的單獨的DCL對話框）</p><p>哪位好心的大哥幫幫我好嗎？我是一個LSP初學者，弄不出來心裡特難受，</p> <p>怎麼沒人說話呢？高手們都在休息嗎？</p> 不用每个sld都作个DCL对话框，只需要作一个大些的DCL,显示不同的sld就可以了.. <p>inblock:dialog{<br/> label="圖塊調用";<br/> spacer;<br/> :boxed_radio_row{<br/> label="圖塊類型";<br/> :radio_button{<br/> label="防火門";<br/> key="fanghuo";<br/> value=1;<br/> }<br/> <br/> :radio_button{<br/> label="密板門";<br/> key="miban"; <br/> }<br/> :radio_button{<br/> label="(標准)中電牛房門";<br/> key="zhongdian";<br/> }<br/> :radio_button{<br/> label="(標准)港燈牛房門";<br/> key="GangDeng";<br/> }<br/> :radio_button{<br/> label="(標准)百葉窗";<br/> key="baiye";<br/> }<br/> :radio_button{<br/> label="杜生常做產品";<br/> key="Dusheng";<br/> }<br/> :radio_button{<br/> label="梁發記常做產品";<br/> key="LFJ";<br/> }<br/> :radio_button{<br/> label="常用標准件A";<br/> key="orther";<br/> }</p><p> <br/> }<br/> <br/>/*-----------&&&&&&&&&&------------*/<br/>/*-----------1-1-------------*/<br/> :row{<br/> :image_button{<br/> key="slide11";<br/> is_default=true;<br/> allow_accept=true;<br/> width=11;<br/> aspect_ratio=2.4;<br/> color=84;<br/> }<br/>/*-----------1-2-------------*/<br/> :image_button{<br/> key="slide12";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=114;<br/> }<br/>/*----------1-3--------------*/<br/> :image_button{<br/> key="slide13";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=144;<br/> }<br/>/*-----------1-4-------------*/<br/> :image_button{<br/> key="slide14";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=174;<br/> }<br/>/*-----------1-5-------------*/<br/> :image_button{<br/> key="slide15";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=204;<br/> }<br/>/*----------1-6--------------*/<br/> :image_button{<br/> key="slide16";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=234;<br/> }</p><p> }<br/>/*-----------2-1-------------*/<br/> :row{<br/> :image_button{<br/> key="slide21";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=2.4;<br/> color=0;<br/> }<br/>/*-----------2-2-------------*/<br/> :image_button{<br/> key="slide22";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=0;<br/> }<br/>/*----------2-3--------------*/<br/> :image_button{<br/> key="slide23";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=0;<br/> }<br/>/*-----------2-4-------------*/<br/> :image_button{<br/> key="slide24";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=0;<br/> }<br/>/*-----------2-5-------------*/<br/> :image_button{<br/> key="slide25";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=0;<br/> }<br/>/*----------2-6--------------*/<br/> :image_button{<br/> key="slide26";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=0;<br/> }</p><p> }<br/>/*-----------3-1-------------*/<br/> :row{<br/> :image_button{<br/> key="slide31";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=2.4;<br/> color=123;<br/> }<br/>/*-----------3-2-------------*/<br/> :image_button{<br/> key="slide32";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=153;<br/> }<br/>/*----------3-3--------------*/<br/> :image_button{<br/> key="slide33";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=183;<br/> }<br/>/*-----------3-4-------------*/<br/> :image_button{<br/> key="slide34";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=213;<br/> }<br/>/*-----------3-5-------------*/<br/> :image_button{<br/> key="slide35";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=243;<br/> }<br/>/*----------3-6--------------*/<br/> :image_button{<br/> key="slide36";<br/> is_default=true;<br/> allow_accept=true;<br/> width=10;<br/> aspect_ratio=0.8;<br/> color=255;<br/> }<br/> }<br/> spacer_1;<br/> <br/>/*----------&&&&&&&&&-------*/<br/> :row{<br/>:button{label="preview";key="zoomin";}<br/> ok_cancel;}<br/>}</p><p>/*----------Zoomin-------*/<br/>preview : dialog {<br/> label = "放大詳圖" ;<br/> :image_button {<br/> key = "kimage";<br/> height=45;<br/> aspect_ratio = 1.5;<br/> color = 0;<br/> }<br/> ok_only;<br/> }</p> <p>(defun C:N (/ dcl_id blockname x2 y2)<br/> (defun *error* ()<br/> (princ "Stop!Stop!Stop!Stop!")<br/> )<br/> (setvar "cmdecho" 0)<br/> (setq dcl_id (load_dialog "inblock.dcl"))<br/> (if (< dcl_id 0)<br/> (exit)<br/> (new_dialog "inblock" dcl_id)<br/> )<br/> (show_imagea)<br/> (action_tile "orther" "(show_imageh)")<br/> (action_tile "LFJ" "(show_imageg)")<br/> (action_tile "Dusheng" "(show_imagef)")<br/> (action_tile "baiye" "(show_imagee)")<br/> (action_tile "GangDeng" "(show_imaged)")<br/> (action_tile "zhongdian" "(show_imagec)")<br/> (action_tile "miban" "(show_imageb)")<br/> (action_tile "fanghuo" "(show_imagea)")<br/> (action_tile "1" "(show_imagea)")</p><p> (action_tile "zoomin" "(load_preview)")<br/> (action_tile "accept" "(done_dialog 1)")<br/> (action_tile "cancel" "(done_dialog 0)")<br/> (setq result (start_dialog))<br/> (unload_dialog dcl_id)<br/> (if (= result 1)<br/> (inbing)<br/> )<br/> (princ)<br/>)</p><p>(defun load_preview()<br/> (setq dcl_id (load_dialog "inblock"))<br/> (new_dialog "preview" dcl_id)<br/> (zoomin_sld_111)<br/> (start_dialog)<br/> )</p><p> (defun zoomin_sld_111 ()<br/> (setq x2 (dimx_tile "kimage"))<br/> (setq y2 (dimy_tile "kimage"))<br/> (start_image "kimage")<br/> (fill_image 0 0 x2 y2 -2)<br/> (slide_image 0 0 x2 y2 "C:/Inblock/Fang huo men/slide111")<br/> (end_image)<br/>) </p><p>(defun zoomin_sld_112 ()<br/> (setq x2 (dimx_tile "kimage"))<br/> (setq y2 (dimy_tile "kimage"))<br/> (start_image "kimage")<br/> (fill_image 0 0 x2 y2 -2)<br/> (slide_image 0 0 x2 y2 "C:/Inblock/Fang huo men/slide112")<br/> (end_image)<br/>) </p><p>我這樣做的效果，點擊一個SLD圖，可顯示的都是Slide111圖片，搞不懂為什麼會這樣，我就是想要點擊不同SLD來顯示不同的圖片，怎麼設置這個程式呢？謝謝！</p>
页:
[1]