|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！9 n" H, }3 K. t" J L
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。
- f) X3 s- V' u) R z" [! eSub TxtStyle() '首先创建了选择集/ Y5 Z6 W, ^' ^7 i
Dim TS As AcadTextStyles
2 `/ k; s+ a% K( k8 O! z# F! f Set TS = ThisDrawing.TextStyles5 ?4 Z1 s3 f$ S: j, b8 U/ H
1 Q; C' Q% i! h# M2 |- m. ^ For i = 0 To TS.Count - 1
& @9 w5 E- a9 a3 ~) P TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了5 j# p5 l" H$ I7 M: u* K$ H" v- Q4 ]8 b
Next0 ]5 R+ L1 W9 _0 F/ B
sub * j. U/ k8 [* R5 c v' S
' ?0 t* T1 V. y* U在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？. F `3 [/ \$ E/ R) ?
谢谢！ L, Z/ e8 H% N3 O6 d6 l
, v4 A6 J' Q3 e' g O, S1 X: X) ^. h |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15