[求助]：VBA编程写文字

kfygl · 发表于 2004-3-8 00:59:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

Set TsObj = ThisDrawing.ActiveTextStyle
   TsObj.fontFile = "c:\windows\fonts\simsun.ttc"
   Dim mtxtObj As AcadMText
Dim txtWidth As Double
Dim txtStr As String
Dim insPnt(0 To 2) As Double
insPnt(0) = 200
insPnt(1) =  400
insPnt(2) = 0
txtStr = MName
txtWidth = 36
Set mtxtObj = ThisDrawing.ModelSpace.AddMText(insPnt, txtWidth, txtStr)
mtxtObj.height = 8
用以上语句进行注文字时，为什么CAD界面上显示的都是“?”，在CAD下改过字体后才显示汉字，如何写程序使注上去即为汉字？

自由的鱼 · 发表于 2004-3-8 21:57:41

把当前字体改一下!

cityplan · 发表于 2004-3-13 22:41:56

TsObj.fontFile = "c:\windows\fonts\simsun.ttF[/COLOR]"

账号		自动登录	找回密码
密码			立即注册

[求助]：VBA编程写文字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子