[飞马系列] 块内图元全部原地拷贝或者部分移位拷贝

qjchen

前天

Cabinsummer提出了 http://bbs.mjtd.com/thread-91567-1-1.html

块内图元的拷贝问题，由于不是很熟悉lisp的块内操作，又想学习一下.Net的编法，于是借鉴了Kean的代码，

http://through-the-interface.typepad.com/through_the_interface/2010/06/changing-the-layer-of-an-entity-in-an-autocad-block-using-net.html
但为了历遍里面的实体和拷贝部分实体，就学习了一些.Net的Matrix函数和历遍
图片如下，代码如下，我的.Net水平挺低的，代码没有怎么优化，各位见笑了:)

不过对于不等比例的块，此程序是会报错的，可能得用.explode了。

DLL是可以netload的，命令是cnl

1. 
   
2. using System;
   
3. using System.Collections.Generic;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using Autodesk.AutoCAD.EditorInput;
   
7. using Autodesk.AutoCAD.ApplicationServices;
   
8. using Autodesk.AutoCAD.DatabaseServices;
   
9. using Autodesk.AutoCAD.Runtime;
   
10. using Autodesk.AutoCAD.Geometry;
    
11. namespace form1
    
12. {
    
13.     public class KeanCopyFromBlock
    
14.     {
    
15.         [CommandMethod("CNL")]
    
16.         static public void ChangeNestedLayer()
    
17.         {
    
18.             Document doc = Application.DocumentManager.MdiActiveDocument;
    
19.             Database db = doc.Database;
    
20.             Editor ed = doc.Editor;
    
21.             Transaction tr = doc.TransactionManager.StartTransaction();
    
22.             // 选择是所有块内实体原地拷贝还是选择部分块内实体拖动拷贝
    
23.             PromptKeywordOptions pko = new PromptKeywordOptions("\n是 1.选择所有块内实体原地拷贝 2.选择部分块内实体拖动拷贝: [1/2] ", "1, 2");
    
24.             PromptResult pr = ed.GetKeywords(pko);
    
25.             if (pr.Status != PromptStatus.OK)
    
26.             {
    
27.                 ed.WriteMessage("\n*Canceled*\n");
    
28.                 return;
    
29.             }
    
30.             using (tr)
    
31.             {
    
32.                 // Loop until cancelled or completed
    
33.                 PromptEntityOptions peo = new PromptEntityOptions("\n请选择一个块:");
    
34.                 peo.SetRejectMessage("\n必须是一个块:");
    
35.                 peo.AddAllowedClass(typeof(BlockReference), true);
    
36.                 PromptEntityResult per = ed.GetEntity(peo);
    
37.                 if (per.Status != PromptStatus.OK) return;
    
38.                 BlockReference br = tr.GetObject(per.ObjectId, OpenMode.ForWrite) as BlockReference;
    
39.                 switch (pr.StringResult)
    
40.                 {
    
41.                     case "1":
    
42.                         BlockTableRecord btr = tr.GetObject(br.BlockTableRecord, OpenMode.ForRead) as BlockTableRecord;
    
43.                         foreach (ObjectId id in btr)
    
44.                         {
    
45.                             Entity Ent = tr.GetObject(id, OpenMode.ForRead) as Entity;
    
46.                             if (Ent != null)
    
47.                             {
    
48.                                 Entity tempEnt = qSubEntityClone(Ent, ed, db, doc, br);
    
49.                             }
    
50.                         }
    
51.                         break;
    
52.                     case "2":
    
53.                         PromptNestedEntityResult rs;
    
54.                         // Collection of our selected entities
    
55.                         ObjectIdCollection ids = new ObjectIdCollection();
    
56.                         rs = ed.GetNestedEntity("\n请选择需要拷贝的该块内的实体: ");
    
57.                         if (rs.Status == PromptStatus.OK)
    
58.                         {
    
59.                             ids.Add(rs.ObjectId);
    
60.                             HighlightSubEntity(doc, rs);
    
61.                         }
    
62.                         //while (rs.Status == PromptStatus.OK);
    
63.                         if (ids.Count > 0)
    
64.                         {
    
65.                             for (int i = 0; i < ids.Count; i++)
    
66.                             {
    
67.                                 Entity Ent = tr.GetObject(ids, OpenMode.ForWrite) as Entity;
    
68.                                 if (Ent != null)
    
69.                                 {
    
70.                                     Entity tempEnt = qSubEntityClone(Ent, ed, db, doc, br);
    
71.                                     PromptPointResult bpResult, dpResult;
    
72.                                     PromptPointOptions bpProps = new PromptPointOptions("\n拷贝起点:");
    
73.                                     bpProps.AllowNone = true;
    
74.                                     bpProps.UseBasePoint = false;
    
75.                                     bpResult = ed.GetPoint(bpProps);
    
76.                                     if (bpResult.Status != PromptStatus.OK)
    
77.                                         throw new System.Exception("\n用户取消.");
    
78.                                     PromptPointOptions dpProps = new PromptPointOptions("\n拷贝终点:");
    
79.                                     dpProps.AllowNone = true;
    
80.                                     dpProps.UseBasePoint = true;
    
81.                                     dpProps.BasePoint = bpResult.Value;
    
82.                                     dpResult = ed.GetPoint(dpProps);
    
83.                                     if (dpResult.Status != PromptStatus.OK)
    
84.                                         throw new System.Exception("\n用户取消.");
    
85.                                     Point3d pa = bpResult.Value;
    
86.                                     Point3d pb = dpResult.Value;
    
87.                                     qCopy(tempEnt, pa, pb);
    
88.                                 }
    
89.                             }
    
90.                         }
    
91.                         break;
    
92.                     default
    
93.                         :
    
94.                         break;
    
95.                 }
    
96.                 tr.Commit();
    
97.                 // Regen clears highlighting and reflects the new layer
    
98.                 ed.Regen();
    
99.             }
    
100.         }
     
101.         static private Entity qSubEntityClone(Entity Ent, Editor ed, Database db, Document doc, BlockReference br)
     
102.         {
     
103.             Transaction tr = doc.TransactionManager.StartTransaction();
     
104.             BlockTableRecord CurSpace = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
     
105.             LayerTable LayTbl = tr.GetObject(db.LayerTableId, OpenMode.ForRead) as LayerTable;
     
106.             LinetypeTable LtTbl = tr.GetObject(db.LinetypeTableId, OpenMode.ForRead) as LinetypeTable;
     
107.             Dictionary<ObjectId, Handle> Dict = new Dictionary<ObjectId, Handle>();
     
108.             object Obj = Ent.Clone();
     
109.             Entity tempEnt = Obj as Entity;
     
110.             if (tempEnt == null) return null;
     
111.             using (tr)
     
112.             {
     
113.                 LayerTableRecord ltr = tr.GetObject(Ent.LayerId, OpenMode.ForRead) as LayerTableRecord;
     
114.                 tempEnt.LayerId = Ent.LayerId;
     
115.                 tempEnt.Color = Ent.EntityColor.ColorMethod == Autodesk.AutoCAD.Colors.ColorMethod.ByLayer ? ltr.Color : Ent.Color;
     
116.                 tempEnt.LinetypeId = Ent.Linetype == "ByLayer" ? ltr.LinetypeObjectId : Ent.LinetypeId;
     
117.                 tempEnt.TransformBy(br.BlockTransform);
     
118.                 CurSpace.AppendEntity(tempEnt);
     
119.                 tr.AddNewlyCreatedDBObject(tempEnt, true);
     
120.                 //Dict.Add(tempEnt.ObjectId, ids.Handle);
     
121.                 //下面这段是对块内块的，暂时我就不考虑了
     
122.                 if (tempEnt is BlockReference)
     
123.                 {
     
124.                     BlockReference tempBlkRef = tempEnt as BlockReference;
     
125.                     foreach (ObjectId attId in tempBlkRef.AttributeCollection)
     
126.                     {
     
127.                         Ent = tr.GetObject(attId, OpenMode.ForWrite) as Entity;
     
128.                         Ent.Color = tempEnt.Color;
     
129.                         //Ent.LayerId = tempLayId;
     
130.                         Ent.Linetype = "Continuous";
     
131.                         //Dict.Add(attId, attId.Handle);
     
132.                     }
     
133.                 }
     
134.                 tr.Commit();
     
135.             }
     
136.             return tempEnt;
     
137.         }
     
138.         private static void HighlightSubEntity(
     
139.           Document doc, PromptNestedEntityResult rs
     
140.         )
     
141.         {
     
142.             // Extract relevant information from the prompt object
     
143.             ObjectId selId = rs.ObjectId;
     
144.             ObjectId[] objIds = rs.GetContainers();
     
145.             int len = objIds.Length;
     
146.             // Reverse the "containers" list
     
147.             ObjectId[] revIds = new ObjectId[len + 1];
     
148.             for (int i = 0; i < len; i++)
     
149.             {
     
150.                 ObjectId id =
     
151.                   (ObjectId)objIds.GetValue(len - i - 1);
     
152.                 revIds.SetValue(id, i);
     
153.             }
     
154.             // Now add the selected entity to the end
     
155.             revIds.SetValue(selId, len);
     
156.             // Retrieve the sub-entity path for this entity
     
157.             SubentityId subEnt =
     
158.               new SubentityId(SubentityType.Null, 0);
     
159.             FullSubentityPath path = new FullSubentityPath(revIds, subEnt);
     
160.             // Open the outermost container, relying on the open
     
161.             // transaction...
     
162.             ObjectId id2 = (ObjectId)revIds.GetValue(0);
     
163.             Entity ent = id2.GetObject(OpenMode.ForRead) as Entity;
     
164.             // ... and highlight the nested entity
     
165.             if (ent != null)
     
166.                 ent.Highlight(path, false);
     
167.         }
     
168.         private static void qCopy(Entity ent, Point3d p1, Point3d p2)
     
169.         {
     
170.             Vector3d vec = p2 - p1;
     
171.             Matrix3d mt = Matrix3d.Displacement(vec);
     
172.             ent.TransformBy(mt);
     
173.         }
     
174.     }
     
175. }
     
