土地勘测定界用的小程序

zxuan2119

非常好用，希望能共享源代码

zxuan2119

反编译lisp如下：

1. (defun C:nn()
   
2. (command "layer" "m" "边界线" "c" "4" "" "")
   
3. (command "-boundary" pause "")
   
4. )
   
5. 
   
6. 
   
7. 
   
8. (defun C:QQ(  / xk point ltlfx ltlfx1 li s)
   
9. (setq blc (getvar "LTSCALE"))
   
10. (command "osnap" "nea,endp,mid")
    
11. (setq xk(getreal "\n输入线宽:<0.3>"))
    
12. (if (= xk nil) (setq xk (* blc 0.3)))
    
13. (lqpl1 xk)
    
14. )
    
15. 
    
16. (defun lqpl1(kuan)
    
17. (command "osnap" "end,nea,per")
    
18. (setq point(getpoint "\n输入点:"))
    
19. (setq ltlfx(list (-(car point) 1) (+(cadr point) 1)))
    
20. (setq ltlfx1(list (+(car point) 1) (-(cadr point) 1)))
    
21. (command "pline" point "w" kuan kuan)
    
22. (while (/= point nil)
    
23. (setq point(getpoint  point "\n输入点"))
    
24. (command point)
    
25. )
    
26. (command)
    
27. (setq li (entlast))
    
28. (command "pedit" li "L" "on" "x")
    
29. (initget "Yes No")
    
30.         (setq s (getkword "\n拟合吗?<N>"))
    
31.         (if (= s "Yes") (command "pedit" li "f" "x"))
    
32. (command "pline" ltlfx "w" "0" "" "")
    
33. )
    
34. 
    
35. 
    
36. (defun C:ee( / xk point)
    
37. (setq blc(getvar "LTSCALE"))
    
38. (setq xk(getreal "\n输入半径:<0.5>"))
    
39. (if (= xk nil) (setq xk 0.5))
    
40. (setq point(getpoint "\n输入点"))
    
41. (while (/= point nil)
    
42. (command "circle" point (* blc xk) "")
    
43. (setq point(getpoint "\n输入点"))
    
44. )
    
45. )
    
46. 
    
47. 
    
48. 
    
49. (defun C:dx( / i n d pt1 xk)
    
50. (setq blc 5)
    
51. (setq xk(getreal "\n输入半径:<0.2>"))
    
52. (if (= xk nil) (setq xk  0.2))
    
53.    (db)
    
54. (command "layer" "m" "界址点圆" "c" "7" "" "")
    
55.       (setq i 0 n (length d))
    
56.           (while (< i  n)
    
57.              (setq pt1 (nth i d))
    
58.              (command "circle" pt1 ( * blc xk) "")
    
59.              (setq i (1+ i))
    
60.           )
    
61. )
    
62. 
    
63. 
    
64. 
    
65. (defun C:dx1( / i n d pt1 xk)
    
66. (setq blc 5)
    
67. (setq xk(getreal "\n输入半径:<1>"))
    
68. (if (= xk nil) (setq xk  1))
    
69.    (db)
    
70. (command "layer" "m" "电路圆圈" "c" "1" "" "")
    
71.       (setq i 0 n (length d))
    
72.           (while (< i  n)
    
73.              (setq pt1 (nth i d))
    
74.              (command "circle" pt1 ( * blc xk) "")
    
75.              (setq i (1+ i))
    
76.           )
    
77. )
    
78. 
    
79. 
    
80. 
    
81. (defun C:xH( / i n d pt1 xk)
    
82. (setq blc(getvar "LTSCALE"))
    
83. (setq xh(getreal "\n输入起始序号:<1>"))
    
84. (if (= xh nil) (setq xh  1))
    
85.    (db)
    
86.       (setq i 0 n (length d))
    
87.           (while (< i  n)
    
88.              (setq pt1 (nth i d))
    
89.              (command "text" "j" "m" pt1 (* 1.2 blc) 0 (fix (+ xh i)))
    
90.              (setq i (1+ i))
    
91.           )
    
92. )
    
