关二字体

yxr_MJTD

请问怎样才能在CAD中为一个新建的样式名的字体改为"黑体"？？？用VBA代码.谢谢各位!!!

dylanjyu

我也想知道啊，今天研究了好久，下面是网上找到的一段代码
Sub ModifyTextFont()
    Dim typeFace As String
    Dim SavetypeFace As String
    Dim Bold As Boolean
    Dim Italic As Boolean
    Dim charSet As Long
    Dim PitchandFamily As Long

    ThisDrawing.ActiveTextStyle.GetFont typeFace, Bold, Italic, charSet, PitchandFamily

    typeFace = "黑体"
    ThisDrawing.ActiveTextStyle.SetFont typeFace, Bold, Italic, charSet, PitchandFamily
    ThisDrawing.Regen acActiveViewport

End Sub

以上代码，但是发现运行不完美，要HZ字体样式才能显示到效果，但是“样式”那里仍然不会显示为“黑体”，并且standard等不会显示效果

dylanjyu

楼主知道方法了吗？知道的话麻烦告诉我一声，谢谢