解决CAD宋体显示为问号的问题

不知道是高版本宋体跟低版本宋体不一样还是咋的,我用的CAD2014(win10)打开别人做好的文件,如果有宋体不会提示缺字体,但是宋体的全部显示为问号。解决方法也不复杂,改一下就可以了。

宋体在文字样式里会显示成这样

直接修改


然后应用,这样一个一个的修改有点麻烦,所以我用了VBA。

CAD2014的VBA不是集成安装的,要单独下载。。。

然后代码

    Dim st As AcadTextStyle
    Dim typeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long
    For Each st In ActiveDocument.TextStyles
        st.GetFont typeFace, Bold, Italic, charSet, PitchandFamily
        If typeFace = "SimSun" Then
            st.SetFont "宋体", Bold, Italic, charSet, PitchandFamily
        End If
    Next
    ActiveDocument.Regen acAllViewports
    MsgBox "宋体问号问题已解决", vbOKOnly, "提示"


代码很简单,遍历字体样式,GetFont,如果typeFace是 SimSun 就更改。

在此做个备份


评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值