|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
0 k7 K3 B% D; u! q% d$ u请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。& V9 K% N/ J5 S; J
Sub TxtStyle() '首先创建了选择集
$ j, E' X$ h6 G. P$ B$ [1 t Dim TS As AcadTextStyles
/ _( j. b, O# ^( T/ X4 `3 Y; O Set TS = ThisDrawing.TextStyles
$ y, a$ p3 r/ L7 h
& c: m) C% l* K3 p% p. g# r. J5 b0 k For i = 0 To TS.Count - 17 k' \, k6 |7 Q8 q8 m& w
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
$ {: Y2 E- T& Q6 C* \8 V' \% c Next
# _$ `2 v, N- N4 }( `0 N* O sub $ O/ a, B$ d1 T; D l/ S
9 b4 h e! s; |9 e+ ~8 B" _0 |
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？# Y1 s- i: H) y, L" a5 `" Y0 o& ?
谢谢！( \$ G o) b4 z- B
7 E7 t1 {* x" Q; b0 r3 g
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15