谁能用易语言重写下面的代码，感谢！

抚剑轻歌

梦想CAD控件COM接口搜索图面上的文字点击此处下载演示实例
主要用到函数说明：
_DMxDrawX::NewSelectionSet
实例化一个构造选择集进行过滤,该类封装了选择集及其处理函数。
_DMxDrawX::NewResbuf
新创建IMxDrawResbuf对象，构造一个过滤链表。
IMxDrawResbuf::AddStringEx
向链表中增加一个stringxx，比如：把文字对象，当着过滤条件。

1
spFilte.AddStringEx("TEXT,MTEXT",5020);


IMxDrawSelectionSet::Select2
根据指定的选择方式在图上构造选择集，详细说明如下：

参数说明
MCAD_McSelect Mode构造选择集方式
VARIANT point1构造择择集时需要使用到的点对象
VARIANT point2构造择择集时需要使用到的点对象
VARIANT filterType构造选择集的过滤xx的类型
VARIANT filterData构造选择集的过滤xx

实例化一个构造选择集进行过滤,该类封装了选择集及其处理函数。将文字对象当作过滤条件，得到文字对象（此处可以是文字或多行文字）。遍历每个文字对象，将文字放到视区中间并绘制一个标记圆。

1. private void FineText()
   
2. {
   
3.     // 创建选择集对象
   
4. 
   
5.     MxDrawSelectionSet ss = new MxDrawSelectionSet();
   
6. 
   
7.     // 创建过滤对象.
   
8.     MxDrawResbuf spFilte = new MxDrawResbuf();
   
9. 
   
10.     // 把文字对象，当着过滤条件.
    
11.     spFilte.AddStringEx("TEXT,MTEXT", 5020);
    
12. 
    
13.     // 得到图上，所有文字对象.
    
14.     ss.Select2(MCAD_McSelect.mcSelectionSetAll, null, null, null, spFilte);
    
15. 
    
16. 
    
17.     // 遍历每个文字.
    
18.     bool bFind = false;
    
19.     // 获得输入的文字
    
20.     string str = textBox1.Text;
    
21.     for (int i = 0; i < ss.Count; i++)
    
22.     {
    
23.         MxDrawEntity ent = ss.Item(i);
    
24.         if (ent == null)
    
25.             continue;
    
26.         if (ent.ObjectName == "McDbText")
    
27.         {
    
28.             // 是一个文字
    
29.             MxDrawText text = (MxDrawText)ent;
    
30.             string sTxt = text.TextString;
    
31. 
    
32.             if (sTxt == str)
    
33.             {
    
34.                 // 找到把文字放到视区中间.
    
35.                 axMxDrawX1.PutEntityInView(ent.ObjectID, 300);
    
36. 
    
37. 
    
38.                 var dLen = axMxDrawX1.ViewLongToDocCoord(80);
    
39. 
    
40.                 // 绘制一个标记圆.
    
41.                 axMxDrawX1.DrawVectorCircle(text.Position.x,
    
42.                                             text.Position.y,
    
43.                                             dLen, 65280);
    
44.                 bFind = true;
    
45.             }
    
46.         }
    
47.         else if (ent.ObjectName == "McDbMText")
    
48.         {
    
49.             // 找到一个多行文字
    
50. 
    
51.             MxDrawResbuf param = new MxDrawResbuf();
    
52.             param.AddObjectId(ent.ObjectID);
    
53.             MxDrawMText mtext = (MxDrawMText)ent;
    
54. 
    
55.             // 得到多行文字中的，文字内容.
    
56.             MxDrawResbuf ret = (MxDrawResbuf)axMxDrawX1.CallEx("Mx_GetMTextContent", param);
    
57.             if (ret.AtString(0) == "Ok")
    
58.             {
    
59. 
    
60.                 if (ret.AtString(1) == str)
    
61.                 {
    
62.                     // 把文字放到视区.
    
63.                     axMxDrawX1.PutEntityInView(ent.ObjectID, 300);
    
64. 
    
65.                     var dLen = axMxDrawX1.ViewLongToDocCoord(80);
    
66. 
    
67.                     // 绘制一个标记圆.
    
68.                     axMxDrawX1.DrawVectorCircle(mtext.Location.x,
    
69.                                                 mtext.Location.y,
    
70.                                                 dLen, 65280);
    
71.                     bFind = true;
    
72. 
    
73.                     break;
    
74.                 }
    
75.             }
    
76.         }
    
77. 
    
78. 
    
79.     }
    
80.     if (bFind)
    
81.         MessageBox.Show("找到文字");
    
82.     else
    
83.         MessageBox.Show("没有找到文字");
    
84. }

复制代码

元寅虎

我的眼睛。。。。。。。。。。。。。