CAD插入图块，左下角设置成插入基点（网页版）

lihao2014

js代码如下：

1.   // 插入块的块名。
   
2. var sBlkName = "junxing";
   
3. // 把要插入的块文件引入到控件数据库中。
   
4. var sBlkFile = mxOcx.GetOcxAppPath() + "\\Blk\\attribblock.dwg";
   
5. mxOcx.InsertBlock(sBlkFile, sBlkName);
   
6. var database = mxOcx.GetDatabase();
   
7. var blkTab =  database.GetBlockTable();
   
8. var rec = blkTab.GetAt("junxing");
   
9. if (rec == null)
   
10.     return;
    
11. var iter = rec.NewIterator();
    
12. var dMinX = 0, dMinY = 0;
    
13. var isSet = false;
    
14. for (; !iter.Done(); iter.Step())
    
15. {
    
16.     var  ent = iter.GetEntity();
    
17.     var pt1 =mxOcx.NewPoint();
    
18.     var pt2 =mxOcx.NewPoint();
    
19.     ent.GetBoundingBox(pt1,pt2);
    
20.     if (pt1 == null)
    
21.         continue;
    
22. 
    
23.     if (isSet)
    
24.     {
    
25.         if (dMinX > pt1.x)
    
26.             dMinX = pt1.x;
    
27. 
    
28.         if (dMinY > pt1.y)
    
29.             dMinY = pt1.y;
    
30.     }
    
31.     else
    
32.     {
    
33.         dMinX = pt1.x;
    
34.         dMinY = pt1.y;
    
35.         isSet = true;
    
36.     }
    
37. }
    
38. if (isSet)
    
39. {
    
40.     var pt =mxOcx.NewPoint();
    
41.     pt.x = dMinX;
    
42.     pt.y = dMinY;
    
43.     rec.Origin = pt;
    
44. 
    
45. }
    
46. mxOcx.DrawBlockReference(0, 0, "junxing", 1, 0);
    
47. mxOcx.ZoomAll();

复制代码