[LISP程序]：点坐标读去排序输出

ago9999

2. ;;;;;;;;;;;;;;
   
3. ;;;;;;;;;;;;;;点暂时设置为圆心，想要其它点的可以自己改一下
   
4. ;;;;;;;;;;;;;;(sta)(end)我其它程序里都有，大家可以去拿一下。
   
5. (defun c:zb(/ szcs xhgd wzgd bghg bglk bghs dzb_ss n fgs pt_n pt_x pt_y pt_z mx my )
   
6.   (sta);;;;;;;
   
7.   ;;;默认设置
   
8.      (if (= xhgd0 nil)(setq xhgd0 3.5))
   
9.      (setq xhgd xhgd0)
   
10.      (if (= wzgd0 nil)(setq wzgd0 2.5))
    
11.      (setq wzgd wzgd0)
    
12.      (if (= bghg0 nil)(setq bghg0 5))
    
13.      (setq bghg bghg0)
    
14.      (if (= bglk0 nil)(setq bglk0 15))
    
15.      (setq bglk bglk0)
    
16.      (if (= bghs0 nil)(setq bghs0 20))
    
17.      (setq bghs bghs0)
    
18.   (princ "\n欢迎使用圆心坐标读取书写程序")
    
19.   (princ "\n[序号高度x]")(princ xhgd)
    
20.   (princ "[文字高度w]")(princ wzgd)
    
21.   (princ "[表格行高h]")(princ bghg)
    
22.   (princ "[表格列宽l]")(princ bglk)
    
23.   (princ "[表格行数s]")(princ bghs)
    
24.   (princ "[恢复默认f]:")
    
25.   (setq szcs (getstring))
    
26.   ;;;参数设置
    
27.   (while (or (equal szcs "x")(equal szcs "X")(equal szcs "w")(equal szcs "W")
    
28.              (equal szcs "h")(equal szcs "H")(equal szcs "l")(equal szcs "L")
    
29.              (equal szcs "s")(equal szcs "S")(equal szcs "f")(equal szcs "F"))
    
30.     (cond
    
31.       ((or (equal szcs "x")(equal szcs "X"))
    
32.      (if (= xhgd0 nil)(setq xhgd0 3.5))
    
33.      (princ "\n请输入序号高度(")(princ xhgd0)(princ "):")
    
34.      (setq xhgd (getreal))
    
35.      (if (= xhgd nil)(setq xhgd xhgd0) (setq xhgd0 xhgd))
    
36.        );
    
37. 
    
38.       ((or (equal szcs "w")(equal szcs "W"))
    
39.      (if (= wzgd0 nil)(setq wzgd0 2.5))
    
40.      (princ "\n请输入文字高度(")(princ wzgd0)(princ "):")
    
41.      (setq wzgd (getreal))
    
42.      (if (= wzgd nil)(setq wzgd wzgd0) (setq wzgd0 wzgd))
    
43.        );
    
44. 
    
45.       ((or (equal szcs "h")(equal szcs "H"))
    
46.      (if (= bghg0 nil)(setq bghg0 5.0))
    
47.      (princ "\n请输入表格行高(")(princ bghg0)(princ "):")
    
48.      (setq bghg (getreal))
    
49.      (if (= bghg nil)(setq bghg bghg0) (setq bghg0 bghg))
    
50.        );
    
51. 
    
52.       ((or (equal szcs "l")(equal szcs "L"))
    
53.      (if (= bglk0 nil)(setq bglk0 15.0))
    
54.      (princ "\n请输入表格列宽(")(princ bglk0)(princ "):")
    
55.      (setq bglk (getreal))
    
56.      (if (= bglk nil)(setq bglk bglk0) (setq bglk0 bglk))
    
57.        );
    
58. 
    
59.       ((or (equal szcs "s")(equal szcs "S"))
    
60.      (if (= bghs0 nil)(setq bghs0 20))
    
61.      (princ "\n请输入表格行数(")(princ bghs0)(princ "):")
    
62.      (setq bghs (getint))
    
63.      (if (= bghs nil)(setq bghs bghs0)(setq bghs0 bghs));
    
64.       )
    
65.       ((or (equal szcs "f")(equal szcs "F"))
    
66.      (setq xhgd0 3.5)     (setq xhgd xhgd0)
    
67.      (setq wzgd0 2.5)     (setq wzgd wzgd0)
    
68.      (setq bghg0 5)       (setq bghg bghg0)
    
69.      (setq bglk0 15)      (setq bglk bglk0)
    
70.      (setq bghs0 20)      (setq bghs bghs0)
    
71.        );
    
72.       );
    
73.   (princ "\n[序号高度x]")(princ xhgd)
    
74.   (princ "[文字高度w]")(princ wzgd)
    
75.   (princ "[表格行高h]")(princ bghg)
    
76.   (princ "[表格列宽l]")(princ bglk)
    
77.   (princ "[表格行数s]")(princ bghs)
    
78.   (princ "[恢复默认f]:")
    
79.   (setq szcs (getstring))
    
80.     )   
    
81.   
    
82.   (setq dzb_ss (ssget (list (cons 0' "CIRCLE")))); (list (cons 0' "POINT") (cons 0' "CIRCLE"))));
    
83.   (setq pt0 (getpoint "请选择表格起点"))
    
84.   (setq n 0)
    
85.   ;;;画表格
    
86.   (setq fgs (fix (/ (sslength dzb_ss) bghs)))
    
87.   (if (< fgs (/ (sslength dzb_ss) bghs))
    
88.     (setq fgs (+ 1 fgs)))
    
89.   (setq fgs (+ 1 fgs))
    
90.   (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)
    
91.            (list (+ (nth 0 pt0) (* 3.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0) "");画横线
    
92.   (command "-array" (ssget "l") ""  "r" (+ 2 (fix bghs)) fgs (* -1 bghg) (* 4 bglk))
    
93.   (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)
    
94.            (list (- (nth 0 pt0) (* 0.5 bglk)) (- (nth 1 pt0) (* bghg (+ 0.5 bghs))) 0) "");画竖线
    
95.   (command "-array" (ssget "l") ""  "r" "1" (+ 1 (* 4 fgs)) bglk)
    
96.   ;;;书写表头
    
97.   (command "text" "j" "mc" (list (nth 0 pt0) (- (nth 1 pt0) (* bghg n)) 0)
    
98.              wzgd "0" "序号")
    
99.     (if (> (sslength dzb_ss) bghs)
    
100.   (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
     
101.       )
     
102.   (command "text" "j" "mc" (list (+ bglk (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
     
103.              wzgd "0" "X")
     
104.   (if (> (sslength dzb_ss) bghs)
     
105.       (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
     
106.       )
     
107.   (command "text" "j" "mc" (list (+ (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
     
108.              wzgd "0" "Y")
     
109.   (if (> (sslength dzb_ss) bghs)
     
110.       (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
     
111.       )
     
112.   (command "text" "j" "mc" (list (+ (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
     
113.              wzgd "0" "Z")
     
114.   (if (> (sslength dzb_ss) bghs)
     
115.   (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
     
116.       )
     
117.   ;;;循环
     
118.   (while (< n (sslength dzb_ss))
     
119.     (setq pt_n (cdr (assoc '10 (entget(ssname dzb_ss n)))))
     
120.     (setq pt_x (nth 0 pt_n))
     
121.     (setq pt_y (nth 1 pt_n))
     
122.     (setq pt_z (nth 2 pt_n))
     
123.    
     
124.     (setq n (1+ n))
     
125.    
     
126.     (command "text" "j" "mc" pt_n wzgd "0" n);原点书写序号
     
127.    
     
128.     ;;;书写表格内容
     
129.     (setq mx (* 4 (fix (/ (- n 1) bghs)) bglk))
     
130.     (setq my (* (- n (* bghs (fix (/ (- n 1) bghs)))) bghg))
     
131.     (command "text" "j" "mc" (list (+ mx (nth 0 pt0)) (- (nth 1 pt0) my) 0)
     
132.              wzgd "0" n)
     
133.     (command "text" "j" "mc" (list (+ mx bglk (nth 0 pt0)) (- (nth 1 pt0) my) 0)
     
134.              wzgd "0" (rtos pt_x 2 0))
     
135.     (command "text" "j" "mc" (list (+ mx (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)
     
136.              wzgd "0" (rtos pt_y 2 0))
     
137.     (command "text" "j" "mc" (list (+ mx (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)
     
138.              wzgd "0" (rtos pt_z 2 0))           
     
139.   )
     
140.    ;;结束
     
141.   (princ "\n总共读取并输出")(princ n)(princ "个坐标。")
     
142.   (end);;;;;;;;;;;
     
143.   
     
144.   (princ)
     
145.   )

;;;;;;;;;;;;;;<br /> ;;;;;;;;;;;;;;点暂时设置为圆心，想要其它点的可以自己改一下<br /> ;;;;;;;;;;;;;;(sta)(end)我其它程序里都有，大家可以去拿一下。<br /> (defun c:zb(/ szcs xhgd wzgd bghg bglk bghs dzb_ss n fgs pt_n pt_x pt_y pt_z mx my )<br />   (sta);;;;;;;<br />   ;;;默认设置<br />      (if (= xhgd0 nil)(setq xhgd0 3.5))<br />      (setq xhgd xhgd0)<br />      (if (= wzgd0 nil)(setq wzgd0 2.5))<br />      (setq wzgd wzgd0)<br />      (if (= bghg0 nil)(setq bghg0 5))<br />      (setq bghg bghg0)<br />      (if (= bglk0 nil)(setq bglk0 15))<br />      (setq bglk bglk0)<br />      (if (= bghs0 nil)(setq bghs0 20))<br />      (setq bghs bghs0)<br />   (princ "\n欢迎使用圆心坐标读取书写程序")<br />   (princ "\n[序号高度x]")(princ xhgd)<br />   (princ "[文字高度w]")(princ wzgd)<br />   (princ "[表格行高h]")(princ bghg)<br />   (princ "[表格列宽l]")(princ bglk)<br />   (princ "[表格行数s]")(princ bghs)<br />   (princ "[恢复默认f]:")<br />   (setq szcs (getstring))<br />   ;;;参数设置<br />   (while (or (equal szcs "x")(equal szcs "X")(equal szcs "w")(equal szcs "W")<br />              (equal szcs "h")(equal szcs "H")(equal szcs "l")(equal szcs "L")<br />              (equal szcs "s")(equal szcs "S")(equal szcs "f")(equal szcs "F"))<br />     (cond<br />       ((or (equal szcs "x")(equal szcs "X"))<br />      (if (= xhgd0 nil)(setq xhgd0 3.5))<br />      (princ "\n请输入序号高度(")(princ xhgd0)(princ "):")<br />      (setq xhgd (getreal))<br />      (if (= xhgd nil)(setq xhgd xhgd0) (setq xhgd0 xhgd))<br />        );<br /> <br />       ((or (equal szcs "w")(equal szcs "W"))<br />      (if (= wzgd0 nil)(setq wzgd0 2.5))<br />      (princ "\n请输入文字高度(")(princ wzgd0)(princ "):")<br />      (setq wzgd (getreal))<br />      (if (= wzgd nil)(setq wzgd wzgd0) (setq wzgd0 wzgd))<br />        );<br /> <br />       ((or (equal szcs "h")(equal szcs "H"))<br />      (if (= bghg0 nil)(setq bghg0 5.0))<br />      (princ "\n请输入表格行高(")(princ bghg0)(princ "):")<br />      (setq bghg (getreal))<br />      (if (= bghg nil)(setq bghg bghg0) (setq bghg0 bghg))<br />        );<br /> <br />       ((or (equal szcs "l")(equal szcs "L"))<br />      (if (= bglk0 nil)(setq bglk0 15.0))<br />      (princ "\n请输入表格列宽(")(princ bglk0)(princ "):")<br />      (setq bglk (getreal))<br />      (if (= bglk nil)(setq bglk bglk0) (setq bglk0 bglk))<br />        );<br /> <br />       ((or (equal szcs "s")(equal szcs "S"))<br />      (if (= bghs0 nil)(setq bghs0 20))<br />      (princ "\n请输入表格行数(")(princ bghs0)(princ "):")<br />      (setq bghs (getint))<br />      (if (= bghs nil)(setq bghs bghs0)(setq bghs0 bghs));<br />       )<br />       ((or (equal szcs "f")(equal szcs "F"))<br />      (setq xhgd0 3.5)     (setq xhgd xhgd0)<br />      (setq wzgd0 2.5)     (setq wzgd wzgd0)<br />      (setq bghg0 5)       (setq bghg bghg0)<br />      (setq bglk0 15)      (setq bglk bglk0)<br />      (setq bghs0 20)      (setq bghs bghs0)<br />        );<br />       );<br />   (princ "\n[序号高度x]")(princ xhgd)<br />   (princ "[文字高度w]")(princ wzgd)<br />   (princ "[表格行高h]")(princ bghg)<br />   (princ "[表格列宽l]")(princ bglk)<br />   (princ "[表格行数s]")(princ bghs)<br />   (princ "[恢复默认f]:")<br />   (setq szcs (getstring))<br />     )    <br />   <br />   (setq dzb_ss (ssget (list (cons 0' "CIRCLE")))); (list (cons 0' "POINT") (cons 0' "CIRCLE"))));<br />   (setq pt0 (getpoint "请选择表格起点"))<br />   (setq n 0)<br />   ;;;画表格<br />   (setq fgs (fix (/ (sslength dzb_ss) bghs)))<br />   (if (< fgs (/ (sslength dzb_ss) bghs))<br />     (setq fgs (+ 1 fgs)))<br />   (setq fgs (+ 1 fgs))<br />   (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)<br />            (list (+ (nth 0 pt0) (* 3.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0) "");画横线<br />   (command "-array" (ssget "l") ""  "r" (+ 2 (fix bghs)) fgs (* -1 bghg) (* 4 bglk))<br />   (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)<br />            (list (- (nth 0 pt0) (* 0.5 bglk)) (- (nth 1 pt0) (* bghg (+ 0.5 bghs))) 0) "");画竖线<br />   (command "-array" (ssget "l") ""  "r" "1" (+ 1 (* 4 fgs)) bglk)<br />   ;;;书写表头<br />   (command "text" "j" "mc" (list (nth 0 pt0) (- (nth 1 pt0) (* bghg n)) 0)<br />              wzgd "0" "序号")<br />     (if (> (sslength dzb_ss) bghs)<br />   (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))<br />       )<br />   (command "text" "j" "mc" (list (+ bglk (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)<br />              wzgd "0" "X")<br />   (if (> (sslength dzb_ss) bghs)<br />       (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))<br />       )<br />   (command "text" "j" "mc" (list (+ (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)<br />              wzgd "0" "Y")<br />   (if (> (sslength dzb_ss) bghs)<br />       (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))<br />       )<br />   (command "text" "j" "mc" (list (+ (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)<br />              wzgd "0" "Z")<br />   (if (> (sslength dzb_ss) bghs)<br />   (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))<br />       )<br />   ;;;循环<br />   (while (< n (sslength dzb_ss))<br />     (setq pt_n (cdr (assoc '10 (entget(ssname dzb_ss n)))))<br />     (setq pt_x (nth 0 pt_n))<br />     (setq pt_y (nth 1 pt_n))<br />     (setq pt_z (nth 2 pt_n))<br />     <br />     (setq n (1+ n))<br />     <br />     (command "text" "j" "mc" pt_n wzgd "0" n);原点书写序号<br />     <br />     ;;;书写表格内容<br />     (setq mx (* 4 (fix (/ (- n 1) bghs)) bglk))<br />     (setq my (* (- n (* bghs (fix (/ (- n 1) bghs)))) bghg))<br />     (command "text" "j" "mc" (list (+ mx (nth 0 pt0)) (- (nth 1 pt0) my) 0)<br />              wzgd "0" n)<br />     (command "text" "j" "mc" (list (+ mx bglk (nth 0 pt0)) (- (nth 1 pt0) my) 0)<br />              wzgd "0" (rtos pt_x 2 0))<br />     (command "text" "j" "mc" (list (+ mx (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)<br />              wzgd "0" (rtos pt_y 2 0))<br />     (command "text" "j" "mc" (list (+ mx (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)<br />              wzgd "0" (rtos pt_z 2 0))           <br />   )<br />    ;;结束<br />   (princ "\n总共读取并输出")(princ n)(princ "个坐标。")<br />   (end);;;;;;;;;;;<br />   <br />   (princ)<br />   )

;;;;又完善了一些

;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
(defun c:zb(/ szcs xhgd wzgd bghg bglk bghs bgbl dzb_ss n fgs pt_n pt_x pt_y pt_z mx my )
  (sta);;;;;;;
  ;;;默认设置
     (if (= xhgd0 nil)(setq xhgd0 3.5))
     (setq xhgd xhgd0)
     (if (= wzgd0 nil)(setq wzgd0 2.5))
     (setq wzgd wzgd0)
     (if (= bghg0 nil)(setq bghg0 5.0))
     (setq bghg bghg0)
     (if (= bglk0 nil)(setq bglk0 15.0))
     (setq bglk bglk0)
     (if (= bghs0 nil)(setq bghs0 20))
     (setq bghs bghs0)
     (if (= bgbl0 nil)(setq bgbl0 1))
     (setq bgbl bgbl0)
  (princ "\n欢迎使用圆心坐标读取书写程序")
  (princ "\n[序号高度x]")(princ xhgd)
  (princ "[文字高度w]")(princ wzgd)
  (princ "[表格行高h]")(princ bghg)
  (princ "[表格列宽l]")(princ bglk)
  (princ "[表格行数s]")(princ bghs)
  (princ "[比例调整b]")(princ bgbl)
  (princ "[恢复默认f]:")
  (setq szcs (getstring))
  ;;;参数设置
  (while (or (equal szcs "x")(equal szcs "X")(equal szcs "w")(equal szcs "W")
             (equal szcs "h")(equal szcs "H")(equal szcs "l")(equal szcs "L")
             (equal szcs "s")(equal szcs "S")(equal szcs "f")(equal szcs "F")
             (equal szcs "b")(equal szcs "B"))
    (cond
      ((or (equal szcs "x")(equal szcs "X"))
     (if (= xhgd0 nil)(setq xhgd0 3.5))
     (princ "\n请输入序号高度(")(princ xhgd0)(princ "):")
     (setq xhgd (getreal))
     (if (= xhgd nil)(setq xhgd xhgd0) (setq xhgd0 xhgd))
       );

      ((or (equal szcs "w")(equal szcs "W"))
     (if (= wzgd0 nil)(setq wzgd0 2.5))
     (princ "\n请输入文字高度(")(princ wzgd0)(princ "):")
     (setq wzgd (getreal))
     (if (= wzgd nil)(setq wzgd wzgd0) (setq wzgd0 wzgd))
       );

      ((or (equal szcs "h")(equal szcs "H"))
     (if (= bghg0 nil)(setq bghg0 5.0))
     (princ "\n请输入表格行高(")(princ bghg0)(princ "):")
     (setq bghg (getreal))
     (if (= bghg nil)(setq bghg bghg0) (setq bghg0 bghg))
       );

      ((or (equal szcs "l")(equal szcs "L"))
     (if (= bglk0 nil)(setq bglk0 15.0))
     (princ "\n请输入表格列宽(")(princ bglk0)(princ "):")
     (setq bglk (getreal))
     (if (= bglk nil)(setq bglk bglk0) (setq bglk0 bglk))
       );

      ((or (equal szcs "s")(equal szcs "S"))
     (if (= bghs0 nil)(setq bghs0 20))
     (princ "\n请输入表格行数(")(princ bghs0)(princ "):")
     (setq bghs (getint))
     (if (= bghs nil)(setq bghs bghs0)(setq bghs0 bghs))
      );
      ((or (equal szcs "b")(equal szcs "B"))
     (if (= bgbl0 nil)(setq bgbl0 1))
     (princ "\n请输入表格比例(")(princ bgbl0)(princ "):")
     (setq bgbl (getint))
     (if (= bgbl nil)(setq bgbl bgbl0)(setq bgbl0 bgbl))
      (setq wzgd (* bgbl wzgd0))
      (setq bghg (* bgbl bghg0))
      (setq bglk (* bgbl bglk0))
      );
      
      ((or (equal szcs "f")(equal szcs "F"))
     (setq xhgd0 3.5)    (setq xhgd xhgd0)
     (setq wzgd0 2.5)    (setq wzgd wzgd0)
     (setq bghg0 5.0)    (setq bghg bghg0)
     (setq bglk0 15.0)   (setq bglk bglk0)
     (setq bghs0 20)     (setq bghs bghs0)
     (setq bgbl0 1)      (setq bgbl bgbl0)
       );
      );
  (princ "\n[序号高度x]")(princ xhgd)
  (princ "[文字高度w]")(princ wzgd)
  (princ "[表格行高h]")(princ bghg)
  (princ "[表格列宽l]")(princ bglk)
  (princ "[表格行数s]")(princ bghs)
  (princ "[比例调整b]")(princ bgbl)
  (princ "[恢复默认f]:")
  (setq szcs (getstring))
    )   
  
  (setq dzb_ss (ssget (list (cons 0' "CIRCLE")))); (list (cons 0' "POINT") (cons 0' "CIRCLE"))));
  (setq pt0 (getpoint "请选择表格起点"))
  (setq n 0)
  ;;;画表格
  (setq fgs (fix (/ (sslength dzb_ss) bghs)))
  (if (= (sslength dzb_ss) (* fgs bghs))
    (setq fgs (- fgs 1)))
  (setq fgs (+ 1 fgs))
  (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)
           (list (+ (nth 0 pt0) (* 3.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0) "");画横线
  (if (= 1 fgs)
    (command "-array" (ssget "l") ""  "r" (+ 2 (fix bghs)) fgs (* -1 bghg))
    (command "-array" (ssget "l") ""  "r" (+ 2 (fix bghs)) fgs (* -1 bghg) (* 4 bglk)))

  (command "line" (list (- (nth 0 pt0) (* 0.5 bglk)) (+ (nth 1 pt0) (* 0.5 bghg)) 0)
           (list (- (nth 0 pt0) (* 0.5 bglk)) (- (nth 1 pt0) (* bghg (+ 0.5 bghs))) 0) "");画竖线
  (command "-array" (ssget "l") ""  "r" "1" (+ 1 (* 4 fgs)) bglk)
  ;;;书写表头
  (command "text" "j" "mc" (list (nth 0 pt0) (- (nth 1 pt0) (* bghg n)) 0)
             wzgd "0" "序号")
    (if (> (sslength dzb_ss) bghs)
  (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
      )
  (command "text" "j" "mc" (list (+ bglk (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
             wzgd "0" "X")
  (if (> (sslength dzb_ss) bghs)
      (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
      )
  (command "text" "j" "mc" (list (+ (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
             wzgd "0" "Y")
  (if (> (sslength dzb_ss) bghs)
      (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
      )
  (command "text" "j" "mc" (list (+ (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) (* bghg n)) 0)
             wzgd "0" "Z")
  (if (> (sslength dzb_ss) bghs)
  (command "-array" (ssget "l") ""  "r" "1" fgs (* 4 bglk))
      )
  ;;;循环
  (while (< n (sslength dzb_ss))
    (setq pt_n (cdr (assoc '10 (entget(ssname dzb_ss n)))))
    (setq pt_x (nth 0 pt_n))
    (setq pt_y (nth 1 pt_n))
    (setq pt_z (nth 2 pt_n))
   
    (setq n (1+ n))
   
    (command "text" "j" "mc" pt_n wzgd "0" n);原点书写序号
   
    ;;;书写表格内容
    (setq mx (* 4 (fix (/ (- n 1) bghs)) bglk))
    (setq my (* (- n (* bghs (fix (/ (- n 1) bghs)))) bghg))
    (command "text" "j" "mc" (list (+ mx (nth 0 pt0)) (- (nth 1 pt0) my) 0)
             wzgd "0" n)
    (command "text" "j" "mc" (list (+ mx bglk (nth 0 pt0)) (- (nth 1 pt0) my) 0)
             wzgd "0" (rtos pt_x 2 0));
    (command "text" "j" "mc" (list (+ mx (* 2 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)
             wzgd "0" (rtos pt_y 2 0))
    (command "text" "j" "mc" (list (+ mx (* 3 bglk) (nth 0 pt0)) (- (nth 1 pt0) my) 0)
             wzgd "0" (rtos pt_z 2 0))           
  )
   ;;结束
  (princ "\n总共读取并输出")(princ n)(princ "个坐标。")
  (end);;;;;;;;;;;
  
  (princ)
  )