球标编号 BUG 望 修复

纵横八方

2. ;函数：lch:getfile 功能：读取文件并按行将文件转换为表
   
3. ;返回值：返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil
   
4. ;语法：(lch:getfile files) 参数：files：文本文件名，如未指定路径则自动在搜索路径中查找文件
   
5. ;示例：(lch:getfile "tyl.ini")  
   
6. ;函数代码：
   
7. (defun lch:getfile(files / tmplst x fn)
   
8.   (setq files(findfile files))
   
9.   (if files
   
10.     (progn
    
11.       (setq fn (open  files "r"))
    
12.       (while (setq x (read-line fn))
    
13.         (setq tmplst(append tmplst(list x)))
    
14.       )
    
15.       (close fn)
    
16.       tmplst
    
17.     )
    
18.      nil
    
19.   )
    
20. )
    
21. 
    
22. ;S值为 "LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" 和 "VPORT"。
    
23.   (defun lch:get-table (S / sty style sty_list)
    
24.     (setq sty_list nil
    
25.     sty (tblnext S t)
    
26.     )
    
27.     (setq style (cdr (assoc 2 sty)))
    
28.     (while style
    
29.       (if (/= "" style)
    
30.   (setq sty_list (append
    
31.        sty_list
    
32.        (list style)
    
33.            )
    
34.   )
    
35.       )
    
36.       (setq sty (tblnext S))
    
37.       (setq style (cdr (assoc 2 sty)))
    
38.     )               ; end while]
    
39.     (setq sty_list (ACAD_Strlsort sty_list))
    
40.     sty_list
    
41.   )
    
42. 
    
43. ;;语法 (lch:img img_key slide cobak)
    
44. ;;img_key 图像控件关键字
    
45. ;;slide 幻灯片名字
    
46. ;;cobak 图像控件底色
    
47. ;;功能：对话框图像初始化
    
48. (defun lch:img (imgkey slide cobak /  x1  y1)
    
49.   (setq x1(dimx_tile imgkey))
    
50.   (setq y1(dimy_tile imgkey))
    
51.   (start_image imgkey)
    
52.   (fill_image 0 0 x1 y1 cobak)
    
53.   (slide_image 0 0 x1 y1 slide)
    
54.   (end_image)
    
55. )
    
56. 
    
57. 
    
58. 
    
59. 
    
60. 
    
61. ;;画球标编号
    
62. (defun c:ee()
    
63. (prompt "LCH工具箱-球标编号V0.1\n")
    
64. (ball:number);对话框
    
65. (if (> ball_id 0)
    
66.   (ball_qb)
    
67. )
    
68. (princ)
    
69. )
    
70. 
    
