請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??

lincctw_ccl · 发表于 2011-8-18 09:03:38

請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??

我附檔內容是可執行lsp 但在dcl中 image_button 沒辨法顯示出我所做的 sld檔!!
煩請各位前輩有空指導一下!
該如何修改
謝謝@@

xshrimp · 发表于 2011-8-18 09:22:25

(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))

(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:28:43

本帖最后由 alwtyp 于 2011-8-18 09:29 编辑

(defun SLD (key SLD_name / x y)

(start_image key)

(setq x(dimx_tile key)

y(dimy_tile key)

)

(fill_image 0 0 x y 0)

(slide_image 0 0 x y SLD_name)

(end_image)

(princ)

)

(defun c:test()

(setvar "cmdecho" 0)

(dcl_test)

(prin1)

)

(defun dcl_test()

(setq dcl_id (load_dialog "test")) //載入對話框

(new_dialog "test" dcl_id) //啟動對話框

(action_tile "a1" "(done_dialog 11)") //HH

(action_tile "a2" "(done_dialog 21)") //BP

(sld "a1" "a1")

(sld "a2" "a2")

(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))

lincctw_ccl · 发表于 2011-8-18 10:11:31

本帖最后由 lincctw_ccl 于 2011-8-18 10:12 编辑

xshrimp 发表于 2011-8-18 09:22

謝謝!!
感謝二位的指導!!!!

趣意人生 · 发表于 2021-3-16 22:08:39

感謝二位的指導!!!!

账号		自动登录	找回密码
密码			注册

請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??

本帖子中包含更多资源

点评

点评