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

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

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

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

(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:07

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

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

赞一个，学习一下

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

看一下什么样子

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

11111111111111111111

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

不错，看看

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

老黄，我又来给你捧场

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

正需要这个功能

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


好功能
页: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16
查看完整版本: 统一字高度和文字样式