71. (defun ball_qb ();画球标编号程序
    
72.    (defun *error* (msg)
    
73.     (setvar "clayer" mylay)
    
74.     (setvar "dimasz" myasz)
    
75.     (setvar "dimclrd" myclrd)
    
76.     (setvar "DIMLDRBLK" myblk)
    
77.     (command "._undo" "_E")
    
78.     (setvar "cmdecho" 1)
    
79.    (if (/= pt nil)
    
80.     (progn
    
81.      (if (or (= ball_id 2) (= ball_id 3))
    
82.       (entdel e1)
    
83.      )
    
84.      (entdel e2)
    
85.      (entdel e3)
    
86.     )
    
87.    );if
    
88.     ;(princ (msg))
    
89.    )
    
90. (setvar "cmdecho" 0)
    
91. (command "._undo" "_BE")
    
92. (setq mylay (getvar "clayer"))
    
93. (setq myblk (getvar "dimldrblk"))
    
94. (if (= myblk "")
    
95. (setq myblk ".")
    
96. )
    
97. (setq myasz (getvar "dimasz"))
    
98. (setq myclrd (getvar "dimclrd"))
    
99. 
    
100. (if (not (tblsearch "layer" "ball" ))
     
101. (command "layer" "new" "ball" "s" "ball" "C" 7 "" "L" "CONTINUOUS" "" "LW" 0.13 "" "")
     
102. )
     
103. 
     
104. (setvar "clayer" "ball")
     
105. 
     
106. (while
     
107. (if (= ball_id 1)
     
108.     (setq pt (list 0 0))
     
109.   (progn
     
110.    (setq pt (getpoint (strcat "\n->当前编号:" (itoa getnum) "  文字高度:" txthei"\n->指定序号引线起点或<退出>:")))
     
111. 
     
112.   (setq lst (entget
     
113.               (entmakex
     
114.                (list
     
115.                  '(0 . "LEADER")
     
116.                  '(100 . "AcDbEntity")
     
117.                  '(100 . "AcDbLeader")
     
118.                  (cons 10 pt)
     
119.                  (cons 10 (polar pt (/ pi 4) 10))
     
120.                );list
     
121.               );entmakex
     
122.             );entget
     
123.   );setq
     
124.    (setq oldlead (vlax-ename->vla-object (entlast)))
     
125.    (if (= ball_id 2);箭头类型
     
126.      (vla-put-ArrowheadType oldlead acArrowdot);圆点箭头
     
127.      (vla-put-ArrowheadType oldlead acArrowdefault);实心箭头
     
128.    )
     
129.    (vla-put-ArrowheadSize oldlead (atof getsiz));箭头大小
     
130.    (vla-put-DimensionLineColor oldlead (atof cgr4));引线颜色
     
131.    (setq e1 (entlast))
     
132.   );pr
     
133. );if
     
134. 
     
135.   (setq lst1 (entget
     
136.                (entmakex
     
137.                 (list
     
138.                   '(0 . "circle")
     
139.                   (cons 62 (atoi cgr5));圆颜色
     
140.                   (cons 10 pt);圆心坐标
     
141.                   (cons 40 (atof txthei));圆半径
     
142.                 );list
     
143.                );entmakex
     
144.              );entget
     
145.   );setq
     
146.   (setq e2 (entlast))
     
147. 
     
148.   (setq lst2 (entget
     
149.                (entmakex
     
150.                 (list
     
151.                   '(0 . "text")
     
152.                   (cons 1 (itoa getnum));编号
     
153.                   (cons 7 txtsty);文字样式
     
154.                   (cons 62 (atoi cgr6));文字颜色
     
155.                   (cons 10 pt);文字中心坐标
     
156.                   (cons 40 (atof txthei));文字高度
     
157.                   '(71 . 0)
     
158.                   '(72 . 1)
     
159.                   '(73 . 2)
     
160.                   (cons 41 (atof txtwid));宽度因子
     
161.                   (cons 11 pt);文字中心坐标
     
162.                 );list
     
163.                );entmakex
     
164.              );entget
     
165.   );setq
     
166.   (setq oldtext (vlax-ename->vla-object (entlast)))
     
167.   (setq e3 (entlast))
     
168. 
     
169.   (princ "\n->指定序号标注位置或<退出>:")
     
170.   (setq tag T)
     
171.   (while tag
     
172.    (setq code (grread T 15 0));;;读取输入
     
173. 
     
174.      (cond
     
175.       ((or (= (car code) 5) (= (car code) 3))
     
176.        (if (= (car code) 3) (setq tag nil));if
     
177. 
     
178.         (if serialnumberpt1
     
179.           (progn
     
180.             (if (< (- (car serialnumberpt1) (* 1.2 (atof txthei))) (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))) ;X坐标范围
     
181.              (progn
     
182.               (if (or (< (cadr (cadr code)) (- (cadr serialnumberpt1) (* 2.5 (atof txthei))))
     
183.                       (> (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))))
     
184.                   );or
     
185.                (setq serialnumberpt (list (car serialnumberpt1) (cadr (cadr code))))
     
186.               );if
     
187.               (if (< (- (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))
     
188.                (setq serialnumberpt (list (car serialnumberpt1) (- (cadr serialnumberpt1) (* 2.5 (atof txthei)))))
     
189.               );if
     
190.               (if (> (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))
     
191.                (setq serialnumberpt (list (car serialnumberpt1) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei)))))
     
192.               );if
     
193.              );pr
     
194.             );if
     
195.             (if (< (- (cadr serialnumberpt1) (* 1.2 (atof txthei))) (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))) ;Y坐标范围
     
196.              (progn
     
197.               (if (or (< (car (cadr code)) (- (car serialnumberpt1) (* 2.5 (atof txthei))))
     
198.                       (> (car (cadr code)) (+ (car serialnumberpt1) (* 2.5 (atof txthei))))
     
199.                   );or
     
200.                (setq serialnumberpt (list (car (cadr code)) (cadr serialnumberpt1)))
     
201.               );if
     
202.               (if (< (- (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))
     
203.                (setq serialnumberpt (list (- (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))
     
204.               );if
     
205.               (if (> (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))
     
206.                (setq serialnumberpt (list (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))
     
207.               );if
     
208.              );pr
     
209.             );if
     
210.             (if (and (or (<= (car (cadr code)) (- (car serialnumberpt1) (* 1.2 (atof txthei)))) (>= (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))))
     
211.                      (or (<= (cadr (cadr code)) (- (cadr serialnumberpt1) (* 1.2 (atof txthei)))) (>= (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))))
     
212.                 );and
     
213.               (setq serialnumberpt (cadr code))
     
214.             );if
     
215.           );pr
     
216.          (setq serialnumberpt (cadr code))
     
217.         );if
     
218. 
     
219.      (if (or (= ball_id 2) (= ball_id 3))
     
220.       (progn
     
221.         (entmod (subst
     
222.                 (cons 10 (polar pt (angle pt serialnumberpt) (- (distance pt serialnumberpt) (atof txthei)) ))
     
223.                 (cons 10 (polar pt (/ pi 4) 10))
     
224.                 lst
     
225.                 ) ;subst
     
226.         ) ;entmod
     
227.         (entupd (cdr (assoc -1 lst)))
     
228.       );pr
     
229.      );if
     
230. 
     
231.         (entmod (subst
     
232.                 (cons 10 serialnumberpt)
     
233.                 (assoc 10 lst1)
     
234.                 lst1
     
235.                 ) ;subst
     
236.         ) ;entmod
     
237.         (entupd (cdr (assoc -1 lst1)))
     
238. 
     
239.       (vla-put-textalignmentpoint oldtext (vlax-3d-point serialnumberpt))
     
240. 
     
241.       );or
     
242. 
     
243.      );cond
     
244. 
     
245.   );while
     
246.   (setq pt nil)
     
247.   (setq getnum (+ 1 getnum))
     
248.   (setq serialnumberpt1 serialnumberpt)
     
249. );while
     
250. 
     
251. (setvar "clayer" mylay)
     
252. (setvar "dimasz" myasz)
     
253. (setvar "dimclrd" myclrd)
     
254. (setvar "DIMLDRBLK" myblk)
     
255. (command "._undo" "_E")
     
256. (setvar "cmdecho" 1)
     
257. ;(princ)
     
258. ) ;defun
     
259. 
     
