乐筑天下

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

怎么给我添加的多文本字体设置成仿宋呢?

[复制链接]

4

主题

20

帖子

1

银币

初来乍到

Rank: 1

铜币
36
发表于 2003-11-10 10:18:00 | 显示全部楼层 |阅读模式
怎么给我添加的多文本字体设置成仿宋呢?
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-11-10 11:47:00 | 显示全部楼层
遍历图纸空间,逐个找到文字对象,然后替换字体。
回复

使用道具 举报

4

主题

20

帖子

1

银币

初来乍到

Rank: 1

铜币
36
发表于 2003-11-11 15:01:00 | 显示全部楼层
能不能具体点呀???
回复

使用道具 举报

21

主题

166

帖子

7

银币

后起之秀

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

铜币
250
发表于 2003-11-12 21:20:00 | 显示全部楼层
先用在TextStyles中创建"仿宋体"(Add方法),然后将该Mtext对象的StyleName属性设为“仿宋体”,ok!
回复

使用道具 举报

4

主题

20

帖子

1

银币

初来乍到

Rank: 1

铜币
36
发表于 2003-11-14 11:10:00 | 显示全部楼层
版主,为什么不给一个建议?
其实我也知道从前有过类似的问题,但是那些都设置宋体呀,黑体什么的,起初我也以为设仿宋也可以用同样的方法,可是我试验过不行的。
为什么??
是仿宋的文件名不对吗?
还是?????
下面请高手发言。。。。。。。
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-11-14 11:29:00 | 显示全部楼层
字体的名称你可以查看字体设置对话框中的字体名称,直接按显示的名称输入就行:
  1. Sub CreateFontStyle()
  2.     On Error Resume Next
  3.     Dim FontStyle As AcadTextStyle
  4.     Set FontStyle = ThisDrawing.TextStyles.Add("仿宋体")
  5.     FontStyle.SetFont "仿宋_GB2312", False, False, 0, 0
  6.     If Not Err Then ThisDrawing.ActiveTextStyle = FontStyle
  7. End Sub
回复

使用道具 举报

4

主题

20

帖子

1

银币

初来乍到

Rank: 1

铜币
36
发表于 2003-11-14 17:08:00 | 显示全部楼层
这对多文本(mtext)好象不好用呀!出现的是乱码
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-11-14 17:20:00 | 显示全部楼层
你来个例图吧,不然再问下去也没有结果
回复

使用道具 举报

3

主题

10

帖子

3

银币

初来乍到

Rank: 1

铜币
22
发表于 2004-8-3 12:38:00 | 显示全部楼层
用这种方法为什么多行文字是乱码呢,单行文字就可以,怎么解决啊?
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 00:50 , Processed in 1.261163 second(s), 71 queries .

© 2020-2025 乐筑天下

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