实现类似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. }

复制代码