[求助]

wfcst2004 发表于 2006-1-1 22:00:00

哪位好心的大哥帮助一下我为什么标注不上文字：请看程序：
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上总是－－“问号”？问什么，我搞了好久都搞不出来呀

页: [1]

明经CAD社区's Archiver

[求助]