|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位好！7 n6 P9 n. G2 v% i; g; l
请教一个问题，一份图纸中有很多种文字样式，而且不同样式又用了不同的字体，还有SHX的，另外还有缺少的字体（图纸从别人那里发过来，却不发对应字体的），这样造成了图纸打开后需要进行手工大规模的替换，我用vba去一次性把这些字体统统给替换掉。5 e! L) }4 L# q2 g% I
Sub TxtStyle() '首先创建了选择集; P3 t3 e& p6 {# i
Dim TS As AcadTextStyles
/ L% j2 r* C6 s Set TS = ThisDrawing.TextStyles/ k- f2 e( A6 }
; l& u* k* \( e; c c8 j1 H1 d For i = 0 To TS.Count - 13 a( t# |" K* s! C1 q. U1 z5 s
TS.Item(i).BigFontFile=“” '把有大字体的都去掉，但是这里错误了
* `! ~+ G/ z, _; I4 ?, ? Next4 L# B1 f3 I) Y' m" c5 Z
sub 2 Q8 l6 y2 k" P V2 F! N: s
7 c) i9 q, l7 ?6 d* d' o/ K8 G
在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误，我查了vba帮助，上面说BigfontFile不能设置为空或者null，那么我想去掉这个字体的BigFontFile属性，也就是不再需要大字体，我该如何设置？, e1 Q1 b6 n/ f* d* T
谢谢！& W8 h( T$ B F4 O4 L
( b3 Q K8 `0 S) { |
|
发表于 2016-1-5 13:43:42
发表于 2016-1-14 19:31:15