求高手编写LISP代码范围内文字合并问题

香田里浪人 · 发表于 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

如果加一条，在框选范围内，间距在某个数值内合并就完美了

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

[测绘] 求高手编写LISP代码范围内文字合并问题