图库缩略图

磐舍

请教大神指点缩略图文图，图库卡在缩略图上了

zj20190405

码发上来，不然人家怎么帮你？

guangdonglbq

http://bbs.mjtd.com/thread-184800-1-1.html
建议试试这个。

自贡黄明儒

1. (defun C:tt2 (/ dcl-image dialog do1 setdata  DCLID FILELST FNAME I IMGTXT KEY RETURN#)
   
2.   (defun dcl-image (key x y file)
   
3.     (start_image key)
   
4.     (setq max_x        (dimx_tile key)
   
5.           max_y        (dimy_tile key)
   
6.     )
   
7.     (slide_image
   
8.       x
   
9.       y
   
10.       (- max_x x)
    
11.       (- max_y y)
    
12.       file
    
13.     )
    
14.     (end_image)
    
15.   )
    
16.   
    
17.   (defun dialog        (/ FN I II)
    
18.     (setq i -1)
    
19.     (setq fname (vl-filename-mktemp nil nil ".dcl"))
    
20.     (setq fn (open fname "w"))
    
21.     (write-line
    
22.       "tempDlg_1:dialog{label=\"PAi_Symbols图块\";spacer_1;"
    
23.       fn
    
24.     )
    
25.     (repeat 4
    
26.       (write-line " :row{" fn)
    
27.       (setq ii i)
    
28.       (repeat 8
    
29.         (setq ii (1+ ii))
    
30.         (write-line (strcat " :image_button{color=-2; width=16; aspect_ratio=0.66; key=\"Imgkey" (itoa ii) "\";allow_accept = true;}") fn)
    
31.       )
    
32.       (write-line " }" fn)
    
33. 
    
34.       (write-line " :row{" fn)
    
35.       (repeat 8
    
36.         (setq i (1+ i))
    
37.         (write-line (strcat " :text{label=\"Text\";  key=\"Txtkey" (itoa i) "\";allow_accept = true;}") fn)
    
38.       )
    
39.       (write-line " }" fn)
    
40.     )
    
41.     (write-line " :row{ok_cancel_help;}" fn)
    
42.     (write-line " }" fn)
    
43. 
    
44.     (close fn)
    
45.     ;;(startapp "notepad" fname)
    
46.   )
    
47. 
    
48.   ;;fileLst库文件列表
    
49.   (defun setdata ()
    
50.     (setq i -1)
    
51.     (mapcar (function
    
52.               (lambda (x y)
    
53.                 (setq i (1+ i))
    
54.                 (set_tile (strcat "Txtkey" (itoa i)) x)
    
55.                 (dcl-image (strcat "Imgkey" (itoa i)) 0 0 y)
    
56.               )
    
57.             )
    
58.             ImgTxt
    
59.             fileLst
    
60.     )
    
61.   )
    
62.   
    
63.   ;;在这里，用根据key做不同的事情
    
64.   (defun do1 ()
    
65.     (cond ((equal key "Imgkey1") (alert key))
    
66.           ((equal key "Imgkey2") (alert key))
    
67.           ((equal key "Imgkey3") (alert key))
    
68.           ((equal key "Imgkey4") (alert key))
    
69.     )
    
70.   )
    
71. 
    
72.   (setq        ImgTxt
    
73.          '("指北针"        "入户标志"   "区域名称"          "区域编号"
    
74.            "区域指示"        "材料索引"   "物料索引"          "立面索引"
    
75.            "剖面索引"        "剖面索引[V]"                  "剖面索引[H]"
    
76.            "详图索引"        "铺贴起始"   "铺贴倾斜"          "特殊符号"
    
77.            "总图标高"        "平面标高"   "立面标高"          "详图标高"
    
78.            "引注标高"        ""             ""                  ""
    
79.            ""                ""             ""                  ""
    
80.            ""                ""             ""                  ""
    
81.            ""
    
82.           )
    
83.   )
    
84.   (setq        fileLst        (list "steelsec(1001eas)"
    
85.                       "steelsec(1002uas)"
    
86.                       "steelsec(1003gbgzgs)"
    
87.                       "steelsec(1004ybgzgs)"
    
88.                       "steelsec(1005gbchans)"
    
89.                       "steelsec(1006ybchans)"
    
90.                       "steelsec(1007chs)"
    
91.                       "steelsec(1008shs)"              ""
    
92.                       ""              ""              ""
    
93.                       ""              ""              ""
    
94.                       ""              ""              ""
    
95.                       ""              ""              ""
    
96.                       ""              ""              ""
    
97.                       ""              ""              ""
    
98.                       ""              ""              ""
    
99.                       ""              ""
    
100.                      )
     
101.   )
     
102. 
     
103.   
     
104.   (dialog)
     
105.   
     
106.   (setq dclid (load_dialog fname))
     
107.   (new_dialog "tempDlg_1" dclid)
     
108.   (setdata)
     
109.   (mapcar (function
     
110.             (lambda (x)
     
111.               (action_tile (strcat "Imgkey" (itoa x)) "(setq key $key)")
     
112.             )
     
113.           )
     
114.           (list 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31)
     
115.   )
     
116.   (action_tile (strcat "Imgkey" (itoa 0)) "(setq key $key)")
     
117.   (action_tile "accept" "(done_dialog 1)")
     
118.   (setq return# (start_dialog))
     
119.   (unload_dialog dclid)
     
120.   
     
121.   (vl-file-delete fname)  
     
122.   (if (equal return# 1)
     
123.     (do1)
     
124.   )
     
125.   (princ)
     
126. )
     

(defun C:tt2 (/ dcl-image dialog do1 setdata  DCLID FILELST FNAME I IMGTXT KEY RETURN#)<br />   (defun dcl-image (key x y file)<br />     (start_image key)<br />     (setq max_x        (dimx_tile key)<br />           max_y        (dimy_tile key)<br />     )<br />     (slide_image<br />       x<br />       y<br />       (- max_x x)<br />       (- max_y y)<br />       file<br />     )<br />     (end_image)<br />   )<br />   <br />   (defun dialog        (/ FN I II)<br />     (setq i -1)<br />     (setq fname (vl-filename-mktemp nil nil ".dcl"))<br />     (setq fn (open fname "w"))<br />     (write-line<br />       "tempDlg_1:dialog{label=\"PAi_Symbols图块\";spacer_1;"<br />       fn<br />     )<br />     (repeat 4<br />       (write-line " :row{" fn)<br />       (setq ii i)<br />       (repeat 8<br />         (setq ii (1+ ii))<br />         (write-line (strcat " :image_button{color=-2; width=16; aspect_ratio=0.66; key=\"Imgkey" (itoa ii) "\";allow_accept = true;}") fn)<br />       )<br />       (write-line " }" fn)<br /> <br />       (write-line " :row{" fn)<br />       (repeat 8<br />         (setq i (1+ i))<br />         (write-line (strcat " :text{label=\"Text\";  key=\"Txtkey" (itoa i) "\";allow_accept = true;}") fn)<br />       )<br />       (write-line " }" fn)<br />     )<br />     (write-line " :row{ok_cancel_help;}" fn)<br />     (write-line " }" fn)<br /> <br />     (close fn)<br />     ;;(startapp "notepad" fname)<br />   )<br /> <br />   ;;fileLst库文件列表<br />   (defun setdata ()<br />     (setq i -1)<br />     (mapcar (function<br />               (lambda (x y)<br />                 (setq i (1+ i))<br />                 (set_tile (strcat "Txtkey" (itoa i)) x)<br />                 (dcl-image (strcat "Imgkey" (itoa i)) 0 0 y)<br />               )<br />             )<br />             ImgTxt<br />             fileLst<br />     )<br />   )<br />   <br />   ;;在这里，用根据key做不同的事情<br />   (defun do1 ()<br />     (cond ((equal key "Imgkey1") (alert key))<br />           ((equal key "Imgkey2") (alert key))<br />           ((equal key "Imgkey3") (alert key))<br />           ((equal key "Imgkey4") (alert key))<br />     )<br />   )<br /> <br />   (setq        ImgTxt<br />          '("指北针"        "入户标志"   "区域名称"          "区域编号"<br />            "区域指示"        "材料索引"   "物料索引"          "立面索引"<br />            "剖面索引"        "剖面索引[V]"                  "剖面索引[H]"<br />            "详图索引"        "铺贴起始"   "铺贴倾斜"          "特殊符号"<br />            "总图标高"        "平面标高"   "立面标高"          "详图标高"<br />            "引注标高"        ""             ""                  ""<br />            ""                ""             ""                  ""<br />            ""                ""             ""                  ""<br />            ""<br />           )<br />   )<br />   (setq        fileLst        (list "steelsec(1001eas)"<br />                       "steelsec(1002uas)"<br />                       "steelsec(1003gbgzgs)"<br />                       "steelsec(1004ybgzgs)"<br />                       "steelsec(1005gbchans)"<br />                       "steelsec(1006ybchans)"<br />                       "steelsec(1007chs)"<br />                       "steelsec(1008shs)"              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""              ""<br />                       ""              ""<br />                      )<br />   )<br /> <br />   <br />   (dialog)<br />   <br />   (setq dclid (load_dialog fname))<br />   (new_dialog "tempDlg_1" dclid)<br />   (setdata)<br />   (mapcar (function<br />             (lambda (x)<br />               (action_tile (strcat "Imgkey" (itoa x)) "(setq key $key)")<br />             )<br />           )<br />           (list 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31)<br />   )<br />   (action_tile (strcat "Imgkey" (itoa 0)) "(setq key $key)")<br />   (action_tile "accept" "(done_dialog 1)")<br />   (setq return# (start_dialog))<br />   (unload_dialog dclid)<br />   <br />   (vl-file-delete fname)  <br />   (if (equal return# 1)<br />     (do1)<br />   )<br />   (princ)<br /> )<br />

paulpipi

这个好，谢谢分享！

磐舍

自贡黄明儒 发表于 2022-9-8 07:42

这个咋用呀

utopio

使用这个Slide控件

cwgchen

utopio 发表于 2022-10-12 18:06
使用这个Slide控件

大哥 这个咋用》