[编程申请]：单行文字转多行文字

zzg123good

把几行单行文字，转成一个多行文字。

eachy

2. 
   
3. (defun c:tt (/ ss ssl n        oldh oldst e el        box boxl l blst        strl h py h st)
   
4.   (if (setq ss (ssget '((0 . "text"))))
   
5.     (progn
   
6.       (command ".undo" "be")
   
7.       (setq ssl          (sslength ss)
   
8.             n          -1
   
9.             oldh  (getvar "textsize")
   
10.             oldst (getvar "textstyle")
    
11.       )
    
12.       (repeat ssl
    
13.         (setq
    
14.           e    (ssname ss (setq n (1+ n)))
    
15.           el   (entget e)
    
16.           box  (textbox (vl-remove (assoc 50 el) el))
    
17.           boxl (cons box boxl)
    
18.           l    (+ (abs (caadr box)) (abs (cadadr box)))
    
19.           blst (cons l blst)
    
20.           strl (cons (list (cdr (assoc 10 el)) (cdr (assoc 1 el))) strl)
    
21.           h    (if (and h (> (cdr (assoc 40 el)) h))
    
22.                  (setq h (cdr (assoc 40 el)))
    
23.                  (setq h (cdr (assoc 40 el)))
    
24.                )
    
25.           st   (if (not st)
    
26.                  (cdr (assoc 7 el))
    
27.                  st
    
28.                )
    
29.         )
    
30.       )
    
31.       (setvar "textsize" h)
    
32.       (if (/= (getvar "textstyle") st)
    
33.         (setvar "textstyle" st)
    
34.       )
    
35.       (setq strl (vl-sort strl
    
36.                           '(lambda (e1 e2)
    
37.                              (if (equal (cadar e1) (cadar e2) 0.00001)
    
38.                                (< (caar e1) (caar e2))
    
39.                                (> (cadar e1) (cadar e2))
    
40.                              )
    
41.                            )
    
42.                  )
    
43.             py         (apply 'max (mapcar 'cadr (apply 'append boxl)))
    
44.       )
    
45.       (vla-addmtext
    
46.         (vla-get-modelspace
    
47.           (vla-get-activedocument (vlax-get-acad-object))
    
48.         )
    
49.         (vlax-3d-point (list (caaar strl) (+ py (cadaar strl))))
    
50.         (apply 'max blst)
    
51.         (apply 'strcat
    
52.                (mapcar '(lambda (x) (strcat (last x) "\\P")) strl)
    
53.         )
    
54.       )
    
55.       (command ".erase" ss "")
    
56.       (setvar "textsize" oldh)
    
57.       (setvar "textstyle" oldst)
    
58.       (command ".undo" "end")
    
59.     )
    
60.   )
    
61.   (princ)
    
62. )

<br /> (defun c:tt (/ ss ssl n        oldh oldst e el        box boxl l blst        strl h py h st)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (progn<br />       (command ".undo" "be")<br />       (setq ssl          (sslength ss)<br />             n          -1<br />             oldh  (getvar "textsize")<br />             oldst (getvar "textstyle")<br />       )<br />       (repeat ssl<br />         (setq<br />           e    (ssname ss (setq n (1+ n)))<br />           el   (entget e)<br />           box  (textbox (vl-remove (assoc 50 el) el))<br />           boxl (cons box boxl)<br />           l    (+ (abs (caadr box)) (abs (cadadr box)))<br />           blst (cons l blst)<br />           strl (cons (list (cdr (assoc 10 el)) (cdr (assoc 1 el))) strl)<br />           h    (if (and h (> (cdr (assoc 40 el)) h))<br />                  (setq h (cdr (assoc 40 el)))<br />                  (setq h (cdr (assoc 40 el)))<br />                )<br />           st   (if (not st)<br />                  (cdr (assoc 7 el))<br />                  st<br />                )<br />         )<br />       )<br />       (setvar "textsize" h)<br />       (if (/= (getvar "textstyle") st)<br />         (setvar "textstyle" st)<br />       )<br />       (setq strl (vl-sort strl<br />                           '(lambda (e1 e2)<br />                              (if (equal (cadar e1) (cadar e2) 0.00001)<br />                                (< (caar e1) (caar e2))<br />                                (> (cadar e1) (cadar e2))<br />                              )<br />                            )<br />                  )<br />             py         (apply 'max (mapcar 'cadr (apply 'append boxl)))<br />       )<br />       (vla-addmtext<br />         (vla-get-modelspace<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />         (vlax-3d-point (list (caaar strl) (+ py (cadaar strl))))<br />         (apply 'max blst)<br />         (apply 'strcat<br />                (mapcar '(lambda (x) (strcat (last x) "\\P")) strl)<br />         )<br />       )<br />       (command ".erase" ss "")<br />       (setvar "textsize" oldh)<br />       (setvar "textstyle" oldst)<br />       (command ".undo" "end")<br />     )<br />   )<br />   (princ)<br /> )

zzg123good

几行文字中如果有空行的时候，前后的顺序就乱了。能不能保留原来的相对位置？实际上，没有空行的时候也会出现混乱的现象。

eachy

你的行距是严格的吗?合并的时候只是一行行的合并,不会有一行中是几个独立的 Text?
完全保持不太可能，因为Mtext的行距调整不一定和图上的效果一致

zzg123good

行距不是严格的。有的是几个独立的TEXT，但已经用小东的程序改成是按行合并了。如果不能完全保持原来的行距，但是不应该出现原来在上面的一行字，换到下面一行了的情况。

eachy

最初由 zzg123good 发布
[B]行距不是严格的。有的是几个独立的TEXT，但已经用小东的程序改成是按行合并了。如果不能完全保持原来的行距，但是不应该出现原来在上面的一行字，换到下面一行了的情况。 [/B]

代码已更新

zzg123good

“#1反应沉淀池排泥阀8开指令”
“#1反应沉淀池排泥阀8关指令”
“#1反应沉淀池排泥阀9开指令”
“#1反应沉淀池排泥阀9关指令”
上面这四行TEXT，你试试如果要合并成多行文字，行不行。我试的时候，下面两行跑到上面去了。

eachy

最初由 zzg123good 发布
[B]“#1反应沉淀池排泥阀8开指令”
“#1反应沉淀池排泥阀8关指令”
“#1反应沉淀池排泥阀9开指令”
“#1反应沉淀池排泥阀9关指令”
上面这四行TEXT，你试试如果要合并成多行文字，行不行。我试的时候，下面两行跑到... [/B]

发图上来

zzg123good

图见附件

eachy

已更新

zxcvbnm-cad

用不了
命令行提示：
has been loaded.no function
definition: nil

liufx2000

能不能请大侠编个vba的版本的？谢谢

eachy

俺只会Lisp，不会VBA

lmt112233

autocad本身已經可以把几行单行文字，转成一个多行文字。
在下拉菜單express-->text-->convert text to mtext

eachy

你可以试一试，还是有区别的