QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 1982|回复: 1
收起左侧

[求助] CAD VBA中bigFontFile如何修改?

[复制链接]
发表于 2016-1-5 13:43:42 | 显示全部楼层 |阅读模式 来自: 中国天津

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位好!
3 H# Z/ B+ ^& x2 h. \请教一个问题,一份图纸中有很多种文字样式,而且不同样式又用了不同的字体,还有SHX的,另外还有缺少的字体(图纸从别人那里发过来,却不发对应字体的),这样造成了图纸打开后需要进行手工大规模的替换,我用vba去一次性把这些字体统统给替换掉。6 u# W$ b- Q& H" z$ v/ i/ {
Sub TxtStyle()  '首先创建了选择集
! X: |0 |3 _5 D) h2 e. D9 f    Dim TS As AcadTextStyles
: ^: T6 p" c  X* U5 F+ g  C3 `    Set TS = ThisDrawing.TextStyles
; W6 V4 Z. o5 k) k, e3 u3 V0 S& {2 X! ]9 y
    For i = 0 To TS.Count - 17 j, z& }" G" D" j' q
    TS.Item(i).BigFontFile=“”  '把有大字体的都去掉,但是这里错误了, ]( g8 }2 F& k( {3 t- `$ F+ k( G
    Next
2 [, T' F; t2 v# m- w    sub   
- ]. e3 ?" _- \0 k2 f
' C0 [) u" q+ W3 c在运行的过程中 TS.Item(i).BigFontFile=“” 提示错误,我查了vba帮助,上面说BigfontFile不能设置为空或者null,那么我想去掉这个字体的BigFontFile属性,也就是不再需要大字体,我该如何设置?
( O" P/ W) R# D) i谢谢!
& I1 \' z9 c9 h6 C% H$ p& G. g
发表于 2016-1-14 19:31:15 | 显示全部楼层 来自: 中国辽宁营口
通常可改为“gbcbig.shx”文件全路径
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表