单行文字合并多行文字后不要跟\N

偏爱云~小吴

如图怎么搞

偏爱云~小吴

(defun C:tt1 (/ EN ENT LST LST1 OLDAUN OLDOSM PT SS i ptlst ss1 STR TXT ZG)
  (setq oldaun (getvar "aunits")
oldosm (getvar "osmode"))
  (setvar "aunits" 3)   ;设为弧度
  (setvar "osmode" 0 ) ;设为无捕捉方式
  ;选择封闭方框
  (if(setq ss(ssget '((0 . "LWPOLYLINE")(90 . 5)(70 . 0)))
请高手指正为什么不能实现批量

q3_2006

http://bbs.mjtd.com/thread-108271-2-1.html
已经回复了！

q3_2006

2. (defun tt (ss / EN ENT LST LST1 OLDAUN OLDOSM PT SS STR TXT ZG)
   
3.   (setq oldaun (getvar "aunits")
   
4. oldosm (getvar "osmode"))
   
5.   (setvar "aunits" 3)   ;设为弧度
   
6.   (setvar "osmode" 0 )                   ;设为无捕捉方式
   
7.    (if (not ss)                     ;图中没有插入各种符号
   
8.     (progn (alert " 没有选中文本")
   
9.            (exit))
   
10.     (progn
    
11.       (while (> (sslength ss) 0)
    
12. (setq ent (entget(setq en (ssname ss 0))));取出第一个数据
    
13. (setq pt (cdr(assoc 10 ent))
    
14.       txt (cdr(assoc 1 ent))
    
15.       zg (cdr(assoc 40 ent))
    
16.       lst (cons (list pt txt zg) lst);;获取表
    
17.       ss (ssdel en ss))
    
18. (entdel  en));删除图元
    
19.       (setq lst1 (vl-sort lst
    
20.          (function (lambda (e1 e2)
    
21.                 (< (cadr(car e1)) (cadr(car e2))) ) ) ));根据y坐标排序
    
22.       (setq str "")
    
23.       (foreach e lst1
    
24. (setq str (strcat (cadr e) "\n" str))
    
25. (setq pt (car e);插入点
    
26.     zg (caddr e)));字高
    
27.       (setq pt (polar pt (* pi 0.5) zg))
    
28.       (vl-cmdf "MTEXT" pt "H" zg "W" 0 (substr str 1 (1- (strlen str))) "")))
    
29.   (setvar "aunits" oldaun)   ;设为弧度
    
30.   (setvar "osmode" oldosm )
    
31.   (princ)
    
32.   )
    
33.   (defun ss2lst (ss / lst n ssnamen)
    
34.   (setq n -1
    
35. lst '()
    
36.   )
    
37.   (while (setq ssnamen (ssname ss (setq n (1+ n))))
    
38.     (setq lst (cons ssnamen lst))
    
39.   )
    
40.   (reverse lst)
    
41. )
    
42.   (defun c:t0 ( / lst p1 p2 pn s1 ss ss0)
    
43.   (vl-load-com)
    
44.   (setq ss (ssget '((0 . "LWPOLYLINE")))
    
45.         lst (ss2lst ss)
    
46.   )
    
47.   (foreach s1 lst
    
48.     (setq pn (vlax-get (vlax-ename->vla-object s1) 'coordinates)
    
49.           p1 (list (nth 0 pn) (nth 1 pn))
    
50.           p2 (list (nth 4 pn) (nth 5 pn))
    
51.           ss0 (ssget "c" p1 p2 '((0 . "*TEXT")))
    
52.     )
    
53.     (tt ss0)
    
54.   )
    
55. )

(defun tt (ss / EN ENT LST LST1 OLDAUN OLDOSM PT SS STR TXT ZG)<br />   (setq oldaun (getvar "aunits")<br /> oldosm (getvar "osmode"))<br />   (setvar "aunits" 3)   ;设为弧度<br />   (setvar "osmode" 0 )                   ;设为无捕捉方式<br />    (if (not ss)                     ;图中没有插入各种符号<br />     (progn (alert " 没有选中文本")<br />            (exit))<br />     (progn<br />       (while (> (sslength ss) 0)<br /> (setq ent (entget(setq en (ssname ss 0))));取出第一个数据<br /> (setq pt (cdr(assoc 10 ent))<br />       txt (cdr(assoc 1 ent))<br />       zg (cdr(assoc 40 ent))<br />       lst (cons (list pt txt zg) lst);;获取表<br />       ss (ssdel en ss))<br /> (entdel  en));删除图元<br />       (setq lst1 (vl-sort lst<br />          (function (lambda (e1 e2)<br />                 (< (cadr(car e1)) (cadr(car e2))) ) ) ));根据y坐标排序<br />       (setq str "")<br />       (foreach e lst1<br /> (setq str (strcat (cadr e) "\n" str))<br /> (setq pt (car e);插入点<br />     zg (caddr e)));字高<br />       (setq pt (polar pt (* pi 0.5) zg))<br />       (vl-cmdf "MTEXT" pt "H" zg "W" 0 (substr str 1 (1- (strlen str))) "")))<br />   (setvar "aunits" oldaun)   ;设为弧度<br />   (setvar "osmode" oldosm )<br />   (princ)<br />   )<br />   (defun ss2lst (ss / lst n ssnamen)<br />   (setq n -1<br /> lst '()<br />   )<br />   (while (setq ssnamen (ssname ss (setq n (1+ n))))<br />     (setq lst (cons ssnamen lst))<br />   )<br />   (reverse lst)<br /> )<br />   (defun c:t0 ( / lst p1 p2 pn s1 ss ss0)<br />   (vl-load-com)<br />   (setq ss (ssget '((0 . "LWPOLYLINE")))<br />         lst (ss2lst ss)<br />   )<br />   (foreach s1 lst<br />     (setq pn (vlax-get (vlax-ename->vla-object s1) 'coordinates)<br />           p1 (list (nth 0 pn) (nth 1 pn))<br />           p2 (list (nth 4 pn) (nth 5 pn))<br />           ss0 (ssget "c" p1 p2 '((0 . "*TEXT")))<br />     )<br />     (tt ss0)<br />   )<br /> )

偏爱云~小吴

感谢大神，圆满解决

chenbh2

感谢！我找了好久呢！

fengche1915@