如何将已经存在的文字样式的字体改变啊

huangbx

如：我已有的CAD图中有样式1这种文字样式，其对应的字体名为黑体，现在我想把其字体名变成宋体的，应该怎样设置啊，谢谢各位啦！

peicong

'查找文字样式是否存在
        For Each AcadTxtStyle In ThisDrawing.TextStyles
            If AcadTxtStyle.Name = "样式1" Then
                AcadTxtStyle.fontFile = "Simplex.shx"
                AcadTxtStyle.BigFontFile = "hztxt.shx"
                AcadTxtStyle.ObliqueAngle = "0"
                AcadTxtStyle.Height = "0"
                AcadTxtStyle.Width = "0.85"
                Exit For
            End If
        Next