|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
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 |
|