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

redfox

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

bluemoon

先要得到一个mtext中的字符用一个变量例如str1表示， 把它赋给另一个变量例如str2，
str2=str2+str1
依次得到各个str1，运行str2=str2+str1 应该可以吧

redfox

对不起啊，我这两天刚开始研究这个，我不知道如何引用mtext对象，用ThisDrawing.ModelSpace.AcadMText.TextString吧又不行，也就是说关
键怎么引用它，让.TextString赋值给一个变量，这跟office的VBA中的对象
引用有有点不同，这是怎么回事呢。str2=str2+str1这一步我也知道了，但
str1怎么得到，求高手指点？

topirol

给个简单的例子你看看吧

2. Sub k()
   
3. Dim mtext As AcadMText
   
4. Dim entry As AcadEntity
   
5. Dim str1 As String
   
6. Dim str2 As String
   
7. 
   
8. Dim pickp As Variant
   
9. 
   
10. 'On Error GoTo endp
    
11. 
    
12. ThisDrawing.Utility.GetEntity entry, pickp, "select a mtext:"
    
13. 
    
14. If entry.ObjectName = "AcDbMText" Then
    
15. Set mtext = entry
    
16. str1 = mtext.TextString
    
17. MsgBox str1
    
18. 
    
19. str3 = "mjtd.com"
    
20. 
    
21. mtext.TextString = str3
    
22. End If

Sub k()<br /> Dim mtext As AcadMText<br /> Dim entry As AcadEntity<br /> Dim str1 As String<br /> Dim str2 As String<br /> <br /> Dim pickp As Variant<br /> <br /> 'On Error GoTo endp<br /> <br /> ThisDrawing.Utility.GetEntity entry, pickp, "select a mtext:"<br /> <br /> If entry.ObjectName = "AcDbMText" Then<br /> Set mtext = entry<br /> str1 = mtext.TextString<br /> MsgBox str1<br /> <br /> str3 = "mjtd.com"<br /> <br /> mtext.TextString = str3<br /> End If

redfox

谢谢了。我知道怎么弄了。原来是需要用AcadEntity这个对象来中转一下。

efan2000

redfox发表于2004-1-1 13:20:00谢谢了。我知道怎么弄了。原来是需要用AcadEntity这个对象来中转一下。

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

redfox

感谢！