CAD查找属性块文字（网页版）

lihao2014

js中实现代码说明：

1. function FindBlockAttrib()
   
2. {
   
3.     var winWidth = 440;
   
4.     var winHeight = 140;
   
5.     var winLeft = (screen.width - winWidth) / 2;
   
6.     var winTop = (screen.height - winHeight) / 2 - 20;
   
7. 
   
8.     var str = 'dialogHeight:' + winHeight + 'px;dialogWidth:' + winWidth + 'px;dialogTop:' + winTop + 'px;dialogLeft:' + winLeft + 'px;resizable:yes;center:yes;status:no;'
   
9. 
   
10.     var rt = window.showModalDialog("Gettext.htm?tmp=" + Math.random(), "输入属性文字", str);
    
11. 
    
12.     var txt;
    
13. 
    
14.     if (typeof (rt) == "undefined") {
    
15.         return;
    
16.     } else {
    
17.         var arr = rt.split(",");
    
18.         txt = arr[0];
    
19.     }
    
20. 
    
21.     var ss = mxOcx.NewSelectionSet();
    
22.     var spFilte = mxOcx.NewResbuf();
    
23. 
    
24.     // 把块对象，当着过滤条件.
    
25.     spFilte.AddStringEx("INSERT", 5020);
    
26. 
    
27.     // 得到图上，所有块对象.
    
28.     ss.Select2(5, null, null, null, spFilte);
    
29. 
    
30. 
    
31.     // 遍历每个块.
    
32.     for (var i = 0; i < ss.Count; i++) {
    
33.         var ent = ss.Item(i);
    
34.         if (ent == null)
    
35.             continue;
    
36.         if (ent.ObjectName == "McDbBlockReference") {
    
37.             var blkref = ent;
    
38.             var j = 0;
    
39.             for (; j < blkref.AttributeCount; j++) {
    
40.                 var attrib = blkref.AttributeItem(j);
    
41.                 if (attrib.TextString == txt) {
    
42.                     // 找到块属性。
    
43.                     mxOcx.PutEntityInView(ent.ObjectID, 300);
    
44. 
    
45.                     var dLen = mxOcx.ViewLongToDocCoord(80);
    
46. 
    
47.                     // 绘制一个标记圆.
    
48.                     mxOcx.DrawVectorCircle(ent.Position.x,
    
49.                 ent.Position.y,
    
50.                  dLen, 65280);
    
51.                     return;
    
52.                 }
    
53.             }
    
54.         }
    
55.         ent = null;
    
56.     }
    
57. 
    
58. 
    
59.     alert("没有找到块属性文字");
    
60. 
    
61. 
    
62. 
    
63.     // 在这里必须显示释放控件的COM对象指针.
    
64.     ss = null;
    
65.     spFilte = null;
    
66.     CollectGarbage();
    
67. }

复制代码