tranney 发表于 2013-7-20 18:58:32

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

先贴出原版

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

清风明月名字 发表于 2014-5-28 20:08:12

谢谢楼主的插件分享！

woxing1987 发表于 2014-5-31 10:26:43

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

ZZXXQQ 发表于 2014-5-31 21:12:01

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

jxncxu 发表于 2022-10-7 21:11:15

这个程序打断功能不全，字体旋转90度后就打断不了
页: [1]
查看完整版本: 关于狼版主的文字打断与连接的小bug