93. (defun db(/ kg ename sut lb b pt cm bh pt1 i f1 f2)
    
94.   (setq kg 0)
    
95.   (if (= kg 0)(setq ename (car (entsel "\n选择实体 : "))))
    
96.   (if ename (progn
    
97.       (setq d nil lb (entget ename) bh (cdr (assoc 70 lb)))
    
98.       (setq b (cdr (assoc 0 lb)) cm (cdr (assoc 8 lb)))
    
99.       (command "layer" "s" cm "")
    
100.       (if (= b "POLYLINE")
     
101.          (progn
     
102.             (setq sut (entnext ename))
     
103.             (while (/= (cdr (assoc 0 (entget sut))) "SEQEND")
     
104.                 (setq pt (cdr (assoc 10 (entget sut))))
     
105.                 (setq d (cons pt d))
     
106.                 (setq sut (entnext sut))
     
107.             )
     
108.             (if (= bh 1) (setq d (cons (last d) d)))
     
109.       ))
     
110.       (if (= b "LINE")
     
111.           (setq d (cons (cdr (assoc 10 lb)) d) d (cons (cdr (assoc 11 lb)) d)))
     
112.       
     
113.       (if (= b "CIRCLE")(progn
     
114.           (setq pt (cdr (assoc 10 lb))
     
115.                 r  (cdr (assoc 40 lb)))
     
116.           (setq i 0)
     
117.           (while (<= i 360)
     
118.               (setq pt1 (polar pt (/ i 57.0) r))
     
119.               (setq d (cons pt1 d))
     
120.               (setq i (+ i 5))
     
121.           )
     
122.       ))
     
123. 
     
124.       (if (= b "LWPOLYLINE")(progn
     
125.           (setq nn (length lb) kk 1)
     
126.           (while (< kk nn)
     
127.               (if (= 10 (car (nth kk lb)))(progn
     
128.                   (setq x (nth 1 (nth kk lb))
     
129.                         y (nth 2 (nth kk lb))
     
130.                   )
     
131.                   (setq d (cons (list x y) d))
     
132.               ))
     
133.               (setq kk (1+ kk))
     
134.           )
     
135.            (if (= bh 1) (setq d (cons (last d) d)))
     
136. 
     
137.       ))
     
138. 
     
139.       
     
140.       (if (= b "ARC")(progn
     
141.           (setq pt (cdr (assoc 10 lb))
     
142.                 r  (cdr (assoc 40 lb))
     
143.                 f1 (cdr (assoc 50 lb))
     
144.                 f2 (cdr (assoc 51 lb)))
     
145.           (setq i f1)
     
146.           (if (< f2 f1) (setq f2 (+ f2 (* 2 pi))))
     
147.           (while (<= i f2)
     
148.               (setq pt1 (polar pt i r))
     
149.               (setq d (cons pt1 d))
     
150.               (setq i (+ i 0.1))
     
151.           )
     
152.           (setq d (cons (polar pt f2 r) d))
     
153.       ))
     
154. 
     
155.   ))
     
156.   (if d (setq d (reverse d)))
     
157. )
     
158. 
     
