[求助]

wfcst2004

哪位好心的大哥帮助一下我为什么标注不上文字：请看程序：

acadApp.ActiveDocument.ActiveTextStyle.fontFile = "c:\windows\fonts\simsun.ttf"
 Dim textobj As AcadText
 Dim textstring As String
 Dim inserionpt(0 To 2) As Double
 Dim height As Double
 textstring = "AutoCAD 二次开发."
 height = 0.3
 Dim typeface As String
 Dim bold As Boolean
 
 
 
 inserionpt(0) = 50: inserionpt(1) = 50: inserionpt(2) = 0
 height = acadApp.ActiveDocument.height / 9
 Set textobj = acadApp.ActiveDocument.ModelSpace.AddText(textstring, inserionpt, height / 9)

其中“二次开发."几个字在cad上总是－－“问号”？问什么，我搞了好久都搞不出来呀