求助：文字问题

scf0413

基于vb.net 的cad开发 在cad命令行显示选择文字内容的那句代码怎么写？请大侠赐教

雪山飞狐_lzh

Editor.WriteMessage Method

scf0413

我是通过选择之后 让文字在命令行显示 并显示文字内容 跟文字数量 还请飞狐大哥 给点提示 在此先谢谢了！
小弟是初学者

雪山飞狐_lzh

好久没用VB了

2.     <CommandMethod("vt1")> _
   
3.     Public Sub Test1()
   
4. 
   
5.         Dim doc = Application.DocumentManager.MdiActiveDocument
   
6.         Dim ed = doc.Editor
   
7.         Dim db = doc.Database
   
8. 
   
9.         Dim resSel = ed.GetSelection(New SelectionFilter(New TypedValue() {New TypedValue(0, "text")}))
   
10.         If (resSel.Status <> PromptStatus.OK) Then Return
    
11. 
    
12.         Using tr = db.TransactionManager.StartTransaction
    
13. 
    
14.             For Each id As ObjectId In resSel.Value.GetObjectIds()
    
15. 
    
16.                 Dim txt As DBText = tr.GetObject(id, OpenMode.ForRead)
    
17.                 ed.WriteMessage(vbCrLf + txt.TextString)
    
18. 
    
19.             Next
    
20. 
    
21.         End Using
    
22. 
    
23.     End Sub

    <CommandMethod("vt1")> _<br />     Public Sub Test1()<br /> <br />         Dim doc = Application.DocumentManager.MdiActiveDocument<br />         Dim ed = doc.Editor<br />         Dim db = doc.Database<br /> <br />         Dim resSel = ed.GetSelection(New SelectionFilter(New TypedValue() {New TypedValue(0, "text")}))<br />         If (resSel.Status <> PromptStatus.OK) Then Return<br /> <br />         Using tr = db.TransactionManager.StartTransaction<br /> <br />             For Each id As ObjectId In resSel.Value.GetObjectIds()<br /> <br />                 Dim txt As DBText = tr.GetObject(id, OpenMode.ForRead)<br />                 ed.WriteMessage(vbCrLf + txt.TextString)<br /> <br />             Next<br /> <br />         End Using<br /> <br />     End Sub

scf0413

感谢飞狐大哥！