請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??
請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??我附檔內容是可執行lsp 但在dcl中 image_button沒辨法 顯示出我所做的 sld檔!!
煩請各位前輩 有空指導一下!
該如何修改
謝謝@@
(defun c:test()
(setvar "cmdecho" 0)
(dcl_test)
(prin1)
)
(defun dcl_test()
(setq dcl_id (load_dialog "test")) ;更癸杠
(new_dialog "test" dcl_id) ;币笆癸杠
(start_image "a1")
(slide_image 0 0 (dimx_tile "a1") (dimy_tile "a1") "a1.sld")
(end_image)
(start_image "a2")
(slide_image 0 0 (dimx_tile "a2") (dimy_tile "a2") "a2.sld")
(end_image)
(action_tile "a1" "(done_dialog 11)");HH
(action_tile "a2" "(done_dialog 21)");BP
(setq dd (start_dialog)) ;盢北ユパDcL北
(cond ((= dd 11)(c:chg0))
((= dd 21)(c:chg1))
)
)
(defun c:chg0 (/ sel)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(while(setq sel (ssget))
(command "change" sel "" "p" "la" "0" "");
(prompt "\n chghh 跑瓜糷0"))
(princ))
;******************************************************************************************************
(defun c:chg1 (/ sel)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(while(setq sel (ssget));;ノ匡栋ン匡拒;跑计莱砞﹚跋办跑计
(command "change" sel "" "p" "la" "1" "")
(prompt "\n chgbp 跑瓜糷1"))
(princ))
本帖最后由 alwtyp 于 2011-8-18 09:29 编辑 <br /><br /><p><p>(defun SLD (key SLD_name / x y)</p><p> (start_image key)</p><p> (setq x(dimx_tile key)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span> y(dimy_tile key)</p><p><span class="Apple-tab-span" style="white-space:pre"> </span> )</p><p> (fill_image 0 0 x y 0)</p><p> (slide_image 0 0 x y SLD_name)</p><p> (end_image)</p><p> (princ)</p><p> )</p><p>(defun c:test()</p><p> (setvar "cmdecho" 0)</p><p> (dcl_test)</p><p> (prin1)</p><p>)</p><p>(defun dcl_test()</p><p> (setq dcl_id (load_dialog "test")) //載入對話框</p><p> (new_dialog "test" dcl_id) //啟動對話框</p><p> (action_tile "a1" "(done_dialog 11)") //HH</p><p> (action_tile "a2" "(done_dialog 21)") //BP</p><p> (sld "a1" "a1")</p><p> (sld "a2" "a2")</p><p> (setq dd (start_dialog)) //將控制交由DcL控制</p><p> (cond ((= dd 11)(c:chg0))</p><p> ((= dd 21)(c:chg1))</p><p> )</p><p>)</p><p><br></p><p>(defun c:chg0 (/ sel)</p><p> (setvar "cmdecho" 0) </p><p> (setvar "osmode" 0)</p><p> (while(setq sel (ssget))</p><p> (command "change" sel "" "p" "la" "0" "");</p><p> (prompt "\n chghh 已變更圖層 0"))</p><p> (princ))</p><p>******************************************************************************************************</p><p>(defun c:chg1 (/ sel)</p><p> (setvar "cmdecho" 0) </p><p> (setvar "osmode" 0)</p><p> (while(setq sel (ssget));;用選集物件選擇;此變數應設定為區域變數</p><p> (command "change" sel "" "p" "la" "1" "")</p><p> (prompt "\n chgbp 已變更圖層 1"))</p><p> (princ))</p><div><br></div></p><p></p> 本帖最后由 lincctw_ccl 于 2011-8-18 10:12 编辑
xshrimp 发表于 2011-8-18 09:22 static/image/common/back.gif
謝謝!!
感謝二位的指導!!!!
感謝二位的指導!!!!
页:
[1]