文字合并(属性保留)

13826031454 · 发表于 2013-8-20 22:14

;;;;作者：范建威
;;;;日期：2013-8-20
;;;;功能：文字合并(属性保留)

(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 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选择文字: ")))))

wowan1314 · 发表于 2013-8-20 22:16

此帖仅作者可见

云中孤鹰 · 发表于 2013-8-21 08:35

此帖仅作者可见

bobosky168 · 发表于 2015-6-27 13:53

此帖仅作者可见

香田里浪人 · 发表于 2015-6-28 07:49

此帖仅作者可见

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

[资源] 文字合并(属性保留)

评分

wowan1314 wowan1314 当前离线积分 39850 明经币个注册时间 2007-7-26 在线时间小时威望金钱个贡献激情	发表于 2013-8-20 22:16 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

云中孤鹰云中孤鹰当前离线积分 6724 明经币个注册时间 2012-3-15 在线时间小时威望金钱个贡献激情	发表于 2013-8-21 08:35 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

bobosky168 bobosky168 当前离线积分 663 明经币个注册时间 2010-10-16 在线时间小时威望金钱个贡献激情	发表于 2015-6-27 13:53 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡

香田里浪人香田里浪人当前离线积分 5064 明经币个注册时间 2013-1-8 在线时间小时威望金钱个贡献激情	发表于 2015-6-28 07:49 \| 显示全部楼层此帖仅作者可见

	使用道具举报显身卡