一个自用块管理器的形状、形状、形状！

uvyx

------------------------------------------------------------------------------------2018-11-10 第一阶段：
业余、业余、业余！！！+兴趣对大神来说，应该挺简单的，不过对我来说研究了好几天了！！我只不过是有时间有兴致的时候才弄.......多多包涵！！请大伙看一下那些地方可以改进、简化的！谢谢！！

1. 记录@_#!记录@_#! 请多多指点！！

复制代码

------------------------------------------------------------------------------------2018-11-27 第二阶段：

自贡黄明儒

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 />

yangchao2005090

用法: (acad_strlsort <字符串列表>)
; 错误: *error* 函数中出错no function definition: SHOWALL

gzsod

维一个浩辰能打开界面的图库  不过会有卡住按扭的BUG

maxli

大哥。。无图无真相啊！！！！

xmuhongzhi

好东西，下来使用下

AbnerXk

回复也太少了，继续加油！

lanbior

新手，只能膜拜！顶一下

519995995

水仙的错

没有图啊，能不能发个GIF上来

paulpipi

好东西，下来使用下

332387088