LWPOLYLINE UNION

newer

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Globalization;
   
4. using Autodesk.AutoCAD.ApplicationServices;
   
5. using Autodesk.AutoCAD.DatabaseServices;
   
6. using Autodesk.AutoCAD.EditorInput;
   
7. using Autodesk.AutoCAD.Geometry;
   
8. using Autodesk.AutoCAD.Runtime;
   
9. using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;
   
10. 
    
11. namespace MergePlines
    
12. {
    
13.     public class Commands
    
14.     {
    
15.         bool _en;
    
16.         Document _doc;
    
17. 
    
18.         public Commands()
    
19.         {
    
20.             //System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");
    
21.             //System.Threading.Thread.CurrentThread.CurrentUICulture = new CultureInfo("en-US");
    
22.             _en = CultureInfo.CurrentCulture.Name.StartsWith("en-");
    
23.             _doc = AcAp.DocumentManager.MdiActiveDocument;
    
24.         }
    
25. 
    
26.         class Segment
    
27.         {
    
28.             public Point2d StartPt { get; set; }
    
29.             public Point2d EndPt { get; set; }
    
30.             public double Bulge { get; set; }
    
31.         }
    
32. 
    
33.         private int MergePlines(ObjectIdCollection ids, bool erase)
    
34.         {
    
35.             Database db = _doc.Database;
    
36.             int result = 0;
    
37.             using (Transaction tr = db.TransactionManager.StartTransaction())
    
38.             using (DBObjectCollection segments = new DBObjectCollection())
    
39.             {
    
40.                 BlockTableRecord btr =
    
41.                     (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
    
42.                 List<Segment> segs = new List<Segment>();
    
43.                 List<Polyline> plines = new List<Polyline>();
    
44.                 Polyline pl;
    
45.                 while (ids.Count > 0)
    
46.                 {
    
47.                     pl = (Polyline)tr.GetObject(ids[0], OpenMode.ForWrite);
    
48.                     Vector3d normal = pl.Normal;
    
49.                     double elev = pl.Elevation;
    
50.                     Plane plane = new Plane(Point3d.Origin, normal);
    
51.                     plines.Add(pl);
    
52.                     ids.RemoveAt(0);
    
53.                     for (int i = 0; i < ids.Count; )
    
54.                     {
    
55.                         pl = (Polyline)tr.GetObject(ids, OpenMode.ForWrite);
    
56.                         if (Math.Abs(pl.Elevation - elev) < 1e-12 && pl.Normal.IsEqualTo(normal))
    
57.                         {
    
58.                             plines.Add(pl);
    
59.                             ids.RemoveAt(i);
    
60.                         }
    
61.                         else
    
62.                             i++;
    
63.                     }
    
64.                     if (plines.Count < 2)
    
65.                         continue;
    
66.                     for (int i = 0; i < plines.Count; i++)
    
67.                     {
    
68.                         pl = plines;
    
69.                         pl.Explode(segments);
    
70.                         if (erase) pl.Erase();
    
71.                     }
    
72.                     plines.Clear();
    
73.                     using (DBObjectCollection regions = Region.CreateFromCurves(segments))
    
74.                     {
    
75.                         Region reg = (Region)regions[0];
    
76.                         for (int i = 1; i < regions.Count; i++)
    
77.                         {
    
78.                             reg.BooleanOperation(BooleanOperationType.BoolUnite, (Region)regions);
    
79.                             regions.Dispose();
    
80.                         }
    
81.                         foreach (DBObject o in segments) o.Dispose();
    
82.                         segments.Clear();
    
83.                         reg.Explode(segments);
    
84.                         reg.Dispose();
    
85.                         for (int i = 0; i < segments.Count; i++)
    
86.                         {
    
87.                             if (segments is Region)
    
88.                             {
    
89.                                 ((Region)segments).Explode(segments);
    
90.                                 continue;
    
91.                             }
    
92.                             Curve crv = (Curve)segments;
    
93.                             Point3d start = crv.StartPoint;
    
94.                             Point3d end = crv.EndPoint;
    
95.                             double bulge = 0.0;
    
96.                             if (crv is Arc)
    
97.                             {
    
98.                                 Arc arc = (Arc)crv;
    
99.                                 double angle = arc.Center.GetVectorTo(start).GetAngleTo(arc.Center.GetVectorTo(end), arc.Normal);
    
100.                                 bulge = Math.Tan(angle / 4.0);
     
101.                             }
     
102.                             segs.Add(new Segment { StartPt = start.Convert2d(plane), EndPt = end.Convert2d(plane), Bulge = bulge });
     
103.                         }
     
104.                         foreach (DBObject o in segments) o.Dispose();
     
105.                         segments.Clear();
     
106.                         while (segs.Count > 0)
     
107.                         {
     
108.                             using (Polyline pline = new Polyline())
     
109.                             {
     
110.                                 pline.AddVertexAt(0, segs[0].StartPt, segs[0].Bulge, 0.0, 0.0);
     
111.                                 Point2d pt = segs[0].EndPt;
     
112.                                 segs.RemoveAt(0);
     
113.                                 int vtx = 1;
     
114.                                 while (true)
     
115.                                 {
     
116.                                     int i = segs.FindIndex(delegate(Segment s)
     
117.                                     {
     
118.                                         return s.StartPt.IsEqualTo(pt) || s.EndPt.IsEqualTo(pt);
     
119.                                     });
     
120.                                     if (i < 0) break;
     
121.                                     Segment seg = segs;
     
122.                                     if (seg.EndPt.IsEqualTo(pt))
     
123.                                         seg = new Segment { StartPt = seg.EndPt, EndPt = seg.StartPt, Bulge = -seg.Bulge };
     
124.                                     pline.AddVertexAt(vtx, seg.StartPt, seg.Bulge, 0.0, 0.0);
     
125.                                     pt = seg.EndPt;
     
126.                                     segs.RemoveAt(i);
     
127.                                     vtx++;
     
128.                                 }
     
129.                                 pline.SetDatabaseDefaults();
     
130.                                 pline.Closed = true;
     
131.                                 pline.Normal = normal;
     
132.                                 pline.Elevation = elev;
     
133.                                 btr.AppendEntity(pline);
     
134.                                 tr.AddNewlyCreatedDBObject(pline, true);
     
135.                                 result++;
     
136.                             }
     
137.                         }
     
138.                         segs.Clear();
     
139.                     }
     
140.                 }
     
141.                 tr.Commit();
     
142.             }
     
143.             return result;
     
144.         }
     
145. 
     
146.         [CommandMethod("UPL", CommandFlags.UsePickSet)]
     
147.         public void UnionPlines()
     
148.         {
     
149.             Editor ed = _doc.Editor;
     
150.             TypedValue[] filter = new TypedValue[3]{
     
151.                 new TypedValue(0, "LWPOLYLINE"),
     
152.                 new TypedValue(-4, "&"),
     
153.                 new TypedValue(70, 1)};
     
154.             PromptSelectionResult psr = ed.GetSelection(new SelectionFilter(filter));
     
155.             if (psr.Status != PromptStatus.OK)
     
156.                 return;
     
157.             PromptKeywordOptions pko = new PromptKeywordOptions("\nEffacer les polylignes source ?: ");
     
158.             if (_en)
     
159.             {
     
160.                 pko.Message = "\nErase source polylines ?: ";
     
161.                 pko.Keywords.Add("Yes");
     
162.                 pko.Keywords.Add("No");
     
163.                 pko.Keywords.Default = "Yes";
     
164.             }
     
165.             else
     
166.             {
     
167.                 pko.Keywords.Add("Oui");
     
168.                 pko.Keywords.Add("Non");
     
169.                 pko.Keywords.Default = "Oui";
     
170.             }
     
171.             pko.AllowNone = true;
     
172.             PromptResult pr = ed.GetKeywords(pko);
     
173.             if (pr.Status == PromptStatus.Cancel)
     
174.                 return;
     
175.             bool erase = _en ? pr.StringResult == "Yes" : pr.StringResult == "Oui";
     
176.             try
     
177.             {
     
178.                 ObjectIdCollection ids = new ObjectIdCollection(psr.Value.GetObjectIds());
     
179.                 int n = MergePlines(ids, erase);
     
180.                 if (_en)
     
181.                     ed.WriteMessage("\n{0} polyline{1} have been created", n, n > 1 ? "s" : "");
     
182.                 else
     
183.                     ed.WriteMessage("\n{0} polyligne{1} créée{1}", n, n > 1 ? "s" : "");
     
184.             }
     
185.             catch (Autodesk.AutoCAD.Runtime.Exception e)
     
186.             {
     
187.                 ed.WriteMessage("\n{0}: {1}\n{2}", _en ? "Error" : "Erreur", e.Message, e.StackTrace);
     
188.             }
     
189.         }
     
190.     }
     
191. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.Globalization;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Geometry;<br /> using Autodesk.AutoCAD.Runtime;<br /> using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;<br /> <br /> namespace MergePlines<br /> {<br />     public class Commands<br />     {<br />         bool _en;<br />         Document _doc;<br /> <br />         public Commands()<br />         {<br />             //System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");<br />             //System.Threading.Thread.CurrentThread.CurrentUICulture = new CultureInfo("en-US");<br />             _en = CultureInfo.CurrentCulture.Name.StartsWith("en-");<br />             _doc = AcAp.DocumentManager.MdiActiveDocument;<br />         }<br /> <br />         class Segment<br />         {<br />             public Point2d StartPt { get; set; }<br />             public Point2d EndPt { get; set; }<br />             public double Bulge { get; set; }<br />         }<br /> <br />         private int MergePlines(ObjectIdCollection ids, bool erase)<br />         {<br />             Database db = _doc.Database;<br />             int result = 0;<br />             using (Transaction tr = db.TransactionManager.StartTransaction())<br />             using (DBObjectCollection segments = new DBObjectCollection())<br />             {<br />                 BlockTableRecord btr =<br />                     (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);<br />                 List<Segment> segs = new List<Segment>();<br />                 List<Polyline> plines = new List<Polyline>();<br />                 Polyline pl;<br />                 while (ids.Count > 0)<br />                 {<br />                     pl = (Polyline)tr.GetObject(ids[0], OpenMode.ForWrite);<br />                     Vector3d normal = pl.Normal;<br />                     double elev = pl.Elevation;<br />                     Plane plane = new Plane(Point3d.Origin, normal);<br />                     plines.Add(pl);<br />                     ids.RemoveAt(0);<br />                     for (int i = 0; i < ids.Count; )<br />                     {<br />                         pl = (Polyline)tr.GetObject(ids<i>, OpenMode.ForWrite);<br />                         if (Math.Abs(pl.Elevation - elev) < 1e-12 && pl.Normal.IsEqualTo(normal))<br />                         {<br />                             plines.Add(pl);<br />                             ids.RemoveAt(i);<br />                         }<br />                         else<br />                             i++;<br />                     }<br />                     if (plines.Count < 2)<br />                         continue;<br />                     for (int i = 0; i < plines.Count; i++)<br />                     {<br />                         pl = plines<i>;<br />                         pl.Explode(segments);<br />                         if (erase) pl.Erase();<br />                     }<br />                     plines.Clear();<br />                     using (DBObjectCollection regions = Region.CreateFromCurves(segments))<br />                     {<br />                         Region reg = (Region)regions[0];<br />                         for (int i = 1; i < regions.Count; i++)<br />                         {<br />                             reg.BooleanOperation(BooleanOperationType.BoolUnite, (Region)regions<i>);<br />                             regions<i>.Dispose();<br />                         }<br />                         foreach (DBObject o in segments) o.Dispose();<br />                         segments.Clear();<br />                         reg.Explode(segments);<br />                         reg.Dispose();<br />                         for (int i = 0; i < segments.Count; i++)<br />                         {<br />                             if (segments<i> is Region)<br />                             {<br />                                 ((Region)segments<i>).Explode(segments);<br />                                 continue;<br />                             }<br />                             Curve crv = (Curve)segments<i>;<br />                             Point3d start = crv.StartPoint;<br />                             Point3d end = crv.EndPoint;<br />                             double bulge = 0.0;<br />                             if (crv is Arc)<br />                             {<br />                                 Arc arc = (Arc)crv;<br />                                 double angle = arc.Center.GetVectorTo(start).GetAngleTo(arc.Center.GetVectorTo(end), arc.Normal);<br />                                 bulge = Math.Tan(angle / 4.0);<br />                             }<br />                             segs.Add(new Segment { StartPt = start.Convert2d(plane), EndPt = end.Convert2d(plane), Bulge = bulge });<br />                         }<br />                         foreach (DBObject o in segments) o.Dispose();<br />                         segments.Clear();<br />                         while (segs.Count > 0)<br />                         {<br />                             using (Polyline pline = new Polyline())<br />                             {<br />                                 pline.AddVertexAt(0, segs[0].StartPt, segs[0].Bulge, 0.0, 0.0);<br />                                 Point2d pt = segs[0].EndPt;<br />                                 segs.RemoveAt(0);<br />                                 int vtx = 1;<br />                                 while (true)<br />                                 {<br />                                     int i = segs.FindIndex(delegate(Segment s)<br />                                     {<br />                                         return s.StartPt.IsEqualTo(pt) || s.EndPt.IsEqualTo(pt);<br />                                     });<br />                                     if (i < 0) break;<br />                                     Segment seg = segs<i>;<br />                                     if (seg.EndPt.IsEqualTo(pt))<br />                                         seg = new Segment { StartPt = seg.EndPt, EndPt = seg.StartPt, Bulge = -seg.Bulge };<br />                                     pline.AddVertexAt(vtx, seg.StartPt, seg.Bulge, 0.0, 0.0);<br />                                     pt = seg.EndPt;<br />                                     segs.RemoveAt(i);<br />                                     vtx++;<br />                                 }<br />                                 pline.SetDatabaseDefaults();<br />                                 pline.Closed = true;<br />                                 pline.Normal = normal;<br />                                 pline.Elevation = elev;<br />                                 btr.AppendEntity(pline);<br />                                 tr.AddNewlyCreatedDBObject(pline, true);<br />                                 result++;<br />                             }<br />                         }<br />                         segs.Clear();<br />                     }<br />                 }<br />                 tr.Commit();<br />             }<br />             return result;<br />         }<br /> <br />         [CommandMethod("UPL", CommandFlags.UsePickSet)]<br />         public void UnionPlines()<br />         {<br />             Editor ed = _doc.Editor;<br />             TypedValue[] filter = new TypedValue[3]{<br />                 new TypedValue(0, "LWPOLYLINE"),<br />                 new TypedValue(-4, "&"),<br />                 new TypedValue(70, 1)};<br />             PromptSelectionResult psr = ed.GetSelection(new SelectionFilter(filter));<br />             if (psr.Status != PromptStatus.OK)<br />                 return;<br />             PromptKeywordOptions pko = new PromptKeywordOptions("\nEffacer les polylignes source ?: ");<br />             if (_en)<br />             {<br />                 pko.Message = "\nErase source polylines ?: ";<br />                 pko.Keywords.Add("Yes");<br />                 pko.Keywords.Add("No");<br />                 pko.Keywords.Default = "Yes";<br />             }<br />             else<br />             {<br />                 pko.Keywords.Add("Oui");<br />                 pko.Keywords.Add("Non");<br />                 pko.Keywords.Default = "Oui";<br />             }<br />             pko.AllowNone = true;<br />             PromptResult pr = ed.GetKeywords(pko);<br />             if (pr.Status == PromptStatus.Cancel)<br />                 return;<br />             bool erase = _en ? pr.StringResult == "Yes" : pr.StringResult == "Oui";<br />             try<br />             {<br />                 ObjectIdCollection ids = new ObjectIdCollection(psr.Value.GetObjectIds());<br />                 int n = MergePlines(ids, erase);<br />                 if (_en)<br />                     ed.WriteMessage("\n{0} polyline{1} have been created", n, n > 1 ? "s" : "");<br />                 else<br />                     ed.WriteMessage("\n{0} polyligne{1} créée{1}", n, n > 1 ? "s" : "");<br />             }<br />             catch (Autodesk.AutoCAD.Runtime.Exception e)<br />             {<br />                 ed.WriteMessage("\n{0}: {1}\n{2}", _en ? "Error" : "Erreur", e.Message, e.StackTrace);<br />             }<br />         }<br />     }<br /> }<br />

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:MergePlines.zip 
下载次数:11  文件大小:4.47 KB 
下载权限: 实习生 以上  [免费赚D豆]

Cherish易

学习一下，试试看！

dnbcgrass

修改了几处错误
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

using System.Globalization;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
using AcAp = Autodesk.AutoCAD.ApplicationServices.Application;


namespace MergePlines
{
       public class Commands
    {
        bool _en;
        Document _doc;

        public Commands()
        {
            //System.Threading.Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");
            //System.Threading.Thread.CurrentThread.CurrentUICulture = new CultureInfo("en-US");
            _en = CultureInfo.CurrentCulture.Name.StartsWith("en-");
            _doc = AcAp.DocumentManager.MdiActiveDocument;
        }

        class Segment
        {
            public Point2d StartPt { get; set; }
            public Point2d EndPt { get; set; }
            public double Bulge { get; set; }
        }

        private int MergePlines(ObjectIdCollection ids, bool erase)
        {
            Database db = _doc.Database;
            int result = 0;
            using (Transaction tr = db.TransactionManager.StartTransaction())
            using (DBObjectCollection segments = new DBObjectCollection())
            {
                BlockTableRecord btr =
                    (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
                List<Segment> segs = new List<Segment>();
                List<Polyline> plines = new List<Polyline>();
                Polyline pl;
                while (ids.Count > 0)
                {
                    pl = (Polyline)tr.GetObject(ids[0], OpenMode.ForWrite);
                    Vector3d normal = pl.Normal;
                    double elev = pl.Elevation;
                    Plane plane = new Plane(Point3d.Origin, normal);
                    plines.Add(pl);
                    ids.RemoveAt(0);
                    for (int i = 0; i < ids.Count; )
                    {
                        pl = (Polyline)tr.GetObject(ids[i], OpenMode.ForWrite);
                        if (Math.Abs(pl.Elevation - elev) < 1e-12 && pl.Normal.IsEqualTo(normal))
                        {
                            plines.Add(pl);
                            ids.RemoveAt(i);
                        }
                        else
                            i++;
                    }
                    if (plines.Count < 2)
                        continue;
                    for (int i = 0; i < plines.Count; i++)
                    {
                        pl = plines[i];
                        pl.Explode(segments);
                        if (erase) pl.Erase();
                    }
                    plines.Clear();
                    using (DBObjectCollection regions = Region.CreateFromCurves(segments))
                    {
                        Region reg = (Region)regions[0];
                        for (int i = 1; i < regions.Count; i++)
                        {
                            reg.BooleanOperation(BooleanOperationType.BoolUnite, (Region)regions[i]);
                            regions[i].Dispose();
                        }
                        foreach (DBObject o in segments) o.Dispose();
                        segments.Clear();
                        reg.Explode(segments);
                        reg.Dispose();
                        for (int i = 0; i < segments.Count; i++)
                        {
                            if (segments[i] is Region)
                            {
                                ((Region)segments[i]).Explode(segments);
                                continue;
                            }
                            Curve crv = (Curve)segments[i];
                            Point3d start = crv.StartPoint;
                            Point3d end = crv.EndPoint;
                            double bulge = 0.0;
                            if (crv is Arc)
                            {
                                Arc arc = (Arc)crv;
                                double angle = arc.Center.GetVectorTo(start).GetAngleTo(arc.Center.GetVectorTo(end), arc.Normal);
                                bulge = Math.Tan(angle / 4.0);
                            }
                            segs.Add(new Segment { StartPt = start.Convert2d(plane), EndPt = end.Convert2d(plane), Bulge = bulge });
                        }
                        foreach (DBObject o in segments) o.Dispose();
                        segments.Clear();
                        while (segs.Count > 0)
                        {
                            using (Polyline pline = new Polyline())
                            {
                                pline.AddVertexAt(0, segs[0].StartPt, segs[0].Bulge, 0.0, 0.0);
                                Point2d pt = segs[0].EndPt;
                                segs.RemoveAt(0);
                                int vtx = 1;
                                while (true)
                                {
                                    int i = segs.FindIndex(delegate(Segment s)
                                    {
                                        return s.StartPt.IsEqualTo(pt) || s.EndPt.IsEqualTo(pt);
                                    });
                                    if (i < 0) break;
                                    Segment seg = segs[i];
                                    if (seg.EndPt.IsEqualTo(pt))
                                        seg = new Segment { StartPt = seg.EndPt, EndPt = seg.StartPt, Bulge = -seg.Bulge };
                                    pline.AddVertexAt(vtx, seg.StartPt, seg.Bulge, 0.0, 0.0);
                                    pt = seg.EndPt;
                                    segs.RemoveAt(i);
                                    vtx++;
                                }
                                pline.SetDatabaseDefaults();
                                pline.Closed = true;
                                pline.Normal = normal;
                                pline.Elevation = elev;
                                btr.AppendEntity(pline);
                                tr.AddNewlyCreatedDBObject(pline, true);
                                result++;
                            }
                        }
                        segs.Clear();
                    }
                }
                tr.Commit();
            }
            return result;
        }

        [CommandMethod("UPL", CommandFlags.UsePickSet)]
        public void UnionPlines()
        {
            Editor ed = _doc.Editor;
            TypedValue[] filter = new TypedValue[3]{
                new TypedValue(0, "LWPOLYLINE"),
                new TypedValue(-4, "&"),
                new TypedValue(70, 1)};
            PromptSelectionResult psr = ed.GetSelection(new SelectionFilter(filter));
            if (psr.Status != PromptStatus.OK)
                return;
            PromptKeywordOptions pko = new PromptKeywordOptions("\nEffacer les polylignes source ?: ");
            if (_en)
            {
                pko.Message = "\nErase source polylines ?: ";
                pko.Keywords.Add("Yes");
                pko.Keywords.Add("No");
                pko.Keywords.Default = "Yes";
            }
            else
            {
                pko.Keywords.Add("Oui");
                pko.Keywords.Add("Non");
                pko.Keywords.Default = "Oui";
            }
            pko.AllowNone = true;
            PromptResult pr = ed.GetKeywords(pko);
            if (pr.Status == PromptStatus.Cancel)
                return;
            bool erase = _en ? pr.StringResult == "Yes" : pr.StringResult == "Oui";
            try
            {
                ObjectIdCollection ids = new ObjectIdCollection(psr.Value.GetObjectIds());
                int n = MergePlines(ids, erase);
                if (_en)
                    ed.WriteMessage("\n{0} polyline{1} have been created", n, n > 1 ? "s" : "");
                else
                    ed.WriteMessage("\n{0} polyligne{1} créée{1}", n, n > 1 ? "s" : "");
            }
            catch (Autodesk.AutoCAD.Runtime.Exception e)
            {
                ed.WriteMessage("\n{0}: {1}\n{2}", _en ? "Error" : "Erreur", e.Message, e.StackTrace);
            }
        }
    }
}