260. (defun ball:number ();对话框
     
261. (setq fname (vl-filename-mktemp nil nil ".dcl"))
     
262. (setq fn (open fname "w"))
     
263. (write-line "ballnumber:dialog {" fn)
     
264. (write-line "    label = "LCH工具箱-球标编号V0.1" ;" fn)
     
265. (write-line "    :column {" fn)
     
266. (write-line "        :row {" fn)
     
267. (write-line "            :image_button {" fn)
     
268. (write-line "                aspect_ratio = 1 ;" fn)
     
269. (write-line "                color = -2 ;" fn)
     
270. (write-line "                fixed_width = true ;" fn)
     
271. (write-line "                key = "gread1" ;" fn)
     
272. (write-line "                width = 23 ;" fn)
     
273. (write-line "            }" fn)
     
274. (write-line "            :image_button {" fn)
     
275. (write-line "                aspect_ratio = 1 ;" fn)
     
276. (write-line "                color = -2 ;" fn)
     
277. (write-line "                fixed_width = true ;" fn)
     
278. (write-line "                key = "gread2" ;" fn)
     
279. (write-line "                width = 23 ;" fn)
     
280. (write-line "            }" fn)
     
281. (write-line "            :image_button {" fn)
     
282. (write-line "                aspect_ratio = 1 ;" fn)
     
283. (write-line "                color = -2 ;" fn)
     
284. (write-line "                fixed_width = true ;" fn)
     
285. (write-line "                key = "gread3" ;" fn)
     
286. (write-line "                width = 23 ;" fn)
     
287. (write-line "            }" fn)
     
288. (write-line "        }" fn)
     
289. (write-line "        :column {" fn)
     
290. (write-line "            fixed_height = true ;" fn)
     
291. (write-line "            height = 7 ;" fn)
     
292. (write-line "            label = "球标编号设置" ;" fn)
     
293. (write-line "            :row {" fn)
     
294. (write-line "                :text {" fn)
     
295. (write-line "                    fixed_width = true ;" fn)
     
296. (write-line "                    label = "引线颜色" ;" fn)
     
297. (write-line "                    width = 5 ;" fn)
     
298. (write-line "                }" fn)
     
299. (write-line "                :image_button {" fn)
     
300. (write-line "                    fixed_height = true ;" fn)
     
301. (write-line "                    fixed_width = true ;" fn)
     
302. (write-line "                    height = 2 ;" fn)
     
303. (write-line "                    key = "gread4" ;" fn)
     
304. (write-line "                    width = 10 ;" fn)
     
305. (write-line "                }" fn)
     
306. (write-line "                :text {" fn)
     
307. (write-line "                    fixed_width = true ;" fn)
     
308. (write-line "                    label = "球号颜色" ;" fn)
     
309. (write-line "                    width = 5 ;" fn)
     
310. (write-line "                }" fn)
     
311. (write-line "                :image_button {" fn)
     
312. (write-line "                    fixed_height = true ;" fn)
     
313. (write-line "                    fixed_width = true ;" fn)
     
314. (write-line "                    height = 2 ;" fn)
     
315. (write-line "                    key = "gread5" ;" fn)
     
316. (write-line "                    width = 10 ;" fn)
     
317. (write-line "                }" fn)
     
318. (write-line "                :text {" fn)
     
319. (write-line "                    fixed_width = true ;" fn)
     
320. (write-line "                    label = "文字颜色" ;" fn)
     
321. (write-line "                    width = 5 ;" fn)
     
322. (write-line "                }" fn)
     
323. (write-line "                :image_button {" fn)
     
324. (write-line "                    fixed_height = true ;" fn)
     
325. (write-line "                    fixed_width = true ;" fn)
     
326. (write-line "                    height = 2 ;" fn)
     
327. (write-line "                    key = "gread6" ;" fn)
     
328. (write-line "                    width = 10 ;" fn)
     
329. (write-line "                }" fn)
     
330. (write-line "            }" fn)
     
331. (write-line "            :row {" fn)
     
332. (write-line "                :popup_list {" fn)
     
333. (write-line "                    fixed_width = true ;" fn)
     
334. (write-line "                    key = "getstyle" ;" fn)
     
335. (write-line "                    label = "文字样式" ;" fn)
     
336. (write-line "                    width = 24 ;" fn)
     
337. (write-line "                }" fn)
     
338. (write-line "                :edit_box {" fn)
     
339. (write-line "                    fixed_width = true ;" fn)
     
340. (write-line "                    key = "getheight" ;" fn)
     
341. (write-line "                    label = "文字高度" ;" fn)
     
342. (write-line "                    width = 20 ;" fn)
     
343. (write-line "                }" fn)
     
344. (write-line "                :edit_box {" fn)
     
345. (write-line "                    fixed_width = true ;" fn)
     
346. (write-line "                    key = "getwidth" ;" fn)
     
347. (write-line "                    label = "宽度因子" ;" fn)
     
348. (write-line "                    width = 20 ;" fn)
     
349. (write-line "                }" fn)
     
350. (write-line "            }" fn)
     
351. (write-line "            :row {" fn)
     
352. (write-line "                :edit_box {" fn)
     
353. (write-line "                    fixed_width = true ;" fn)
     
354. (write-line "                    key = "getsize" ;" fn)
     
355. (write-line "                    label = "箭头大小" ;" fn)
     
356. (write-line "                    width = 24 ;" fn)
     
357. (write-line "                }" fn)
     
358. (write-line "                :edit_box {" fn)
     
359. (write-line "                    fixed_width = true ;" fn)
     
360. (write-line "                    key = "getnumber" ;" fn)
     
361. (write-line "                    label = "起始编号" ;" fn)
     
362. (write-line "                    width = 20 ;" fn)
     
363. (write-line "                }" fn)
     
364. (write-line "                :text {" fn)
     
365. (write-line "                    width = 21 ;" fn)
     
366. (write-line "                }" fn)
     
367. (write-line "            }" fn)
     
368. (write-line "        }" fn)
     
369. (write-line "        :text {" fn)
     
370. (write-line "            height = 10 ;" fn)
     
371. (write-line "            value = "\\n使用说明:\\n  1、球标编号设置部分设置好后，以后打开任何一份图纸都可以用这个设置来标注\\n  2、标注球号时鼠标在上一个球号附近会自动水平或垂直对齐\\n  3、感谢你的使用\\n\\n                                                   作者：LCH\\n                                                   制作日期:2016-01-01" ;" fn)
     
372. (write-line "        }" fn)
     
373. (write-line "    }" fn)
     
374. (write-line "    :button {" fn)
     
375. (write-line "        is_cancel = true ;" fn)
     
376. (write-line "        height = 3 ;" fn)
     
377. (write-line "        width = 10 ;" fn)
     
378. (write-line "        key = "cancel" ;" fn)
     
379. (write-line "        label = "退出" ;" fn)
     
380. (write-line "    }" fn)
     
381. (write-line "}" fn)
     
382. (close fn)
     
383. 
     
384. (setq dclid (load_dialog fname))
     
385. (new_dialog "ballnumber" dclid)
     
386. 
     
387. (ball_data);初始化数据
     
388. (ball_action);按键处理
     
389. 
     
390. (setq ball_id (start_dialog))
     
391. (unload_dialog dclid)
     
392. (vl-file-delete fname)
     
393. 
     
394. (princ)
     
395. )
     
