乐筑天下

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

如何将一幅图中所有的MText对象中的字符TextString中内容放在一个字符变量里?谢谢

[复制链接]

2

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2003-12-31 10:48:00 | 显示全部楼层 |阅读模式
如何将一幅图中所有的MText对象中的字符TextString中内容放在一个字符变量里?谢谢![br]如何将一幅图中所有的MText对象中的字符TextString中内容放在一个字符变量里
回复

使用道具 举报

15

主题

285

帖子

9

银币

后起之秀

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

铜币
345
发表于 2003-12-31 11:33:00 | 显示全部楼层
先要得到一个mtext中的字符用一个变量例如str1表示, 把它赋给另一个变量例如str2,
str2=str2+str1
依次得到各个str1,运行str2=str2+str1 应该可以吧
回复

使用道具 举报

2

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2003-12-31 15:58:00 | 显示全部楼层
对不起啊,我这两天刚开始研究这个,我不知道如何引用mtext对象,用ThisDrawing.ModelSpace.AcadMText.TextString吧又不行,也就是说关
键怎么引用它,让.TextString赋值给一个变量,这跟office的VBA中的对象
引用有有点不同,这是怎么回事呢。str2=str2+str1这一步我也知道了,但
str1怎么得到,求高手指点?
回复

使用道具 举报

28

主题

117

帖子

4

银币

后起之秀

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

铜币
229
发表于 2003-12-31 16:54:00 | 显示全部楼层
给个简单的例子你看看吧
  1. Sub k()
  2. Dim mtext As AcadMText
  3. Dim entry As AcadEntity
  4. Dim str1 As String
  5. Dim str2 As String
  6. Dim pickp As Variant
  7. 'On Error GoTo endp
  8. ThisDrawing.Utility.GetEntity entry, pickp, "select a mtext:"
  9. If entry.ObjectName = "AcDbMText" Then
  10. Set mtext = entry
  11. str1 = mtext.TextString
  12. MsgBox str1
  13. str3 = "mjtd.com"
  14. mtext.TextString = str3
  15. End If
回复

使用道具 举报

2

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2004-1-1 13:20:00 | 显示全部楼层
谢谢了。我知道怎么弄了。原来是需要用AcadEntity这个对象来中转一下。
回复

使用道具 举报

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2004-1-1 23:38:00 | 显示全部楼层

GetEntity并不是单只返回多行文字对象,因而还需要进行对象类型的判断。如果自己能肯定,那么就不需要此步操作,而可以直接这样写:
ThisDrawing.ModelSpace(0).TextString,entry.TextString。
回复

使用道具 举报

2

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
16
发表于 2004-1-5 15:57:00 | 显示全部楼层
感谢!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 11:45 , Processed in 0.603877 second(s), 66 queries .

© 2020-2025 乐筑天下

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