地图中文字叠加求助...>???????????

lyh13

地图中文字叠加,重叠在一起了.,不想手工移动..或者查出来也可以了。.有思路吗????

王咣生

2. ;命令:test
5. (defun c:test ( / app ss len i en es hd pt tx he eo minpt maxpt ss1 len1 j en1 es1 hd1)
6.   (setq app (vlax-get-acad-object))
7.   (setq ss (ssget "x" (list (cons 0 "text"))))
8.   (if ss
9.     (progn
10.       (setq len (sslength ss)
11.      i 0)
12.       (repeat len
13. (setq en (ssname ss i)
14.        es (entget en))
15. (if es
16.    (progn
17.      (setq hd (cdr (assoc 5 es))
18.     pt (assoc 10 es)
19.     tx (assoc 41 es)
20.     he (assoc 40 es)
21. ;;;    la (assoc 8 es)
22.     eo (vlax-ename->vla-object en))
23.      (vla-getboundingbox eo 'minpt 'maxpt)
24.      (vla-zoomwindow app minpt maxpt)
25.      (setq minpt (vlax-safearray->list minpt)
26.     maxpt (vlax-safearray->list maxpt))
27.      (setq ss1 (ssget "c" minpt maxpt (list pt tx he)))
28.      (if ss1
29.        (progn
30.   (setq len1 (sslength ss1)
31.         j 0)
32.   (repeat len1
33.     (setq en1 (ssname ss1 j)
34.    es1 (entget en1)
35.    hd1 (cdr (assoc 5 es1)))
36.     (if (/= hd1 hd)
37.       (entdel en1)
38.     );if
39.     (setq j (1+ j))
40.   );repeat
41.               )
42.      );if
43.    )
44. )
45. (setq i (1+ i))
46.       );repeat
47.     )
48.   );if
49.   (alert "Finished!")
50.   (princ "\nFinished!")
51.   (princ)
52. )

;命令:test (defun c:test ( / app ss len i en es hd pt tx he eo minpt maxpt ss1 len1 j en1 es1 hd1)   (setq app (vlax-get-acad-object))   (setq ss (ssget "x" (list (cons 0 "text"))))   (if ss     (progn       (setq len (sslength ss)      i 0)       (repeat len (setq en (ssname ss i)        es (entget en)) (if es    (progn      (setq hd (cdr (assoc 5 es))     pt (assoc 10 es)     tx (assoc 41 es)     he (assoc 40 es) ;;;    la (assoc 8 es)     eo (vlax-ename->vla-object en))      (vla-getboundingbox eo 'minpt 'maxpt)      (vla-zoomwindow app minpt maxpt)      (setq minpt (vlax-safearray->list minpt)     maxpt (vlax-safearray->list maxpt))      (setq ss1 (ssget "c" minpt maxpt (list pt tx he)))      (if ss1        (progn   (setq len1 (sslength ss1)         j 0)   (repeat len1     (setq en1 (ssname ss1 j)    es1 (entget en1)    hd1 (cdr (assoc 5 es1)))     (if (/= hd1 hd)       (entdel en1)     );if     (setq j (1+ j))   );repeat               )      );if    ) ) (setq i (1+ i))       );repeat     )   );if   (alert "Finished!")   (princ "\nFinished!")   (princ) )

oyxx1023

王工现在改学LSP啦?

王咣生

我也是lsp起家的,不过都是一瓶子不满半瓶子逛荡.您是who...?

carrot1983

这位o工，有段时间没看到了．．．呵呵

重出江湖啦．．