练习 Lisp定义曲线选择集交点断开

csharp

[ 本帖最后由 csharp 于 2014-5-7 06:25 编辑 ]\n\n改编自 飞诗 程序,原帖地址 [url=http://bbs.mjtd.com/thread-79764-1-1.html]http://bbs.mjtd.com/thread-79764-1-1.html[/url]

原本想尝试返回断开后的曲线选择集，对 DBObject 转 ObjectId 不得要领，继续学习

曲线在 ssget 过滤

(ssbrk (ssget '((0 . "*line,arc,circle,ray"))))

1.         [LispFunction ("ssbrk")]   
   
2.         public void   BlkInt(ResultBuffer rb)   
   
3.         {
   
4.             if (rb != null)
   
5.             {
   
6.                 TypedValue[] values = rb.AsArray();
   
7.                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.SelectionSet)
   
8.                 {
   
9.                     Document doc = Application.DocumentManager.MdiActiveDocument;
   
10.                     Editor ed = doc.Editor;
    
11.                     Database db = doc.Database;
    
12.                     Transaction tr = doc.TransactionManager.StartTransaction();
    
13.                     BlockTableRecord Spase = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
    
14.                     using  ( tr)
    
15.                     {
    
16.                         try
    
17.                         {
    
18.                             SelectionSet ssSet = (SelectionSet)values[0].Value;
    
19.                             ObjectId[] ssbrk = ssSet.GetObjectIds();
    
20.                             Dictionary<Curve, List<double>> objpts;
    
21.                             objpts = new Dictionary<Curve, List<double>>(ssbrk.Length);
    
22. 
    
23.                             Curve[] cvs = new Curve[ssbrk.Length];
    
24.                             Entity[] ents = new Entity[ssbrk.Length];
    
25.                             for (int i = 0; i < ssbrk.Length; i++)
    
26.                             {
    
27.                                 ents[i] = ssbrk[i].GetObject(OpenMode.ForRead) as Entity;
    
28.                             }
    
29.                             for (int i = ssbrk.Length - 1; i > -1; i--)
    
30.                             {
    
31.                                 //Curve cv = tr.GetObject(ssbrk[i], OpenMode.ForWrite) as Curve;
    
32.                                 Curve cv = ssbrk[i].GetObject(OpenMode.ForWrite ) as Curve;
    
33.                                 cvs[i] = cv;
    
34.                                 objpts.Add(cv, new List<double>());
    
35.                             }
    
36. 
    
37.                             for (int cur = cvs.Length - 1; cur > -1; cur--)
    
38.                             {
    
39.                                 Curve cv1 = cvs[cur];
    
40.                                 Entity ent1 = ents[cur];
    
41.                                 List<double> cv1ps = objpts[cv1];
    
42.                                 for (int n = cur - 1; n > -1; n--)
    
43.                                 {
    
44.                                     Curve cv2 = cvs[n];
    
45.                                     Entity ent2 = ents[n];
    
46.                                     List<double> cv2ps = objpts[cv2];
    
47.                                     Point3dCollection points = new Point3dCollection();
    
48.                                     //cv1.IntersectWith(cv2, Intersect.OnBothOperands, points, 0, 0);
    
49.                                     ent1.IntersectWith(ent2, Intersect.OnBothOperands, points, IntPtr.Zero, IntPtr.Zero);
    
50.                                     foreach (Point3d pt in points)
    
51.                                     {
    
52.                                         cv1ps.Add(cv1.GetParameterAtPoint(pt));
    
53.                                         cv2ps.Add(cv2.GetParameterAtPoint(pt));
    
54.                                     }
    
55.                                 }
    
56. 
    
57.                             }
    
58.                             foreach (KeyValuePair<Curve, List<double>> var in objpts)
    
59.                             {
    
60.                                 Curve cv = var.Key;
    
61.                                 if (var.Value.Count == 0)//没有交点
    
62.                                 {
    
63.                                     continue;
    
64.                                 }
    
65.                                 else
    
66.                                 {
    
67.                                     if (var.Value.Count == 1 && cv.IsPeriodic && cv.IsPersistent)
    
68.                                     {
    
69.                                         continue;
    
70.                                     }
    
71.                                     var.Value.Sort();
    
72.                                     double[] arrpt = new double[var.Value.Count];
    
73.                                     var.Value.CopyTo(arrpt);
    
74.                                     DoubleCollection pts = new DoubleCollection(arrpt);
    
75.                                     DBObjectCollection objs = cv.GetSplitCurves(pts);
    
76.                                     //int brkn = 0;
    
77.                                     foreach (DBObject dbobj in objs)
    
78.                                     {
    
79.                                         Curve brks = (Curve)dbobj;
    
80.                                         if (cv.GetDistanceAtParameter(brks.EndParam) > 1e-6)
    
81.                                         {
    
82.                                             //brkn++;
    
83.                                             Entity ent = (Entity)dbobj;
    
84.                                             Spase.AppendEntity(ent);
    
85.                                             tr.AddNewlyCreatedDBObject(ent, true);
    
86.                                         }
    
87.                                     }
    
88.                                     cv.Erase();
    
89.                                 }
    
90.                             }
    
91.                             tr.Commit();
    
92.                         }
    
93.                         catch (Exception)
    
94.                         {
    
95.                             throw;
    
96.                         }
    
97.                         }
    
98.                     }
    
99.                 }
    
100.             }
     

        [LispFunction ("ssbrk")]   <br />         public void   BlkInt(ResultBuffer rb)   <br />         {<br />             if (rb != null)<br />             {<br />                 TypedValue[] values = rb.AsArray();<br />                 if (values.Count() == 1 && values[0].TypeCode == (int) LispDataType.SelectionSet)<br />                 {<br />                     Document doc = Application.DocumentManager.MdiActiveDocument;<br />                     Editor ed = doc.Editor;<br />                     Database db = doc.Database;<br />                     Transaction tr = doc.TransactionManager.StartTransaction();<br />                     BlockTableRecord Spase = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);<br />                     using  ( tr)<br />                     {<br />                         try<br />                         {<br />                             SelectionSet ssSet = (SelectionSet)values[0].Value;<br />                             ObjectId[] ssbrk = ssSet.GetObjectIds();<br />                             Dictionary<Curve, List<double>> objpts;<br />                             objpts = new Dictionary<Curve, List<double>>(ssbrk.Length);<br /> <br />                             Curve[] cvs = new Curve[ssbrk.Length];<br />                             Entity[] ents = new Entity[ssbrk.Length];<br />                             for (int i = 0; i < ssbrk.Length; i++)<br />                             {<br />                                 ents[i] = ssbrk[i].GetObject(OpenMode.ForRead) as Entity;<br />                             }<br />                             for (int i = ssbrk.Length - 1; i > -1; i--)<br />                             {<br />                                 //Curve cv = tr.GetObject(ssbrk[i], OpenMode.ForWrite) as Curve;<br />                                 Curve cv = ssbrk[i].GetObject(OpenMode.ForWrite ) as Curve;<br />                                 cvs[i] = cv;<br />                                 objpts.Add(cv, new List<double>());<br />                             }<br /> <br />                             for (int cur = cvs.Length - 1; cur > -1; cur--)<br />                             {<br />                                 Curve cv1 = cvs[cur];<br />                                 Entity ent1 = ents[cur];<br />                                 List<double> cv1ps = objpts[cv1];<br />                                 for (int n = cur - 1; n > -1; n--)<br />                                 {<br />                                     Curve cv2 = cvs[n];<br />                                     Entity ent2 = ents[n];<br />                                     List<double> cv2ps = objpts[cv2];<br />                                     Point3dCollection points = new Point3dCollection();<br />                                     //cv1.IntersectWith(cv2, Intersect.OnBothOperands, points, 0, 0);<br />                                     ent1.IntersectWith(ent2, Intersect.OnBothOperands, points, IntPtr.Zero, IntPtr.Zero);<br />                                     foreach (Point3d pt in points)<br />                                     {<br />                                         cv1ps.Add(cv1.GetParameterAtPoint(pt));<br />                                         cv2ps.Add(cv2.GetParameterAtPoint(pt));<br />                                     }<br />                                 }<br /> <br />                             }<br />                             foreach (KeyValuePair<Curve, List<double>> var in objpts)<br />                             {<br />                                 Curve cv = var.Key;<br />                                 if (var.Value.Count == 0)//没有交点<br />                                 {<br />                                     continue;<br />                                 }<br />                                 else<br />                                 {<br />                                     if (var.Value.Count == 1 && cv.IsPeriodic && cv.IsPersistent)<br />                                     {<br />                                         continue;<br />                                     }<br />                                     var.Value.Sort();<br />                                     double[] arrpt = new double[var.Value.Count];<br />                                     var.Value.CopyTo(arrpt);<br />                                     DoubleCollection pts = new DoubleCollection(arrpt);<br />                                     DBObjectCollection objs = cv.GetSplitCurves(pts);<br />                                     //int brkn = 0;<br />                                     foreach (DBObject dbobj in objs)<br />                                     {<br />                                         Curve brks = (Curve)dbobj;<br />                                         if (cv.GetDistanceAtParameter(brks.EndParam) > 1e-6)<br />                                         {<br />                                             //brkn++;<br />                                             Entity ent = (Entity)dbobj;<br />                                             Spase.AppendEntity(ent);<br />                                             tr.AddNewlyCreatedDBObject(ent, true);<br />                                         }<br />                                     }<br />                                     cv.Erase();<br />                                 }<br />                             }<br />                             tr.Commit();<br />                         }<br />                         catch (Exception)<br />                         {<br />                             throw;<br />                         }<br />                         }<br />                     }<br />                 }<br />             }<br />

csharp

多余了几个if

在2014下，IntersectWith是 Entity 方法，Curve 要 AcGeCurve 类才有IntersectWith

先做个标记
http://forums.autodesk.com/t5/NET/Property-ObjectId-vs-Id/td-p/3678440?nobounce

qq1254582201

正是一直在寻找的，曲线在交点处断开！！！！