加中文字

cxf11991

帮我把"明经通道"四个字加到thisdrawing上


写一下代码,谢谢

myfreemind

<RE class=Code>Sub Example_AddText()
    ' This example creates a text object in model space.

    Dim textObj As AcadText
    Dim textString As String
    Dim insertionPoint(0 To 2) As Double
    Dim height As Double
   
    ' Define the text object
    textString = "明经通道"
    insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    height = 0.5
   
    ' Create the text object in model space
    Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    ZoomAll
   
End Sub</PRE>

cxf11991

这个代码我知道的啊，但是不能显示中文字啊 有人说"autocad默认的文字样式是standard,字体名是txt.shx,不支持中文,你新建一个文字样式,指定中文字体不就行了.在程序中实现方式同理!~新建的文字样式是保存在DWG中的....." 可能这个东西太简单了,都没人想发表 我真的很急,请告诉我这么在画显示中文字体啊 也有人告诉我这么做，
Sub Set_Font() Dim j As Integer, TScount As Integer
Dim TextColl As AcadTextStyles
On Error Resume Next
Set TextColl = ThisDrawing.TextStyles
TScount = TextColl.Count
For j = 0 To TScount - 1
TextColl.Item(j).SetFont "宋体", False, False, False, False
Next j
ThisDrawing.Regen acActiveViewport
End Sub 我也试过了，还是不行,请大家告诉我,怎么样写几个中文字, 我也很郁闷啊，这么简单怎么就是不行

czbming

Sub Example_AddText()
' This example creates a text object in model space. Dim textObj As AcadText
Dim textString As String
Dim insertionPoint(0 To 2) As Double
Dim height As Double

' Define the text object
textString = "明经通道"
insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
height = 200

' Create the text object in model space
'宋体在我的Acad2004上也是显示不正常.其它字体无问题!~
ThisDrawing.TextStyles(0).SetFont "新宋体", False, False, 1, 1
'ThisDrawing.TextStyles(0).BigFontFile = "hztxt.shx" '如果有支持中文的形字体在此指定
Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
ZoomAll

End Sub