香田里浪人 发表于 2013-10-8 21:33:37

增加字体设置
;合并框内文字
(defun c:gg(/ ss i el e lst p nr)
(setq nr "")
(setq ss (ssget '((0 . "TEXT"))))
(setq i 0)
(repeat (sslength ss)
    (setq e (ssname ss i))
    (setq el (entget e))
    (setq nr (strcat nr (cdr (assoc 1 el))))
    (setq i (1+ i)))
(setq lst (entget (ssname ss 0)))
(setq p (assoc 10 lst))
(entmake (list '(0 . "TEXT") (cons 1 nr) (cons 10 (cdr p)) (cons 40 0.9)'(41 . 0.6)'(7 . "BG_ST")))
(princ)
)

永不言弃 发表于 2013-10-9 10:11:02

谢谢

txpc365 发表于 2014-9-9 23:19:32

试一下，感谢分享

syezhf 发表于 2015-12-21 13:18:05

如果加一条，在框选范围内，间距在某个数值内合并就完美了
页: 1 [2]
查看完整版本: 删除