乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 136|回复: 9

如何实现输入汉字?

[复制链接]

6

主题

20

帖子

3

银币

初来乍到

Rank: 1

铜币
44
发表于 2003-12-3 15:57:00 | 显示全部楼层 |阅读模式
为什么在VB中编写的程序在中显示的汉字全部为????
请高手帮忙写个函数来解决这个问题,并能实现字体,大小的改变.
不胜感激!
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-12-3 19:03:00 | 显示全部楼层
汉字显示为?号,是因为文字所使用的字体不支持中文的,将它转化成中文字体就行了。
字体一般是通过文字样式的设置,字高可以使用它的属生Height来更改。
回复

使用道具 举报

15

主题

32

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
92
发表于 2003-12-3 21:36:00 | 显示全部楼层
只要在AutoCAD的fonts目录下放入中文字体就行了
回复

使用道具 举报

6

主题

20

帖子

3

银币

初来乍到

Rank: 1

铜币
44
发表于 2003-12-27 19:05:00 | 显示全部楼层
一对废话,我要的是代码!!!!!!!!!!!!
回复

使用道具 举报

26

主题

243

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
347
发表于 2003-12-27 19:19:00 | 显示全部楼层
Dim Styleobj As AcadTextStyle             '汉字字体集合
        Set AcadDoc = acadApp.ActiveDocument
        Set MoSpace = AcadDoc.ModelSpace
        Set paSpace = AcadDoc.PaperSpace
        acadApp.Visible = acTrue
        Set Styleobj = AcadDoc.TextStyles.Add("黑体")
        Styleobj.fontFile = "c:\windows\fonts\simhei.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("仿宋")
        Styleobj.fontFile = "c:\windows\fonts\simfang.ttf"
        Set Styleobj = AcadDoc.TextStyles.Add("楷体")
        Styleobj.fontFile = "c:\windows\fonts\simkai.ttf"
。。。。。。。
AcadDoc.ActiveTextStyle = AcadDoc.TextStyles.Add("黑体")
设置为当前字体后开始写文字!
不知能不能满足你的要求?试试!
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-12-27 19:35:00 | 显示全部楼层

晕,提要求还这么不客气。
回复

使用道具 举报

2

主题

77

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
85
发表于 2003-12-27 19:42:00 | 显示全部楼层
都是这个贴子惹的祸,呵呵...
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14105&star=1&skin=0
回复

使用道具 举报

41

主题

657

帖子

9

银币

中流砥柱

Rank: 25

铜币
821
发表于 2003-12-27 20:31:00 | 显示全部楼层

把你的代码发上来,看看是不是你哪里写错了!!
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-12-28 15:32:00 | 显示全部楼层
Sub textfont()
Dim typeface As String
Dim textbold As Boolean
Dim textitalic As Boolean
Dim textcharset As Long
Dim textpfamily As Long
ThisDrawing.ActiveTextStyle.GetFont typeface, _
textbold, textitalic, textcharset, textpfamily
MsgBox "当前字体为:" & typeface
typeface = "隶书"  '在此设置字体!!!!!!!!!
ThisDrawing.ActiveTextStyle.SetFont typeface, _
textbold, textitalic, textcharset, textpfamily
ThisDrawing.Regen acActiveViewport
Dim textobj As AcadText
Dim textstring As String
Dim textheight As Double
Dim inspoint(0 To 2) As Double
textstring = "关章洋"
inspoint(0) = 10
inspoint(1) = 10
inspoint(2) = 0
textheight = 5
Set textobj = ThisDrawing.ModelSpace.AddText(textstring, inspoint, textheight)
ThisDrawing.Application.ZoomExtents
End Sub
回复

使用道具 举报

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-12-28 16:55:00 | 显示全部楼层
对这么不礼貌的家伙还如此耐心,佩服!佩服!虽然大家是朋友用不着“跪求”但别人付出了劳动,起码的尊重我想还是应该的吧。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 10:35 , Processed in 2.802187 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表