CAD文字合并，位置不变插件

pengl86

CAD文字合并，位置不变，有这样的插件吗，批量改可以改吗

yxl88168

有啊，你搜一搜就出来了

479274135

1. ;自定义合并文字“A”“B”为"AB"
   
2. (defun TEXTJOIN(E1 E2 / T1 T2)
   
3.   (setq T1(entget E1)
   
4. T2(entget E2))
   
5.   (entmod(subst
   
6.   (cons 1(strcat(cdr(assoc 1 T1))(cdr(assoc 1 T2))))
   
7.   (assoc 1 T1)T1))
   
8.   (entdel E2)
   
9. )

;自定义合并文字“A”“B”为"AB"<br /> (defun TEXTJOIN(E1 E2 / T1 T2)<br />   (setq T1(entget E1)<br /> T2(entget E2))<br />   (entmod(subst<br />   (cons 1(strcat(cdr(assoc 1 T1))(cdr(assoc 1 T2))))<br />   (assoc 1 T1)T1))<br />   (entdel E2)<br /> )

永不言弃

是这个效果吗

pengl86

永不言弃 发表于 2019-1-11 11:49
是这个效果吗

嗯嗯，大师，可以上传吗

pengl86

永不言弃 发表于 2019-1-11 11:49
是这个效果吗

大师能发我吗，万分感谢，QQ740575568

pengl86

yxl88168 发表于 2019-1-10 12:04
有啊，你搜一搜就出来了

大师，能贴出来吗，好多都是位置变了。我也没找到合适的，Q740575568

pengl86

479274135 发表于 2019-1-10 13:53

大师，你这个我试了一下，好像加载不了，麻烦你发我下。Q740575568

pengl86

永不言弃 发表于 2019-1-11 11:49
是这个效果吗

你Q多少，我能加下吗

ketxu

With point, is it a point or a Text string "." ?