|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
3 H# Z/ B+ ^& x2 h. \请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。6 u# W$ b- Q& H" z$ v/ i/ {
Sub TxtStyle() '首先创建了选择集
! X: |0 |3 _5 D) h2 e. D9 f Dim TS As AcadTextStyles
: ^: T6 p" c X* U5 F+ g C3 ` Set TS = ThisDrawing.TextStyles
; W6 V4 Z. o5 k) k, e3 u3 V0 S& {2 X! ]9 y
For i = 0 To TS.Count - 17 j, z& }" G" D" j' q
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了, ]( g8 }2 F& k( {3 t- `$ F+ k( G
Next
2 [, T' F; t2 v# m- w sub
- ]. e3 ?" _- \0 k2 f
' C0 [) u" q+ W3 c在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
( O" P/ W) R# D) i谢谢！
& I1 \' z9 c9 h6 C% H$ p& G. g
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15