|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！/ w) z* C. \% M" g: ~( C3 w
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
, x/ G3 Y2 t5 G a: \# p# k1 lSub TxtStyle() '首先创建了选择集
& c, s. ? q' l" o$ Q' B9 H Dim TS As AcadTextStyles
# d7 v6 O. I, u Set TS = ThisDrawing.TextStyles
. n- H1 c+ L9 r& ^* l) j5 U" i
+ Y) B" b+ [4 t) f For i = 0 To TS.Count - 1% o% S1 D" Q' D3 b# [- p
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
; h* {/ ] D* h% K/ d" n1 ~ Next5 E' o; Q# s0 ^6 }, Q
sub
1 D5 G; N7 d" l+ _7 l
: m* e7 X; n$ w- E$ o4 a) E在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
|/ ?0 M6 e1 l, p" j1 {* }谢谢！. K# k H/ h0 }
" C* r0 O) E8 g" P$ A# r# @ |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15