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

品茗新秀 · 发表于 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

不知道有么有结果了？

账号		自动登录	找回密码
密码			注册

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

浏览过的版块