实现类似CAD中的Block创建块义命令程序

admin

1. [CommandMethod("CreateBlock")]
   
2. public void CreateBlock()
   
3. {
   
4.     Database db = HostApplicationServices.WorkingDatabase;
   
5.     Editor ed = Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
   
6.     using (DocumentLock docLock = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.LockDocument())
   
7.     {
   
8.         ObjectId blockId = ObjectId.Null;                   //用于返回所创建的块的对象Id
   
9.         BlockTableRecord record = new BlockTableRecord();   //创建一个BlockTableRecord类的对象，表示所要创建的块
   
10.         record.Name = "MyBlock";                            //设置块名  
    
11.         record.Origin = new Point3d(0, 0, 0);               //设置块的基点
    
12.         using (Transaction trans = db.TransactionManager.StartTransaction())
    
13.         {
    
14.             BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForWrite);//以写的方式打开块表
    
15.             if (!bt.Has(record.Name))
    
16.             {
    
17.                 //选择对象
    
18.                 PromptSelectionResult res = ed.GetSelection();
    
19.                 if (res.Status == PromptStatus.OK)
    
20.                 {
    
21.                     foreach (ObjectId id in res.Value.GetObjectIds())
    
22.                     {
    
23.                         Entity ent = trans.GetObject(id, OpenMode.ForWrite) as Entity;
    
24.                         Entity NewEnt = (Entity)ent.Clone();
    
25.                         record.AppendEntity(NewEnt);
    
26.                     }
    
27.                 }
    
28.                 bt.Add(record);                             //在块表中加入块
    
29.                 trans.AddNewlyCreatedDBObject(record, true);//通知事务处理
    
30.             }
    
31.             else
    
32.             {
    
33.                 ed.WriteMessage("此图块名已存在,请检查!");
    
34.             }
    
35.             trans.Commit();
    
36.         }
    
37.     }
    
38. }

复制代码