把文字以空格自动换行

小鸟

2. (defun c:tt(/ ss ents txt 2txt )
   
3.   (setq  ss   (ssget '((0 . "*text")))  ; 选择文字
   
4.   ents (entget (ssname ss 0))  ; dxf码
   
5.   txt  (cdr (assoc 1 ents))  ; 提取文字
   
6.   pt   (cdr (assoc 10 ents))
   
7.   a01  (parse12 txt " ")
   
8.   )          ;分割字符串
   
9. ;;;   (setq 2txt "")
   
10.   (foreach n a01
    
11.     (if  (= 2txt nil)
    
12.       (progn
    
13.   (setq 2txt n)
    
14.       )
    
15.       (progn
    
16.   (setq 2txt (strcat 2txt "\n" n))
    
17.       )
    
18.     )
    
19.   )
    
20.   (YD-01文字 2txt pt 10)
    
21.   (command "_.erase" ss "")
    
22.   )
    
23. 
    
24. (defun YD-01文字 (文字 pta gd / )
    
25.   (entmake
    
26.       (list '(0 . "MTEXT")
    
27.       '(100 . "AcDbEntity")
    
28.       '(100 . "AcDbMText")
    
29.       '(7 . "Standard");; 文字样式
    
30.       (cons 1 文字);;文字内容
    
31.       (cons 10 pta);;文字插入点
    
32.       (cons 8 "0");;文字图层
    
33.       (cons 40 gd);;文字倾斜度
    
34.       (cons 71 1) ;;水平对正 居中对正
    
35.     ; (cons 73 2) ;;垂直对正 居中对正
    
36.       )
    
37.     )
    
38.   ;(princ "异度空间 写文字")
    
39.   (princ)
    
40.   )
    
41. 
    
42. ;;85.12 [功能] 字符串分割 By st788796
    
43. ;;基本同上parse4 parse8
    
44. ;;(parse12 "aa ,10 b.10x20,.2" ",."),("aa ,10 b.10x20" "2")
    
45. ;;(parse12 "aa ,10 b.10x20,.2" "")死循环
    
46. (defun parse12 (str delimiter / POST STRL STRLST)
    
47.   (setq strl (strlen delimiter))
    
48.   (while (vl-string-search delimiter str)
    
49.     (setq post (vl-string-search delimiter str))
    
50.     (setq strlst (append strlst (list (substr str 1 post))))
    
51.     (setq str (substr str (+ post (1+ strl))))
    
52.   )
    
53.   (vl-remove "" (append strlst (list str)))
    
54. )

(defun c:tt(/ ss ents txt 2txt )<br />   (setq  ss   (ssget '((0 . "*text")))  ; 选择文字<br />   ents (entget (ssname ss 0))  ; dxf码<br />   txt  (cdr (assoc 1 ents))  ; 提取文字<br />   pt   (cdr (assoc 10 ents))<br />   a01  (parse12 txt " ")<br />   )          ;分割字符串<br /> ;;;   (setq 2txt "")<br />   (foreach n a01<br />     (if  (= 2txt nil)<br />       (progn<br />   (setq 2txt n)<br />       )<br />       (progn<br />   (setq 2txt (strcat 2txt "\n" n))<br />       )<br />     )<br />   )<br />   (YD-01文字 2txt pt 10)<br />   (command "_.erase" ss "")<br />   )<br /> <br /> (defun YD-01文字 (文字 pta gd / )<br />   (entmake<br />       (list '(0 . "MTEXT")<br />       '(100 . "AcDbEntity")<br />       '(100 . "AcDbMText")<br />       '(7 . "Standard");; 文字样式<br />       (cons 1 文字);;文字内容<br />       (cons 10 pta);;文字插入点<br />       (cons 8 "0");;文字图层<br />       (cons 40 gd);;文字倾斜度<br />       (cons 71 1) ;;水平对正 居中对正<br />     ; (cons 73 2) ;;垂直对正 居中对正<br />       )<br />     )<br />   ;(princ "异度空间 写文字")<br />   (princ)<br />   )<br /> <br /> ;;85.12 [功能] 字符串分割 By st788796<br /> ;;基本同上parse4 parse8<br /> ;;(parse12 "aa ,10 b.10x20,.2" ",."),("aa ,10 b.10x20" "2")<br /> ;;(parse12 "aa ,10 b.10x20,.2" "")死循环<br /> (defun parse12 (str delimiter / POST STRL STRLST)<br />   (setq strl (strlen delimiter))<br />   (while (vl-string-search delimiter str)<br />     (setq post (vl-string-search delimiter str))<br />     (setq strlst (append strlst (list (substr str 1 post))))<br />     (setq str (substr str (+ post (1+ strl))))<br />   )<br />   (vl-remove "" (append strlst (list str)))<br /> )

nsh935

谢谢大佬分享