396. 
     
397. (defun ball_data();初始化数据
     
398. (setq ball_lst (lch:getfile "D:\\Program Files\\ballnumber.dat"))
     
399. (setq stylelst (lch:get-table "style"))
     
400. (if (= ball_lst nil)
     
401. (progn
     
402. (setq numblst (list "4" "4" "6" (car stylelst) "10" "0.67" "10"))
     
403. (setq ball_lst numblst)
     
404. (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))
     
405. (setq i 0)
     
406.   (while (< i (length numblst))
     
407.    (write-line (nth i numblst) ff)
     
408.    (setq i (+ 1 i))
     
409.   );wh
     
410.   (close ff)
     
411. );pr
     
412. );if
     
413. 
     
414. (setq cgr4 (atoi (nth 0 ball_lst)));引线颜色
     
415. (setq cgr5 (atoi (nth 1 ball_lst)));球号颜色
     
416. (setq cgr6 (atoi (nth 2 ball_lst)));文字颜色
     
417. (setq txtsty (nth 3 ball_lst));文字样式
     
418. (setq txthei (nth 4 ball_lst));文字高度
     
419. (setq txtwid (nth 5 ball_lst));宽度因子
     
420. (setq bousiz (nth 6 ball_lst));箭头大小
     
421. 
     
