社区 › AutoCAD工具插件 › 求大神修改下文字合并的程序，次程序会删除原来的问题，求修改为不删除原来文字，....

664571221 发表于 2018-8-31 16:34:43

求大神修改下文字合并的程序，次程序会删除原来的问题，求修改为不删除原来文字，....

求大神修改下文字合并的程序，次程序会删除原来的问题，求修改为不删除原来文字，合并后的文字根据鼠标插入点插入cad

(defun C:hb (/ SS ENT STR I)
(if (and (setq SS (ssget '((0 . "*TEXT"))))
(>= (sslength SS) 2)
)
(progn
;;获得第一个对象的内容
(setq p (getpoint "\n加空格（鼠标左键）/不加空格<鼠标右键>:"))
(if p (setq str1 " ")(setq str1 ""))
(setq ENT (entget (ssname SS 0))
STR (cdr (assoc 1 ENT))
)
;;获得其他对象的内容并依次连接
(setq I 1)
(repeat (1- (sslength SS))
(setq STR (strcat STR str1
(cdr (assoc 1 (entget (ssname SS I))))
)
I (1+ I)
)
)
;;更新第一个对象内容
(setq ENT
(subst (cons 1 STR)
(assoc 1 ENT)
ENT
)
)
(entmod ENT)
)
)
(command "_.erase" ss "remove" (ssname SS 0) "")
(princ)
);_结束defun

凨仴黯夜 发表于 2018-9-2 09:08:44

把最后command那行删了

mikewolf2k 发表于 2018-9-3 11:23:00

(command "_.erase" ss "remove" (ssname SS 0) "")

664571221 发表于 2018-9-3 15:51:44

凨仴黯夜 发表于 2018-9-2 09:08
把最后command那行删了

你好 ，合并后的文字变成一个新的文字，然后插入鼠标点击的地方

664571221 发表于 2018-9-3 15:51:56

mikewolf2k 发表于 2018-9-3 11:23
(command "_.erase" ss "remove" (ssname SS 0) "")

你好 ，合并后的文字变成一个新的文字，然后插入鼠标点击的地方

查看完整版本: 求大神修改下文字合并的程序，次程序会删除原来的问题，求修改为不删除原来文字，....