[编程申请]：文本合并……

yinzhun22

按单行文本的选择顺序，把文字合并成一个单行文本
请把源码贴出来，好像现在都下载不到，谢谢！！！

zml84

2. 
   
3. ;;;功能：将text对象按照选择顺序，把文字合并成一个单行文本
   
4. (defun C:TT (/ SS I EN ENT STR)
   
5.     (if        (and (setq SS (ssget '((0 . "TEXT"))))
   
6.              (> (sslength SS) 1)
   
7.         )
   
8.         (progn
   
9.             ;;获取第一个文本
   
10.             (setq ENT (entget (ssname SS 0))
    
11.                   STR (cdr (assoc 1 ENT))
    
12.             )
    
13.             ;;连接后面的文本
    
14.             (setq I 1)
    
15.             (repeat (1- (sslength SS))
    
16.                 (setq EN  (ssname SS I)
    
17.                       ENT (entget EN)
    
18.                       STR (strcat STR (cdr (assoc 1 ENT)))
    
19.                 )
    
20.                 ;;删除
    
21.                 (entdel EN)
    
22.                 (setq I (1+ I))
    
23.             )
    
24.             ;;更新第一文本
    
25.             (setq ENT (entget (ssname SS 0)))
    
26.             (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))
    
27.             (entmod ENT)
    
28.         )
    
29.     )
    
30.     (progn)
    
31. )
    

<br /> ;;;功能：将text对象按照选择顺序，把文字合并成一个单行文本<br /> (defun C:TT (/ SS I EN ENT STR)<br />     (if        (and (setq SS (ssget '((0 . "TEXT"))))<br />              (> (sslength SS) 1)<br />         )<br />         (progn<br />             ;;获取第一个文本<br />             (setq ENT (entget (ssname SS 0))<br />                   STR (cdr (assoc 1 ENT))<br />             )<br />             ;;连接后面的文本<br />             (setq I 1)<br />             (repeat (1- (sslength SS))<br />                 (setq EN  (ssname SS I)<br />                       ENT (entget EN)<br />                       STR (strcat STR (cdr (assoc 1 ENT)))<br />                 )<br />                 ;;删除<br />                 (entdel EN)<br />                 (setq I (1+ I))<br />             )<br />             ;;更新第一文本<br />             (setq ENT (entget (ssname SS 0)))<br />             (setq ENT (subst (cons 1 STR) (assoc 1 ENT) ENT))<br />             (entmod ENT)<br />         )<br />     )<br />     (progn)<br /> )<br />

yaker_77

不错的东西，谢谢了