422. (lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片
     
423. (lch:img "gread2" "D:\\lchwz\\球标编号\\ball-2" -2);圆点箭头球标编号幻灯片
     
424. (lch:img "gread3" "D:\\lchwz\\球标编号\\ball-3" -2);实心箭头球标编号幻灯片
     
425. 
     
426. (c_img "gread4" cgr4);引线颜色
     
427. (c_img "gread5" cgr5);球号颜色
     
428. (c_img "gread6" cgr6);文字颜色
     
429. 
     
430. ;处理文字样式列表
     
431.   (setq lch_in 0)
     
432.   (start_list "getstyle" 3 0)
     
433.     (repeat (length stylelst)
     
434.      (add_list (nth lch_in stylelst))
     
435.      (setq lch_in (1+ lch_in))
     
436.     );re
     
437.     (end_list)
     
438. ;提取文字样式
     
439.   (if (= (vl-position txtsty stylelst) nil)
     
440.    (setq getstyle "0")
     
441.    (setq getstyle (itoa (vl-position txtsty stylelst)))
     
442.   )
     
443. 
     
444. (set_tile "getstyle" getstyle);文字样式
     
445. (set_tile "getheight" txthei);文字高度
     
446. (set_tile "getwidth" txtwid);宽度因子
     
447. (set_tile "getsize" bousiz);箭头大小
     
448. 
     
449. (setq sswz nil)
     
450. (setq wzname nil)
     
451. (setq sswz (ssget "X" '((0 . "text") (8 . "ball") )))
     
452. (if sswz
     
453. (progn
     
454.    (setq i 0)
     
455.    (repeat (sslength sswz)
     
456.      (setq en (entget (ssname sswz i)))
     
457.      (setq wzname (cons (atoi (cdr (assoc 1 en))) wzname))
     
458.      (setq i (1+ i))
     
459.    );re
     
460.    (setq getnum (+ (car (vl-sort wzname '>)) 1))
     
461.    (setq i1 0)
     
462.    (repeat (sslength sswz)
     
463.      (setq en1 (entget (ssname sswz i1)))
     
464.      (setq wzname1 (cdr (assoc 1 en1) ))
     
465.      (if (= wzname1 (itoa (- getnum 1)))
     
466.       (setq serialnumberpt1 (cdr (assoc 11 en1)))
     
467.      );if
     
468.      (setq i (1+ i1))
     
469.    );re
     
470. );pr
     
471. (progn
     
472.   (setq serialnumberpt1 nil)
     
473.   (setq getnum 1)
     
474. );pr
     
475. );if
     
476. 
     
477. 
     
478. (set_tile "getnumber" (itoa getnum));起始编号
     
479. 
     
480. );de
     
481. 
     
482. (defun ball_action ();按键处理
     
483.     (action_tile "gread1" "(ball_getaction) (ball_save) (done_dialog 1)");无箭头球标编号
     
484.     (action_tile "gread2" "(ball_getaction) (ball_save) (done_dialog 2)");圆点箭头球标编号
     
485.     (action_tile "gread3" "(ball_getaction) (ball_save) (done_dialog 3)");实心箭头球标编号
     
486.     (action_tile "gread4" "(setq cgr4 (c_c cgr4)) (c_img $key cgr4)");引线颜色
     
487.     (action_tile "gread5" "(setq cgr5 (c_c cgr5)) (c_img $key cgr5)");球号颜色
     
488.     (action_tile "gread6" "(setq cgr6 (c_c cgr6)) (c_img $key cgr6)");文字颜色
     
489.     (action_tile "cancel" "(ball_getaction) (ball_save) (done_dialog -1)");退出按钮
     
490. )
     
491. 
     
492. (defun ball_getaction ();提取数据
     
493. (setq cgr4 (itoa cgr4));引线颜色
     
494. (setq cgr5 (itoa cgr5));球号颜色
     
495. (setq cgr6 (itoa cgr6));文字颜色
     
496. (setq txtsty (nth (atoi (get_tile "getstyle")) stylelst));文字样式
     
497. (setq txthei (get_tile "getheight"));文字高度
     
498. (setq txtwid (get_tile "getwidth"));宽度因子
     
499. (setq getsiz (get_tile "getsize"));箭头大小
     
500. (setq getnum (atoi (get_tile "getnumber")));起始编号
     
501. );de提取数据
     
502. 
     
503. (defun ball_save();保存数据
     
504. (setq savenum (list cgr4 cgr5 cgr6 txtsty txthei txtwid getsiz))
     
505. (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))
     
506. (setq i 0)
     
507.   (while (< i (length savenum))
     
508.    (write-line (nth i savenum) ff)
     
509.    (setq i (+ 1 i))
     
510.   );wh
     
511.   (close ff)
     
512. )
     
513. 
     
514. (defun c_c(color / ccc)
     
515.     (setq ccc(acad_colordlg color nil))
     
516.     (if (not ccc) (setq ccc color))
     
517.     ccc
     
518.   )
     
519. 
     
520.   (defun c_img (key color)                ;定义初始化颜色图像按钮数
     
521.     (if color
     
522.       (progn
     
523.         (start_image key)
     
524.         (fill_image 0 0 (dimx_tile key) (dimy_tile key) color)
     
525.         (end_image)
     
526.       )
     
527.     )
     
528.   )

;函数：lch:getfile 功能：读取文件并按行将文件转换为表<br /> ;返回值：返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil<br /> ;语法：(lch:getfile files) 参数：files：文本文件名，如未指定路径则自动在搜索路径中查找文件<br /> ;示例：(lch:getfile "tyl.ini")  <br /> ;函数代码：<br /> (defun lch:getfile(files / tmplst x fn)<br />   (setq files(findfile files))<br />   (if files<br />     (progn<br />       (setq fn (open  files "r"))<br />       (while (setq x (read-line fn))<br />         (setq tmplst(append tmplst(list x)))<br />       )<br />       (close fn)<br />       tmplst<br />     )<br />      nil<br />   )<br /> )<br /> <br /> ;S值为 "LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" 和 "VPORT"。<br />   (defun lch:get-table (S / sty style sty_list)<br />     (setq sty_list nil<br />     sty (tblnext S t)<br />     )<br />     (setq style (cdr (assoc 2 sty)))<br />     (while style<br />       (if (/= "" style)<br />   (setq sty_list (append<br />        sty_list<br />        (list style)<br />            )<br />   )<br />       )<br />       (setq sty (tblnext S))<br />       (setq style (cdr (assoc 2 sty)))<br />     )               ; end while]<br />     (setq sty_list (ACAD_Strlsort sty_list))<br />     sty_list<br />   )<br /> <br /> ;;语法 (lch:img img_key slide cobak)<br /> ;;img_key 图像控件关键字<br /> ;;slide 幻灯片名字<br /> ;;cobak 图像控件底色<br /> ;;功能：对话框图像初始化<br /> (defun lch:img (imgkey slide cobak /  x1  y1)<br />   (setq x1(dimx_tile imgkey))<br />   (setq y1(dimy_tile imgkey))<br />   (start_image imgkey)<br />   (fill_image 0 0 x1 y1 cobak)<br />   (slide_image 0 0 x1 y1 slide)<br />   (end_image)<br /> )<br /> <br /> <br /> <br /> <br /> <br /> ;;画球标编号<br /> (defun c:ee()<br /> (prompt "LCH<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>箱-球标编号V0.1\n")<br /> (ball:number);对话框<br /> (if (> ball_id 0)<br />   (ball_qb)<br /> )<br /> (princ)<br /> )<br /> <br /> (defun ball_qb ();画球标编号程序<br />    (defun *error* (msg)<br />     (setvar "clayer" mylay)<br />     (setvar "dimasz" myasz)<br />     (setvar "dimclrd" myclrd)<br />     (setvar "DIMLDRBLK" myblk)<br />     (command "._undo" "_E")<br />     (setvar "cmdecho" 1)<br />    (if (/= pt nil)<br />     (progn<br />      (if (or (= ball_id 2) (= ball_id 3))<br />       (entdel e1)<br />      )<br />      (entdel e2)<br />      (entdel e3)<br />     )<br />    );if<br />     ;(princ (msg))<br />    )<br /> (setvar "cmdecho" 0)<br /> (command "._undo" "_BE")<br /> (setq mylay (getvar "clayer"))<br /> (setq myblk (getvar "dimldrblk"))<br /> (if (= myblk "")<br /> (setq myblk ".")<br /> )<br /> (setq myasz (getvar "dimasz"))<br /> (setq myclrd (getvar "dimclrd"))<br /> <br /> (if (not (tblsearch "layer" "ball" )) <br /> (command "layer" "new" "ball" "s" "ball" "C" 7 "" "L" "CONTINUOUS" "" "LW" 0.13 "" "")<br /> )<br /> <br /> (setvar "clayer" "ball")<br /> <br /> (while<br /> (if (= ball_id 1)<br />     (setq pt (list 0 0))<br />   (progn<br />    (setq pt (getpoint (strcat "\n->当前编号:" (itoa getnum) "  文字高度:" txthei"\n->指定序号引线起点或<退出>:")))<br /> <br />   (setq lst (entget<br />               (entmakex<br />                (list<br />                  '(0 . "LEADER")<br />                  '(100 . "AcDbEntity")<br />                  '(100 . "AcDbLeader")<br />                  (cons 10 pt)<br />                  (cons 10 (polar pt (/ pi 4) 10))<br />                );list<br />               );entmakex<br />             );entget<br />   );setq<br />    (setq oldlead (vlax-ename->vla-object (entlast)))<br />    (if (= ball_id 2);箭头类型<br />      (vla-put-ArrowheadType oldlead acArrowdot);圆点箭头<br />      (vla-put-ArrowheadType oldlead acArrowdefault);实心箭头<br />    )<br />    (vla-put-ArrowheadSize oldlead (atof getsiz));箭头大小<br />    (vla-put-DimensionLineColor oldlead (atof cgr4));引线颜色<br />    (setq e1 (entlast))<br />   );pr<br /> );if<br /> <br />   (setq lst1 (entget<br />                (entmakex<br />                 (list<br />                   '(0 . "circle")<br />                   (cons 62 (atoi cgr5));圆颜色<br />                   (cons 10 pt);圆心坐标<br />                   (cons 40 (atof txthei));圆半径<br />                 );list<br />                );entmakex<br />              );entget<br />   );setq<br />   (setq e2 (entlast))<br /> <br />   (setq lst2 (entget<br />                (entmakex<br />                 (list<br />                   '(0 . "text")<br />                   (cons 1 (itoa getnum));编号<br />                   (cons 7 txtsty);文字样式<br />                   (cons 62 (atoi cgr6));文字颜色<br />                   (cons 10 pt);文字中心坐标<br />                   (cons 40 (atof txthei));文字高度<br />                   '(71 . 0)<br />                   '(72 . 1)<br />                   '(73 . 2)<br />                   (cons 41 (atof txtwid));宽度因子<br />                   (cons 11 pt);文字中心坐标<br />                 );list<br />                );entmakex<br />              );entget<br />   );setq<br />   (setq oldtext (vlax-ename->vla-object (entlast)))<br />   (setq e3 (entlast))<br /> <br />   (princ "\n->指定序号标注位置或<退出>:")<br />   (setq tag T)<br />   (while tag<br />    (setq code (grread T 15 0));;;读取输入<br /> <br />      (cond<br />       ((or (= (car code) 5) (= (car code) 3))<br />        (if (= (car code) 3) (setq tag nil));if<br /> <br />         (if serialnumberpt1<br />           (progn<br />             (if (< (- (car serialnumberpt1) (* 1.2 (atof txthei))) (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))) ;X坐标范围<br />              (progn<br />               (if (or (< (cadr (cadr code)) (- (cadr serialnumberpt1) (* 2.5 (atof txthei))))<br />                       (> (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))))<br />                   );or<br />                (setq serialnumberpt (list (car serialnumberpt1) (cadr (cadr code))))<br />               );if<br />               (if (< (- (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))<br />                (setq serialnumberpt (list (car serialnumberpt1) (- (cadr serialnumberpt1) (* 2.5 (atof txthei)))))<br />               );if<br />               (if (> (+ (cadr serialnumberpt1) (* 2.5 (atof txthei))) (cadr (cadr code)) (cadr serialnumberpt1))<br />                (setq serialnumberpt (list (car serialnumberpt1) (+ (cadr serialnumberpt1) (* 2.5 (atof txthei)))))<br />               );if<br />              );pr<br />             );if<br />             (if (< (- (cadr serialnumberpt1) (* 1.2 (atof txthei))) (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))) ;Y坐标范围<br />              (progn<br />               (if (or (< (car (cadr code)) (- (car serialnumberpt1) (* 2.5 (atof txthei))))<br />                       (> (car (cadr code)) (+ (car serialnumberpt1) (* 2.5 (atof txthei))))<br />                   );or<br />                (setq serialnumberpt (list (car (cadr code)) (cadr serialnumberpt1)))<br />               );if<br />               (if (< (- (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))<br />                (setq serialnumberpt (list (- (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))<br />               );if<br />               (if (> (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (car (cadr code)) (car serialnumberpt1))<br />                (setq serialnumberpt (list (+ (car serialnumberpt1) (* 2.5 (atof txthei))) (cadr serialnumberpt1)))<br />               );if<br />              );pr<br />             );if<br />             (if (and (or (<= (car (cadr code)) (- (car serialnumberpt1) (* 1.2 (atof txthei)))) (>= (car (cadr code)) (+ (car serialnumberpt1) (* 1.2 (atof txthei)))))<br />                      (or (<= (cadr (cadr code)) (- (cadr serialnumberpt1) (* 1.2 (atof txthei)))) (>= (cadr (cadr code)) (+ (cadr serialnumberpt1) (* 1.2 (atof txthei)))))<br />                 );and<br />               (setq serialnumberpt (cadr code))<br />             );if<br />           );pr<br />          (setq serialnumberpt (cadr code))<br />         );if<br /> <br />      (if (or (= ball_id 2) (= ball_id 3))<br />       (progn<br />         (entmod (subst<br />                 (cons 10 (polar pt (angle pt serialnumberpt) (- (distance pt serialnumberpt) (atof txthei)) ))<br />                 (cons 10 (polar pt (/ pi 4) 10))<br />                 lst<br />                 ) ;subst<br />         ) ;entmod<br />         (entupd (cdr (assoc -1 lst)))<br />       );pr<br />      );if<br /> <br />         (entmod (subst<br />                 (cons 10 serialnumberpt)<br />                 (assoc 10 lst1)<br />                 lst1<br />                 ) ;subst<br />         ) ;entmod<br />         (entupd (cdr (assoc -1 lst1)))<br /> <br />       (vla-put-textalignmentpoint oldtext (vlax-3d-point serialnumberpt))<br /> <br />       );or<br /> <br />      );cond<br /> <br />   );while<br />   (setq pt nil)<br />   (setq getnum (+ 1 getnum))<br />   (setq serialnumberpt1 serialnumberpt)<br /> );while<br /> <br /> (setvar "clayer" mylay)<br /> (setvar "dimasz" myasz)<br /> (setvar "dimclrd" myclrd)<br /> (setvar "DIMLDRBLK" myblk)<br /> (command "._undo" "_E")<br /> (setvar "cmdecho" 1)<br /> ;(princ)<br /> ) ;defun<br /> <br /> (defun ball:number ();对话框<br /> (setq fname (vl-filename-mktemp nil nil ".dcl"))<br /> (setq fn (open fname "w"))<br /> (write-line "ballnumber:dialog {" fn)<br /> (write-line "    label = "LCH工具箱-球标编号V0.1" ;" fn)<br /> (write-line "    :column {" fn)<br /> (write-line "        :row {" fn)<br /> (write-line "            :image_button {" fn)<br /> (write-line "                aspect_ratio = 1 ;" fn)<br /> (write-line "                color = -2 ;" fn)<br /> (write-line "                fixed_width = true ;" fn)<br /> (write-line "                key = "gread1" ;" fn)<br /> (write-line "                width = 23 ;" fn)<br /> (write-line "            }" fn)<br /> (write-line "            :image_button {" fn)<br /> (write-line "                aspect_ratio = 1 ;" fn)<br /> (write-line "                color = -2 ;" fn)<br /> (write-line "                fixed_width = true ;" fn)<br /> (write-line "                key = "gread2" ;" fn)<br /> (write-line "                width = 23 ;" fn)<br /> (write-line "            }" fn)<br /> (write-line "            :image_button {" fn)<br /> (write-line "                aspect_ratio = 1 ;" fn)<br /> (write-line "                color = -2 ;" fn)<br /> (write-line "                fixed_width = true ;" fn)<br /> (write-line "                key = "gread3" ;" fn)<br /> (write-line "                width = 23 ;" fn)<br /> (write-line "            }" fn)<br /> (write-line "        }" fn)<br /> (write-line "        :column {" fn)<br /> (write-line "            fixed_height = true ;" fn)<br /> (write-line "            height = 7 ;" fn)<br /> (write-line "            label = "球标编号设置" ;" fn)<br /> (write-line "            :row {" fn)<br /> (write-line "                :text {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    label = "引线颜色" ;" fn)<br /> (write-line "                    width = 5 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :image_button {" fn)<br /> (write-line "                    fixed_height = true ;" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    height = 2 ;" fn)<br /> (write-line "                    key = "gread4" ;" fn)<br /> (write-line "                    width = 10 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :text {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    label = "球号颜色" ;" fn)<br /> (write-line "                    width = 5 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :image_button {" fn)<br /> (write-line "                    fixed_height = true ;" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    height = 2 ;" fn)<br /> (write-line "                    key = "gread5" ;" fn)<br /> (write-line "                    width = 10 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :text {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    label = "文字颜色" ;" fn)<br /> (write-line "                    width = 5 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :image_button {" fn)<br /> (write-line "                    fixed_height = true ;" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    height = 2 ;" fn)<br /> (write-line "                    key = "gread6" ;" fn)<br /> (write-line "                    width = 10 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "            }" fn)<br /> (write-line "            :row {" fn)<br /> (write-line "                :popup_list {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    key = "getstyle" ;" fn)<br /> (write-line "                    label = "文字样式" ;" fn)<br /> (write-line "                    width = 24 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :edit_box {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    key = "getheight" ;" fn)<br /> (write-line "                    label = "文字高度" ;" fn)<br /> (write-line "                    width = 20 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :edit_box {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    key = "getwidth" ;" fn)<br /> (write-line "                    label = "宽度因子" ;" fn)<br /> (write-line "                    width = 20 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "            }" fn)<br /> (write-line "            :row {" fn)<br /> (write-line "                :edit_box {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    key = "getsize" ;" fn)<br /> (write-line "                    label = "箭头大小" ;" fn)<br /> (write-line "                    width = 24 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :edit_box {" fn)<br /> (write-line "                    fixed_width = true ;" fn)<br /> (write-line "                    key = "getnumber" ;" fn)<br /> (write-line "                    label = "起始编号" ;" fn)<br /> (write-line "                    width = 20 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "                :text {" fn)<br /> (write-line "                    width = 21 ;" fn)<br /> (write-line "                }" fn)<br /> (write-line "            }" fn)<br /> (write-line "        }" fn)<br /> (write-line "        :text {" fn)<br /> (write-line "            height = 10 ;" fn)<br /> (write-line "            value = "\\n使用说明:\\n  1、球标编号设置部分设置好后，以后打开任何一份图纸都可以用这个设置来标注\\n  2、标注球号时鼠标在上一个球号附近会自动水平或垂直对齐\\n  3、感谢你的使用\\n\\n                                                   作者：LCH\\n                                                   制作日期:2016-01-01" ;" fn)<br /> (write-line "        }" fn)<br /> (write-line "    }" fn)<br /> (write-line "    :button {" fn)<br /> (write-line "        is_cancel = true ;" fn)<br /> (write-line "        height = 3 ;" fn)<br /> (write-line "        width = 10 ;" fn)<br /> (write-line "        key = "cancel" ;" fn)<br /> (write-line "        label = "退出" ;" fn)<br /> (write-line "    }" fn)<br /> (write-line "}" fn)<br /> (close fn)<br /> <br /> (setq dclid (load_dialog fname))<br /> (new_dialog "ballnumber" dclid)<br /> <br /> (ball_data);初始化数据<br /> (ball_action);按键处理<br /> <br /> (setq ball_id (start_dialog))<br /> (unload_dialog dclid)<br /> (vl-file-delete fname)<br /> <br /> (princ)<br /> )<br /> <br /> (defun ball_data();初始化数据<br /> (setq ball_lst (lch:getfile "D:\\Program Files\\ballnumber.dat"))<br /> (setq stylelst (lch:get-table "style"))<br /> (if (= ball_lst nil)<br /> (progn<br /> (setq numblst (list "4" "4" "6" (car stylelst) "10" "0.67" "10"))<br /> (setq ball_lst numblst)<br /> (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))<br /> (setq i 0)<br />   (while (< i (length numblst))<br />    (write-line (nth i numblst) ff)<br />    (setq i (+ 1 i))<br />   );wh<br />   (close ff)<br /> );pr<br /> );if<br /> <br /> (setq cgr4 (atoi (nth 0 ball_lst)));引线颜色<br /> (setq cgr5 (atoi (nth 1 ball_lst)));球号颜色<br /> (setq cgr6 (atoi (nth 2 ball_lst)));文字颜色<br /> (setq txtsty (nth 3 ball_lst));文字样式<br /> (setq txthei (nth 4 ball_lst));文字高度<br /> (setq txtwid (nth 5 ball_lst));宽度因子<br /> (setq bousiz (nth 6 ball_lst));箭头大小<br /> <br /> (lch:img "gread1" "D:\\lchwz\\球标编号\\ball-1" -2);无箭头球标编号幻灯片<br /> (lch:img "gread2" "D:\\lchwz\\球标编号\\ball-2" -2);圆点箭头球标编号幻灯片<br /> (lch:img "gread3" "D:\\lchwz\\球标编号\\ball-3" -2);实心箭头球标编号幻灯片<br /> <br /> (c_img "gread4" cgr4);引线颜色<br /> (c_img "gread5" cgr5);球号颜色<br /> (c_img "gread6" cgr6);文字颜色<br /> <br /> ;处理文字样式列表<br />   (setq lch_in 0)<br />   (start_list "getstyle" 3 0)<br />     (repeat (length stylelst)<br />      (add_list (nth lch_in stylelst))<br />      (setq lch_in (1+ lch_in))<br />     );re<br />     (end_list)<br /> ;提取文字样式<br />   (if (= (vl-position txtsty stylelst) nil)<br />    (setq getstyle "0")<br />    (setq getstyle (itoa (vl-position txtsty stylelst)))<br />   )<br /> <br /> (set_tile "getstyle" getstyle);文字样式<br /> (set_tile "getheight" txthei);文字高度<br /> (set_tile "getwidth" txtwid);宽度因子<br /> (set_tile "getsize" bousiz);箭头大小<br /> <br /> (setq sswz nil)<br /> (setq wzname nil)<br /> (setq sswz (ssget "X" '((0 . "text") (8 . "ball") )))<br /> (if sswz<br /> (progn<br />    (setq i 0)<br />    (repeat (sslength sswz)<br />      (setq en (entget (ssname sswz i)))<br />      (setq wzname (cons (atoi (cdr (assoc 1 en))) wzname))<br />      (setq i (1+ i))<br />    );re<br />    (setq getnum (+ (car (vl-sort wzname '>)) 1))<br />    (setq i1 0)<br />    (repeat (sslength sswz)<br />      (setq en1 (entget (ssname sswz i1)))<br />      (setq wzname1 (cdr (assoc 1 en1) ))<br />      (if (= wzname1 (itoa (- getnum 1)))<br />       (setq serialnumberpt1 (cdr (assoc 11 en1)))<br />      );if<br />      (setq i (1+ i1))<br />    );re<br /> );pr<br /> (progn<br />   (setq serialnumberpt1 nil)<br />   (setq getnum 1)<br /> );pr<br /> );if<br /> <br /> <br /> (set_tile "getnumber" (itoa getnum));起始编号<br /> <br /> );de<br /> <br /> (defun ball_action ();按键处理<br />     (action_tile "gread1" "(ball_getaction) (ball_save) (done_dialog 1)");无箭头球标编号<br />     (action_tile "gread2" "(ball_getaction) (ball_save) (done_dialog 2)");圆点箭头球标编号<br />     (action_tile "gread3" "(ball_getaction) (ball_save) (done_dialog 3)");实心箭头球标编号<br />     (action_tile "gread4" "(setq cgr4 (c_c cgr4)) (c_img $key cgr4)");引线颜色<br />     (action_tile "gread5" "(setq cgr5 (c_c cgr5)) (c_img $key cgr5)");球号颜色<br />     (action_tile "gread6" "(setq cgr6 (c_c cgr6)) (c_img $key cgr6)");文字颜色<br />     (action_tile "cancel" "(ball_getaction) (ball_save) (done_dialog -1)");退出按钮<br /> )<br /> <br /> (defun ball_getaction ();提取数据<br /> (setq cgr4 (itoa cgr4));引线颜色<br /> (setq cgr5 (itoa cgr5));球号颜色<br /> (setq cgr6 (itoa cgr6));文字颜色<br /> (setq txtsty (nth (atoi (get_tile "getstyle")) stylelst));文字样式<br /> (setq txthei (get_tile "getheight"));文字高度<br /> (setq txtwid (get_tile "getwidth"));宽度因子<br /> (setq getsiz (get_tile "getsize"));箭头大小<br /> (setq getnum (atoi (get_tile "getnumber")));起始编号<br /> );de提取数据<br /> <br /> (defun ball_save();保存数据<br /> (setq savenum (list cgr4 cgr5 cgr6 txtsty txthei txtwid getsiz))<br /> (setq ff (open "D:\\Program Files\\ballnumber.dat" "w"))<br /> (setq i 0)<br />   (while (< i (length savenum))<br />    (write-line (nth i savenum) ff)<br />    (setq i (+ 1 i))<br />   );wh<br />   (close ff)<br /> )<br /> <br /> (defun c_c(color / ccc)<br />     (setq ccc(acad_colordlg color nil))<br />     (if (not ccc) (setq ccc color))<br />     ccc<br />   )<br /> <br />   (defun c_img (key color)                ;定义初始化颜色图像按钮数<br />     (if color<br />       (progn<br />         (start_image key)<br />         (fill_image 0 0 (dimx_tile key) (dimy_tile key) color)<br />         (end_image)<br />       )<br />     )<br />   )

纵横八方

球标编号幻灯片......

纵横八方

顶起来哇！

ajunseo

顶起来哇！

muai2010

估计有点难了，自己试试把