176. 
     

<br /> using System;<br /> using System.Collections.Generic;<br /> using System.Linq;<br /> using System.Text;<br /> using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.EditorInput;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.Geometry;<br /> namespace form1<br /> {<br />     public class KeanCopyFromBlock<br />     {<br />         [CommandMethod("CNL")]<br />         static public void ChangeNestedLayer()<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br />             Editor ed = doc.Editor;<br />             Transaction tr = doc.TransactionManager.StartTransaction();<br />             // 选择是所有块内实体原地拷贝还是选择部分块内实体拖动拷贝<br />             PromptKeywordOptions pko = new PromptKeywordOptions("\n是 1.选择所有块内实体原地拷贝 2.选择部分块内实体拖动拷贝: [1/2] ", "1, 2");<br />             PromptResult pr = ed.GetKeywords(pko); <br />             if (pr.Status != PromptStatus.OK)<br />             {<br />                 ed.WriteMessage("\n*Canceled*\n");<br />                 return;<br />             }<br />             using (tr)<br />             {<br />                 // Loop until cancelled or completed<br />                 PromptEntityOptions peo = new PromptEntityOptions("\n请选择一个块:");<br />                 peo.SetRejectMessage("\n必须是一个块:");<br />                 peo.AddAllowedClass(typeof(BlockReference), true);<br />                 PromptEntityResult per = ed.GetEntity(peo);<br />                 if (per.Status != PromptStatus.OK) return;<br />                 BlockReference br = tr.GetObject(per.ObjectId, OpenMode.ForWrite) as BlockReference;<br />                 switch (pr.StringResult)<br />                 {<br />                     case "1":<br />                         BlockTableRecord btr = tr.GetObject(br.BlockTableRecord, OpenMode.ForRead) as BlockTableRecord;<br />                         foreach (ObjectId id in btr)<br />                         {<br />                             Entity Ent = tr.GetObject(id, OpenMode.ForRead) as Entity;<br />                             if (Ent != null)<br />                             {<br />                                 Entity tempEnt = qSubEntityClone(Ent, ed, db, doc, br);<br />                             }<br />                         }<br />                         break;<br />                     case "2":<br />                         PromptNestedEntityResult rs;<br />                         // Collection of our selected entities<br />                         ObjectIdCollection ids = new ObjectIdCollection();<br />                         rs = ed.GetNestedEntity("\n请选择需要拷贝的该块内的实体: ");<br />                         if (rs.Status == PromptStatus.OK)<br />                         {<br />                             ids.Add(rs.ObjectId);<br />                             HighlightSubEntity(doc, rs);<br />                         }<br />                         //while (rs.Status == PromptStatus.OK);<br />                         if (ids.Count > 0)<br />                         {<br />                             for (int i = 0; i < ids.Count; i++)<br />                             {<br />                                 Entity Ent = tr.GetObject(ids<i>, OpenMode.ForWrite) as Entity;<br />                                 if (Ent != null)<br />                                 {<br />                                     Entity tempEnt = qSubEntityClone(Ent, ed, db, doc, br);<br />                                     PromptPointResult bpResult, dpResult;<br />                                     PromptPointOptions bpProps = new PromptPointOptions("\n拷贝起点:");<br />                                     bpProps.AllowNone = true;<br />                                     bpProps.UseBasePoint = false;<br />                                     bpResult = ed.GetPoint(bpProps);<br />                                     if (bpResult.Status != PromptStatus.OK)<br />                                         throw new System.Exception("\n用户取消.");<br />                                     PromptPointOptions dpProps = new PromptPointOptions("\n拷贝终点:");<br />                                     dpProps.AllowNone = true;<br />                                     dpProps.UseBasePoint = true;<br />                                     dpProps.BasePoint = bpResult.Value;<br />                                     dpResult = ed.GetPoint(dpProps);<br />                                     if (dpResult.Status != PromptStatus.OK)<br />                                         throw new System.Exception("\n用户取消.");<br />                                     Point3d pa = bpResult.Value;<br />                                     Point3d pb = dpResult.Value;<br />                                     qCopy(tempEnt, pa, pb);<br />                                 }<br />                             }<br />                         }<br />                         break;<br />                     default<br />                         :<br />                         break;<br />                 }<br />                 tr.Commit();<br />                 // Regen clears highlighting and reflects the new layer<br />                 ed.Regen();<br />             }<br />         }<br />         static private Entity qSubEntityClone(Entity Ent, Editor ed, Database db, Document doc, BlockReference br)<br />         {<br />             Transaction tr = doc.TransactionManager.StartTransaction();<br />             BlockTableRecord CurSpace = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;<br />             LayerTable LayTbl = tr.GetObject(db.LayerTableId, OpenMode.ForRead) as LayerTable;<br />             LinetypeTable LtTbl = tr.GetObject(db.LinetypeTableId, OpenMode.ForRead) as LinetypeTable;<br />             Dictionary<ObjectId, Handle> Dict = new Dictionary<ObjectId, Handle>();<br />             object Obj = Ent.Clone();<br />             Entity tempEnt = Obj as Entity;<br />             if (tempEnt == null) return null;<br />             using (tr)<br />             {<br />                 LayerTableRecord ltr = tr.GetObject(Ent.LayerId, OpenMode.ForRead) as LayerTableRecord;<br />                 tempEnt.LayerId = Ent.LayerId;<br />                 tempEnt.Color = Ent.EntityColor.ColorMethod == Autodesk.AutoCAD.Colors.ColorMethod.ByLayer ? ltr.Color : Ent.Color;<br />                 tempEnt.LinetypeId = Ent.Linetype == "ByLayer" ? ltr.LinetypeObjectId : Ent.LinetypeId;<br />                 tempEnt.TransformBy(br.BlockTransform);<br />                 CurSpace.AppendEntity(tempEnt);<br />                 tr.AddNewlyCreatedDBObject(tempEnt, true);<br />                 //Dict.Add(tempEnt.ObjectId, ids<i>.Handle);<br />                 //下面这段是对块内块的，暂时我就不考虑了<br />                 if (tempEnt is BlockReference)<br />                 {<br />                     BlockReference tempBlkRef = tempEnt as BlockReference;<br />                     foreach (ObjectId attId in tempBlkRef.AttributeCollection)<br />                     {<br />                         Ent = tr.GetObject(attId, OpenMode.ForWrite) as Entity;<br />                         Ent.Color = tempEnt.Color;<br />                         //Ent.LayerId = tempLayId;<br />                         Ent.Linetype = "Continuous";<br />                         //Dict.Add(attId, attId.Handle);<br />                     }<br />                 }<br />                 tr.Commit();<br />             }<br />             return tempEnt;<br />         }<br />         private static void HighlightSubEntity(<br />           Document doc, PromptNestedEntityResult rs<br />         )<br />         {<br />             // Extract relevant information from the prompt object<br />             ObjectId selId = rs.ObjectId;<br />             ObjectId[] objIds = rs.GetContainers();<br />             int len = objIds.Length;<br />             // Reverse the "containers" list<br />             ObjectId[] revIds = new ObjectId[len + 1];<br />             for (int i = 0; i < len; i++)<br />             {<br />                 ObjectId id =<br />                   (ObjectId)objIds.GetValue(len - i - 1);<br />                 revIds.SetValue(id, i);<br />             }<br />             // Now add the selected entity to the end<br />             revIds.SetValue(selId, len);<br />             // Retrieve the sub-entity path for this entity<br />             SubentityId subEnt =<br />               new SubentityId(SubentityType.Null, 0);<br />             FullSubentityPath path = new FullSubentityPath(revIds, subEnt);<br />             // Open the outermost container, relying on the open<br />             // transaction...<br />             ObjectId id2 = (ObjectId)revIds.GetValue(0);<br />             Entity ent = id2.GetObject(OpenMode.ForRead) as Entity;<br />             // ... and highlight the nested entity<br />             if (ent != null)<br />                 ent.Highlight(path, false);<br />         }<br />         private static void qCopy(Entity ent, Point3d p1, Point3d p2)<br />         {<br />             Vector3d vec = p2 - p1;<br />             Matrix3d mt = Matrix3d.Displacement(vec);<br />             ent.TransformBy(mt);<br />         }<br />     }<br /> }<br /> <br />

此代码+dll

vlisp2012

支持一下！！！

myjping

这个其实不用那么麻烦的，取得对象，复制对角，缩放，旋转；如果对象是固定类型的比如圆，多义线什么的更方便了，取得点就可以了

chpmould

支持一下...

江湖远人

学习一下，这方面知识太少了

xiaxiang

qjchen 兄，在06下执行命令cnl报错，是版本的问题吗

qjchen

xiaxiang 发表于 2012-1-10 19:26
qjchen 兄，在06下执行命令cnl报错，是版本的问题吗

哦，.NET的一般2007之后比较好

chlh_jd

全部拷贝或许没有必要的，一个炸开命令就全部都有了；不过部分复制还是很有必要的，支持！
之前写了个单选的：
http://bbs.mjtd.com/thread-86165-1-1.html

sageman

非常实用，谢谢！

NJZX05

受益不小！