|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！8 E# g3 {2 |: ~, m8 V
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。. l- {4 Z4 R8 J
Sub TxtStyle() '首先创建了选择集, X" G; Q% c. l9 L- H
Dim TS As AcadTextStyles
& w2 w3 S- b1 j5 x Set TS = ThisDrawing.TextStyles6 S+ D4 g2 f* r3 e/ l' [
& j" [2 h! V4 u" g' u! N For i = 0 To TS.Count - 18 C# n& l- R2 t: a3 n: Y
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了 q4 x* I) E: \+ y
Next! C% \/ X) Z w5 t: s
sub " u. U+ i8 X; d5 T1 d9 s$ {( B' R
; @) K$ m' [1 v# m+ m
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？
6 T% t$ j5 M' e谢谢！
7 G @+ O# k( K, r, k- z% r& l; X8 H) |( r5 }' o
|
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15