明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1882|回复: 4

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

[复制链接]
发表于 2011-8-18 09:03:38 | 显示全部楼层 |阅读模式
請教 dcl中 image_button 該如何寫才能顯示 SLD圖示??


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2011-8-18 09:22:25 | 显示全部楼层


  1. (defun c:test()
  2.    (setvar "cmdecho" 0)
  3.    (dcl_test)
  4.    (prin1)
  5. )
  6. (defun dcl_test()
  7.    (setq dcl_id (load_dialog "test"))   ;更癸杠
  8.    (new_dialog "test" dcl_id)           ;币笆癸杠
  9.    
  10.    (start_image "a1")
  11.    (slide_image 0 0 (dimx_tile "a1") (dimy_tile "a1") "a1.sld")
  12.    (end_image)
  13.    (start_image "a2")
  14.    (slide_image 0 0 (dimx_tile "a2") (dimy_tile "a2") "a2.sld")
  15.    (end_image)
  16.    
  17.    (action_tile "a1" "(done_dialog 11)")  ;HH
  18.    (action_tile "a2" "(done_dialog 21)")  ;BP
  19.   
  20.    (setq dd (start_dialog))               ;盢北ユパDcL北
  21.    (cond ((= dd 11)(c:chg0))
  22.          ((= dd 21)(c:chg1))
  23.    )
  24. )

  25. (defun c:chg0 (/ sel)
  26.   (setvar "cmdecho" 0)
  27.   (setvar "osmode" 0)
  28.   (while(setq sel (ssget))
  29.   (command "change" sel "" "p" "la" "0" "");
  30.   (prompt "\n chghh 跑瓜糷  0"))
  31.   (princ))
  32. ;******************************************************************************************************
  33. (defun c:chg1 (/ sel)
  34.   (setvar "cmdecho" 0)
  35.   (setvar "osmode" 0)
  36.   (while(setq sel (ssget));;ノ匡栋ン匡拒;跑计莱砞﹚跋办跑计
  37.   (command "change" sel "" "p" "la" "1" "")
  38.   (prompt "\n chgbp 跑瓜糷  1"))
  39.   (princ))

点评

謝謝您的指導!!  发表于 2011-8-18 11:35
发表于 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))


点评

謝謝您的指導!!  发表于 2011-8-18 10:12
 楼主| 发表于 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 | 显示全部楼层
感謝二位的指導!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-10-2 03:19 , Processed in 0.162258 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表