cmen110 发表于 2007-10-3 21:46:00

[求助]怎样统一更改CAD块中字体样式？

怎样统一更改CAD块中字体样式？兄弟急啊？

ymb0709 发表于 2011-3-3 20:37:10

好东西，当然要看

mh2000wh 发表于 2011-2-8 07:21:28

看看代码是什么

ZZXXQQ 发表于 2007-10-7 10:33:00

改一个后用样式刷（特性匹配）全选刷一下就可以了。但有转角的文字会旋转成与第一个相同。
可以使用下面的小程序：


;明经 ZZXXQQ 统改文字样式
(DEFUN C:TT ()
(SETQ NM (GETSTRING "\nEnter Text Style 文字样式 :"))
(IF (AND (TBLSEARCH "STYLE" NM) (SETQ SS (SSGET "X" '((0 . "TEXT"))))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT (SUBST (CONS 7 NM) (ASSOC 7 ENT) ENT))
   (ENTMOD ENT)
)
))
(PRINC)
)

cmen110 发表于 2007-10-8 19:35:00

本帖最后由 作者 于 2007-10-8 23:03:55 编辑

格式刷不管用啊，哥们，下面的代码看不懂啊

zhouyu027 发表于 2008-9-23 12:51:00

<p>不知道解决了没有，我也有此疑问</p>

cquwd 发表于 2009-5-7 12:19:00

好东西，当然要看！好东西，当然要看！好东西，当然要看！好东西，当然要看！

wkmhhy 发表于 2009-5-15 21:19:00

<p>特性里面改,</p>

cw13 发表于 2009-6-27 01:50:00

网上的格式刷插件多数是连字体样式高度和内容一起刷成和参照文字相同，不知道有没有只是刷字体样式高度而不改变原来文字内容的插件呢？

wzjkingde 发表于 2009-7-11 08:54:00

<p>看不到代码怎末弄啊</p>

xsj109 发表于 2009-10-29 09:14:00

顶起！看看

liang0911 发表于 2009-10-29 09:40:00

我的笨办法——快速选择-特性，然后修改
页: [1] 2 3
查看完整版本: [求助]怎样统一更改CAD块中字体样式？