为什么用SetFont方法设置文字样式中字体时，不能正常显示？

genghb111

语句如下：

Set currTextStyle = ThisDrawing.TextStyles.Add("gkt")
ThisDrawing.ActiveTextStyle = currTextStyle
ThisDrawing.ActiveTextStyle.SetFont "楷体_GB2312", False, False, CharSet, PitchAndFamily

名为gkt的文字样式生成了，其字体名也已经被改为"楷体_GB2312"，但显示时却为宋体，必须在CAD的文字样式设置中重新刷新后，才能正常显示，不知是什么原因。

请各位大侠指教！！！

genghb111

请各位大侠指教！！！