|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！
: l0 G+ m: ~8 ]! f! d" e: U( t请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。4 x4 k( }- }2 {% i% y# [
Sub TxtStyle() '首先创建了选择集) f; ?0 h1 Q& r
Dim TS As AcadTextStyles: N* s; \# u4 _6 `, e" ?1 Y W
Set TS = ThisDrawing.TextStyles( d$ k+ L; u) [7 m: o( k
, O( c1 |2 M! J( P
For i = 0 To TS.Count - 1
6 K7 h5 s- X& H3 ~ TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了2 j/ s+ V" h& \# Q' q( Z
Next
- u' E2 Z6 @' Y: e sub U" U" D( ~, ?' V; ^( k# a* a
- n, u- d3 C" K% B) R. q在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？/ z$ L* e6 Q% g5 k
谢谢！+ l2 O: S2 @& d) o
( J& A. _4 K ?& p2 \# g# D |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15