品茗新秀 发表于 2014-5-19 10:00:52

文字合并如何设置间距和行距大于某一个值不合并，如何取合并中的第一个字的大小及...

本帖最后由 品茗新秀 于 2014-5-19 10:22 编辑

文字合并如何设置间距和行距大于某一个值不合并，如何取合并中的第一个字的大小及...
(defun c:txt()
(vl-load-com)
(setq en (car (entsel "\n选择文字: ")))                         ;;;选择文字
(setq txt1 (vla-get-TextString (vlax-ename->vla-object en)))    ;;;获取“文字1”
(setq en2 (car (entsel "\n选择文字: ")))
(while en2
(setq oxbj (vlax-ename->vla-object en))         
(setq txt1 (vla-get-TextString oxbj))                                          ;;;选择“文字”
(setq txt2 (vla-get-TextString (vlax-ename->vla-object en2)))   ;;;获取“文字2”
(command "erase" en2 "")                                        ;;;删除“文字2”
(setq txt (strcat txt1 txt2))                                 ;;;将 “文字1” 和 “文字2” 合并为 “txt”
(vla-put-TextString (vlax-ename->vla-object en) txt)            ;;;将文字1替换为 “txt”
(setq en2 (car (entsel "\n选择文字: ")))))

总结了一下，文字合并涉及问题1文字的间距2文字的行距3文字的角度4合并的字取合并前的第一个字的大小角度5合并按从左到右的顺序或从上到下的顺序6框选文字7合并前文字消重7天正字转成TEXT。

不知哪位高手能把这一系列问题解决。

想想简单的文字合并涉及东东还真不少

xyp1964 发表于 2014-5-19 12:12:36

继续慢慢想……直到想明白

flytoday 发表于 2014-5-19 12:31:09

套哥你会想明白的……

ysq101 发表于 2014-5-19 12:36:12

现在知道写程序不容易了吧。。。

lpl 发表于 2014-5-19 15:56:35

乱套有什么用？？？

434939575 发表于 2014-5-19 21:30:59

本帖最后由 434939575 于 2014-5-19 21:39 编辑

土豪。不差钱，支持明经。

小师傅 发表于 2015-5-8 13:09:42

怎么就没没人回复有价值的东西呢

preone 发表于 2016-6-1 16:27:57

不知道有么有结果了？
页: [1]
查看完整版本: 文字合并如何设置间距和行距大于某一个值不合并，如何取合并中的第一个字的大小及...