关于狼版主的文字打断与连接的小bug

tranney

先贴出原版

打断基本上没问题，就是连接，发现，后选择的居然在前面去了，呵呵，比如123456789在5这里打断，第一段1234，第二段56789，连接的时候，选择56789，然后选择1234，结果是原来56789消失，原来的1234变成了567891234，呵呵，不符合实际工作需要啊，比如写说明，断开后，又要连上，这样就多了好几部要做的了，希望高手改改改成能接着后面就好了，写谢谢了
本来贴出源码，结果系统显示75%与其他人重复，只好麻烦大家下载附件了

清风明月名字

谢谢楼主的插件分享！

woxing1987

lisp 都忘了，好久都没有学了

ZZXXQQ

2. ;这样试下
   
3. (princ  "\n  文字合并  by:langjs   命令:qq")
   
4. (defun c:qq (/ ent name name2 str)
   
5. (setq str "")
   
6. (while (and (setq name (car (entsel "\n选择文字: ")))
   
7.              (setq ent (entget name))
   
8.              (wcmatch (cdr (assoc 0 ent)) "*TEXT"))
   
9.   (if name2 (entdel name2) (setq ent1 ent))
   
10.   (setq str (strcat str (cdr (assoc 1 ent))) name2 name)
    
11.   (entmod (subst (cons 1 str) (assoc 1 ent1) ent1))
    
12.   (redraw name 3)
    
13. )
    
14. (if name2 (redraw name2 4))
    
15. (princ)
    
16. )
    

;这样试下<br /> (princ  "\n  文字合并  by:langjs   命令:qq")<br /> (defun c:qq (/ ent name name2 str)<br /> (setq str "")<br /> (while (and (setq name (car (entsel "\n选择文字: ")))<br />              (setq ent (entget name))<br />              (wcmatch (cdr (assoc 0 ent)) "*TEXT"))<br />   (if name2 (entdel name2) (setq ent1 ent))<br />   (setq str (strcat str (cdr (assoc 1 ent))) name2 name)<br />   (entmod (subst (cons 1 str) (assoc 1 ent1) ent1))<br />   (redraw name 3)<br /> )<br /> (if name2 (redraw name2 4))<br /> (princ)<br /> )<br />

jxncxu

这个程序打断功能不全，字体旋转90度后就打断不了