统一字高度和文字样式

jesouris · 发表于 2014-10-12 14:51

好功能，能批量动态修改文字高度不

琴剑江山_10184 · 发表于 2014-10-12 17:39

bai2000 发表于 2014-10-12 10:47
能支持款选就好了，整个图不一定都是一个高度

(defun C:w1 (/ E EN N SS STY)
  (cond
((and
   (setq e (ssget "_+.:E:S" '((0 . "*TEXT"))))
   (setq ss (ssget ":s" '((0 . "*TEXT"))));
   )
   (setq e (entget (ssname ss 0)))
   (setq sty (assoc 7 e))
   (setq e (assoc 40 e))
   (repeat (setq n (sslength ss))
   (setq en (entget (ssname ss (setq n (1- n)))))
   (setq en (subst sty (assoc 7 en) en))
   (entmod (subst e (assoc 40 en) en))
   )
)
  )
  (princ)
)
这样改一改就可以框先了

spy071 · 发表于 2014-10-12 20:27

看起來蠻新鮮的真是不錯的程序

whonggg · 发表于 2014-10-13 06:15

赞一个，学习一下

xiabin68 · 发表于 2014-10-13 07:41

看一下什么样子

edsion24 · 发表于 2014-10-13 08:53

11111111111111111111

wuzheng80425 · 发表于 2014-10-13 09:28

不错，看看

gdslqs · 发表于 2014-10-13 11:14

老黄，我又来给你捧场

pipilu1984 · 发表于 2014-10-14 12:30

正需要这个功能

起跑线 · 发表于 2014-10-14 20:46

好功能

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

[源码] 统一字高度和文字样式