|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
; o$ ], p- ^4 V E请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。' M o. x2 @ L B2 K" I8 G
Sub TxtStyle() '首先创建了选择集
. l" k) m0 E4 B+ Y" c7 k$ v3 p+ C Dim TS As AcadTextStyles
8 a& f+ e# O; B; t% z; e Set TS = ThisDrawing.TextStyles4 x& C7 | `, U8 V& [' ~
# \: g* `8 b, X& V4 Y/ n- ]0 V For i = 0 To TS.Count - 14 j# y& Q2 S2 n- M. E1 K$ X
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
" a- d5 }( ?: v2 X4 ~$ R Next$ x7 @2 q" j+ O% t1 s* Z
sub ) E i$ W$ _9 H6 P
# ?, X. U! h, w. @在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
4 B' M9 H2 b# E$ o k: w谢谢！
$ a! M$ i5 R! [1 H, k' S/ l! a, H! v. o1 a/ s2 L3 i# Y
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15