159. (defun C:jzd( /  blc dhxy i n pt dh pt0 pt1 pt2 pt3  l )
     
160. (setq blc 5)
     
161.    (setq dhxy nil)
     
162.    (db)
     
163.    (setq i 0 n (length d))
     
164.    (setq pt (nth i d) dh 1)
     
165.    (while pt
     
166.        (setq dhxy (cons (list dh pt) dhxy))
     
167.        (setq dh ( + 1 dh) i ( + 1 i))
     
168.        (setq pt (nth i d))
     
169.    )
     
170.   (command "osnap" "off" )
     
171. (setq dhxy (reverse dhxy))
     
172.   (if dhxy (progn
     
173.   (setq pt (getpoint "\n指定界址点表的左上角:"))
     
174.   (command "layer" "m" "界址点号" "c" "3" "" "")
     
175.   (setq plq (polar pt 4.712 (* 6 blc)))
     
176.   (setq plq00 (polar pt 4.712 (* 2 blc)))
     
177.   (command "line"  (polar pt 0 (* 60 blc)) (polar pt 0 (* 80 blc)) "")
     
178.   (command "line"  (polar plq 0 (* 80 blc)) (polar pt 0 (* 80 blc)) "")
     
179.   (setq n (length dhxy))
     
180.   (setq i 0 pt0 pt plq0 plq)
     
181.   (while (< i (+ n 3))
     
182.       (setq pt1 (polar pt 0 (* 60 blc)))
     
183.       (command "line" pt pt1 "")
     
184.       (setq pt (polar pt 4.712 (* 4 blc)))
     
185.       (setq i (1+ i))
     
186.   )
     
187. (setq i 0)
     
188.   (while (< i (+ n 1))
     
189.       (setq plq1 (polar plq 0 (* 60 blc)))
     
190.       (setq plq2 (polar plq 0 (* 80 blc)))
     
191.       (command "line" plq1 plq2 "")
     
192.       (setq plq (polar plq 4.712 (* 4 blc)))
     
193.       (setq i (1+ i))
     
194.   )
     
195. 
     
196.   (setq pt1 (polar pt0 0 (* 10 blc)))
     
197.   (setq pt2 (polar pt0 0 (* 35 blc)))
     
198.   (setq pt3 (polar pt0 0 (* 60 blc)))
     
199.   (setq plq4 (polar plq0 0 (* 80 blc)))
     
200.   (setq x (car pt0) y (cadr pt0))
     
201.   (setq aa (car plq00) bb (cadr plq00))
     
202.   (setq l 0)
     
203.   (while (<= l (1+ n))
     
204.    (command "line" pt1 (polar pt1 4.712 (* (+ 0 1) 4 blc)) "")
     
205.    (setq pt1 (polar pt1 4.712 (* (+ 0 1) 4 blc)))
     
206.    (setq l (+ 1 l))
     
207. )  (setq l 0)
     
208.   (while (<= l (1+ n))
     
209.    (command "line" pt2 (polar pt2 4.712 (* (+ 0 1) 4 blc)) "")
     
210.    (setq pt2 (polar pt2 4.712 (* (+ 0 1) 4 blc)))
     
211.    (setq l (+ 1 l))
     
212. )  (setq l 0)
     
213.   (while (<= l (1+ n))
     
214.    (command "line" pt3 (polar pt3 4.712 (* (+ 0 1) 4 blc)) "")
     
215.    (setq pt3 (polar pt3 4.712 (* (+ 0 1) 4 blc)))
     
216.    (setq l (+ 1 l))
     
217. )  (setq l 0)
     
218.   (while (<= l (1+ n))
     
219.    (command "line" pt0 (polar pt0 4.712 (* (+ 0 1) 4 blc)) "")
     
220.    (setq pt0 (polar pt0 4.712 (* (+ 0 1) 4 blc)))
     
221.    (setq l (+ 1 l))
     
222. ) (setq l 0)
     
223.   (while (<= l (1- n))
     
224.    (command "line" plq4 (polar plq4 4.712 (* (+ 0 1) 4 blc)) "")
     
225.    (setq plq4 (polar plq4 4.712 (* (+ 0 1) 4 blc)))
     
226.    (setq l (+ 1 l))
     
227. )
     
228.   (command "text" "j" "m" (list (+ x (* 5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "点号")
     
229.   (command "text" "j" "m" (list (+ x (* 22.5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "X坐标")
     
230.   (command "text" "j" "m" (list (+ x (* 47.5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "Y坐标")
     
231.   (command "text" "j" "m" (list (+ x (* 70.5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "边长")
     
232.   (setq i 0)
     
233.   (setq xh (getreal "\n输入起始序号:"))
     
234.   (if (= xh nil) (setq xh 1))
     
235.   (setq xh (- xh 1))
     
236.   (while (< i n)
     
237.      (setq ppoinx (caadr (nth i dhxy)))
     
238.      (setq ppoiny (cadadr (nth i dhxy)))
     
239.      (setq ppoin (list ( +  ppoinx  9) ppoiny))
     
240.      (command "text" "j" "m" ppoin (* 1.5 blc) 0 (fix (+ xh (car (nth i dhxy)))))
     
241.      (setq pt1 (list (+ x (* 5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
242.      (setq pt2 (list (+ x (* 22.5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
243.      (setq pt3 (list (+ x (* 47.5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
244.      (command "text" "j" "m" pt1 (* 2.5 blc) 0 (fix( + (car (nth i dhxy))xh)))
     
245.      (command "text" "j" "m" pt2 (* 2.5 blc) 0 (rtos (cadr (cadr (nth i dhxy))) 2 3))
     
246.      (command "text" "j" "m" pt3 (* 2.5 blc) 0 (rtos (car (cadr (nth i dhxy))) 2 3))
     
247.      (setq i (1+ i))
     
248.   )
     
249.      (setq pt1 (list (+ x (* 5 blc)) (- y (* 2 blc) (* blc 4 (1+ n)))))
     
250.      (setq pt2 (list (+ x (* 22.5 blc)) (- y (* 2 blc) (* blc 4 (1+ n)))))
     
251.      (setq pt3 (list (+ x (* 47.5 blc)) (- y (* 2 blc) (* blc 4 (1+ n)))))
     
252.      (command "text" "j" "m" pt1 (* 2.5 blc) 0 (fix( + (car (nth 0 dhxy))xh)))
     
253.      (command "text" "j" "m" pt2 (* 2.5 blc) 0 (rtos (cadr (cadr (nth 0 dhxy))) 2 3))
     
254.      (command "text" "j" "m" pt3 (* 2.5 blc) 0 (rtos (car (cadr (nth 0 dhxy))) 2 3))
     
255.   (command "text" "j" "m" (list (+ x (* 30 blc)) (+ y (* 4 blc))) (* 2.5 blc) 0 "界址点坐标表")
     
256. (setq i 0)
     
257. (while (< i  (1- n))
     
258.     (setq ppoin1 (cadr (nth i dhxy)))
     
259.     (setq ppoin2 (cadr (nth (+ i 1) dhxy)))
     
260.     (command "dist" ppoin1 ppoin2)
     
261.     (setq pt4 (list (+ aa (* 70.5 blc)) (- bb (* 2 blc) (* blc 4 (1+ i)))))
     
262.     (setq distt(getvar "DISTANCE"))
     
263.     (command "text" "j" "m" pt4 (* 2.5 blc) 0 (rtos distt 2 3))
     
264. (setq i (1+ i))
     
265. )
     
266.     (setq ppoin1 (cadr (nth (1- n) dhxy)))
     
267.     (setq ppoin2 (cadr (nth 0 dhxy)))
     
268.     (command "dist" ppoin1 ppoin2)
     
269.     (setq pt4 (list (+ aa (* 70.5 blc)) (- bb (* 2 blc) (* blc 4 n))))
     
270.     (setq distt(getvar "DISTANCE"))
     
271.     (command "text" "j" "m" pt4 (* 2.5 blc) 0 (rtos distt 2 3))
     
272. ))
     
273. 
     
274. )
     
275. 
     
276. 
     
277. (defun C:aa()
     
278. (command "layer" "s" "zj" "")
     
279. (command "dtext" pause)
     
280. )
     
281. 
     
282. (defun C:cc( / a w )
     
283.         (setq a (getreal "\n<1,2,3>:"))
     
284.         (cond
     
285.           ((= a 1) (setq w "ka0.dwg"))
     
286.           ((= a 2) (setq w "ka0.b"))
     
287.           ((= a 3) (setq w "ka0.b竖"))
     
288.           ((= a 4) (setq w "ka0编制"))
     
289.           ((= a 5) (setq w "ka0竖向"))
     
290.           ((= a 6) (setq w "ka1"))
     
291.           ((= a 7) (setq w "ka1.b"))
     
292.           ((= a 8) (setq w "ka1编制"))
     
293.           ((= a 9) (setq w "ka1测量宽 "))
     
294.           ((= a 10) (setq w "ka1测量竖"))
     
295.           ((= a 11) (setq w "ka1测量"))
     
296.           ((= a 12) (setq w "ka1加长"))
     
297.           ((= a 13) (setq w "ka1加宽"))
     
298.           ((= a 14) (setq w "ka1特"))
     
299.           ((= a 15) (setq w "ka2"))
     
300.           ((= a 16) (setq w "ka2.b"))
     
301.           ((= a 17) (setq w "ka2接图"))
     
302.           ((= a 18) (setq w "ka2竖向"))
     
303.           ((= a 19) (setq w "ka3"))
     
304.           ((= a 20) (setq w "ka3.b"))
     
305.           ((= a 21) (setq w "ka4"))
     
306.           ((= a 22) (setq w "ka2接竖"))
     
307.           ((= a 23) (setq w "ka5"))
     
308.           ((= a 24) (setq w "ka6"))
     
309.           ((= a 25) (setq w "kao"))
     
310. )
     
311. (command "layer" "s" "0" "")
     
312. (command "insert" W PAUSE (getvar "LTSCALE") "" "" "")
     
313. )
     
314. 
     
315. 
     
316. (defun C:zbb( / pt pt1 pt2 pt3 pt0 x y dhxy i dh)
     
317.    (setq blc(getvar "LTSCALE"))
     
318.    (setq dhxy nil)
     
319.    (command "layer" "m" "jzd" "")
     
320.    (command "osnap" "cen,end")
     
321.    (setq pt (getpoint "\n捕捉界址点:"))
     
322.    (while pt
     
323.        (command "osnap" "off")
     
324.        (setq dh (getstring "\n界址点号："))
     
325.         (setq pt1 (list (+ (car pt) (* 2.5 blc)) (+ (* 2.5 blc ) (cadr pt))))
     
326.          (command "text" "m" pt1 (* 2.0 blc) 0 (strcase dh))
     
327.        (setq dhxy (cons (list (strcase dh) pt) dhxy))
     
328.        (command "osnap" "cen")
     
329.        (setq pt (getpoint "\n捕捉界址点:"))
     
330.   )
     
331.   (command "osnap" "off")
     
332.   (setq dhxy (reverse dhxy))
     
333.   (if dhxy (progn
     
334.   (setq pt (getpoint "\n指定界址点表的左上角:"))
     
335.    (setq n (length dhxy))
     
336.   (setq i 0 pt0 pt)
     
337.   (while (< i (+ n 2))
     
338.       (setq pt1 (polar pt 0 (* 60 blc)))
     
339.       (command "line" pt pt1 "")
     
340.       (setq pt (polar pt 4.712 (* 4 blc)))
     
341.       (setq i (1+ i))
     
342.   )
     
343.   (setq pt1 (polar pt0 0 (* 10 blc)))
     
344.   (setq pt2 (polar pt0 0 (* 35 blc)))
     
345.   (setq pt3 (polar pt0 0 (* 60 blc)))
     
346.   (setq x (car pt0) y (cadr pt0))
     
347.   (setq l 0)
     
348.   (while (<= l n)
     
349.    (command "line" pt1 (polar pt1 4.712 (* (+ 0 1) 4 blc)) "")
     
350.    (setq pt1 (polar pt1 4.712 (* (+ 0 1) 4 blc)))
     
351.    (setq l (+ 1 l))
     
352. )  (setq l 0)
     
353.   (while (<= l n)
     
354.    (command "line" pt2 (polar pt2 4.712 (* (+ 0 1) 4 blc)) "")
     
355.    (setq pt2 (polar pt2 4.712 (* (+ 0 1) 4 blc)))
     
356.    (setq l (+ 1 l))
     
357. )  (setq l 0)
     
358.   (while (<= l n)
     
359.    (command "line" pt3 (polar pt3 4.712 (* (+ 0 1) 4 blc)) "")
     
360.    (setq pt3 (polar pt3 4.712 (* (+ 0 1) 4 blc)))
     
361.    (setq l (+ 1 l))
     
362. )  (setq l 0)
     
363.   (while (<= l n)
     
364.    (command "line" pt0 (polar pt0 4.712 (* (+ 0 1) 4 blc)) "")
     
365.    (setq pt0 (polar pt0 4.712 (* (+ 0 1) 4 blc)))
     
366.    (setq l (+ 1 l))
     
367. )
     
368. 
     
369.   (command "text" "j" "m" (list (+ x (* 5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "点号")
     
370.   (command "text" "j" "m" (list (+ x (* 22.5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "X坐标")
     
371.   (command "text" "j" "m" (list (+ x (* 47.5 blc)) (- y (* 2 blc))) (* 2.5 blc) 0 "Y坐标")
     
372.   (setq i 0)
     
373.   (while (< i n)
     
374.      (setq pt1 (list (+ x (* 5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
375.      (setq pt2 (list (+ x (* 22.5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
376.      (setq pt3 (list (+ x (* 47.5 blc)) (- y (* 2 blc) (* blc 4 (1+ i)))))
     
377.      (command "text" "j" "m" pt1 (* 2.5 blc) 0 (car (nth i dhxy)))
     
378.      (command "text" "j" "m" pt2 (* 2.5 blc) 0 (rtos (cadr (cadr (nth i dhxy))) 2 3))
     
379.      (command "text" "j" "m" pt3 (* 2.5 blc) 0 (rtos (car (cadr (nth i dhxy))) 2 3))
     
380.      (setq i (1+ i))
     
381.   )
     
382.   (command "text" "j" "m" (list (+ x (* 30 blc)) (+ y (* 4 blc))) (* 3.0 blc) 0 "界址点坐标表")
     
383. 
     
384.   ))
     
385.    (princ)
     
386. )
     
387. 
     
388. (defun C:jj()
     
389. (command "pedit" pause "e" "i")
     
390. )
     
391. 
     
392. 
     
393. (defun flz(reco / i0 ii zc le char)
     
394.    (setq char nil)
     
395.    (if (/= reco "")(progn
     
396.        (setq i0 1 ii 1 zc (substr reco 1 1))
     
397.        (while  (/= zc "")
     
398.           (while (= zc ",")
     
399.               (setq i0 (1+ i0))
     
400.               (setq zc (substr reco i0 1))
     
401.           )
     
402.           (if (/= zc "")(progn
     
403.               (setq ii i0)
     
404.               (while (and (/= zc ",") (/= zc ""))
     
405.                  (setq ii (1+ ii))
     
406.                  (setq zc (substr reco ii 1))
     
407.               )
     
408.               (setq le (- ii i0))
     
409.               (setq str (substr reco i0 le))
     
410.               (if (= str ".") (setq str ""))
     
411.               (setq char (cons str char))
     
412.               (setq i0 ii)
     
413.           ))
     
414.        )
     
415.    ))
     
416.    (if char (reverse char))
     
417. )
     
418. 
     
419. 
     
420. 
     
421. ;展点
     
422. (defun C:sb( / fp pf sxb reco dh pt n s ii)
     
423.     (command "layer" "m" "碎步点" "c"  "6" "" "")
     
424.     (setq pf (getfiled "指定坐标数据文件" "D:\gps文件" "dat" 2) blc 1)
     
425.     (if pf (progn
     
426.         (setq fp (open pf "r"))
     
427.         (setq reco (read-line fp) ii 1)
     
428.         (setq reco (read-line fp) ii 1)
     
429.         (while  reco
     
430.                 (setq sxb (flz reco) n (length sxb))
     
431.                 (setq dh (nth 0 sxb) pt (list (atof (nth 1 sxb)) (atof (nth 2 sxb)) (atof (nth 3 sxb))))
     
432.                 (command "point" pt)
     
433.                 (command "text" (polar pt (/ (* 7.5 pi) 4) (* blc 6)) (* 4 blc) 0 dh)
     
434.                 (setq reco (read-line fp) ii (1+ ii))
     
435.         )
     
436.         (close fp)
     
437.     ))
     
438.     (princ "请等待...")
     
439. (command "zoom" "e")
     
440. (PRINC)
     
441. )
     
442. 
     
443. (defun C:rtk( / fp pf sxb reco dh pt n s ii)
     
444.     (command "layer" "m" "zdf" "c"  "3" "" "")
     
445.     (setq pf (getfiled "指定坐标数据文件" "C:/" "" 2) blc 1)
     
446.     (if pf (progn
     
447.         (setq fp (open pf "r"))
     
448.         (setq reco (read-line fp) ii 1)
     
449.         ;(setq reco (read-line fp) ii 1)
     
450.         (while  reco
     
451.                 (setq sxb (flz reco) n (length sxb))
     
452.                 (setq dh (fix(atof (nth 0 sxb))) pt (list (atof (nth 2 sxb)) (atof (nth 1 sxb))))
     
453.                 (command "point" pt)
     
454.                 (command "text" (polar pt (/ (* 7.25 pi) 4) (* blc 20)) (* 20 blc) 0 dh)
     
455.                 (setq reco (read-line fp) ii (1+ ii))
     
456.         )
     
457.         (close fp)
     
458.     ))
     
459.     (COMMAND "ZOOM" "E" "")
     
460.     (princ "请等待...")
     
461. (PRINC)
     
462. )
     
463. 
     
464. 
     
465. (defun C:as()
     
466. (setq ll(entsel))
     
467. (command "pedit" ll "l" "on" "" "")
     
468. )
     
469. 
     
470. 
     
471. (defun C:zdk()
     
472. (command "insert" "zdk" PAUSE "" "" "" "")
     
473. )
     
474. 
     
475. (defun C:xztc()
     
476. 
     
477. (command "layer" "m" "路" "c" "3" "" "")
     
478. 
     
479. (command "layer" "m" "屯" "c" "4" "" "")
     
480. 
     
481. (command "layer" "m" "林" "c" "2" "" "")
     
482. 
     
483. (command "layer" "m" "界线" "c" "6" "" "")
     
484. 
     
485. (command "layer" "m" "图廓" "c" "7" "" "")
     
486. 
     
487. (command "layer" "m" "地类" "c" "1" "" "")
     
488. 
     
489. (command "layer" "m" "注记" "c" "7" "" "")
     
490. )
     
491. 
     
492. 32

复制代码

疯狂的外星人

、、、、、、、、、、、、、、、、、

王晓多

学习学习学习学习学习

ohou1986

。。。。。。。。。。。。。。。。。

kivikivi

谢谢1谢谢谢谢！！！！！