加中文字

cxf11991 发表于 2004-5-25 16:42:00

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

写一下代码,谢谢

myfreemind 发表于 2004-5-25 18:20:00

<PRE 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 发表于 2004-5-26 17:04:00

这个代码我知道的啊，但是不能显示中文字啊

有人说"autocad默认的文字样式是standard,字体名是txt.shx,不支持中文,你新建一个文字样式,指定中文字体不就行了.在程序中实现方式同理!~新建的文字样式是保存在DWG中的....."

可能这个东西太简单了,都没人想发表

我真的很急,请告诉我这么在画显示中文字体啊

也有人告诉我这么做，

<IMG alt=发贴心情 src="skins/default/topicface/face1.gif" border=0> 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 发表于 2004-5-26 18:17:00

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

页: [1]

明经CAD社区's Archiver

加中文字