实现多条线一起合并

雪山飞狐_lzh

还是把代码贴上吧，简单的注释了下
注意先引用我的TlsBasal.dll(重贴了一次)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75701&page=1&extra=#pid403883

2.         [CommandMethod("tttt")]
   
3.         public static void tttt()
   
4.         {
   
5.             var doc = Application.DocumentManager.MdiActiveDocument;
   
6.             var db = doc.Database;
   
7.             var ed = doc.Editor;
   
8. 
   
9.             //获取直线选集
   
10.             SelectionFilter sf = new ResultTree{ { 0, "line" } };
    
11.             var resSel = ed.GetSelection(sf);
    
12.             
    
13.             using (var tr = new DBTransaction())
    
14.             {
    
15. 
    
16.                 //遍历选择集，按方向将直线分组
    
17.                 var dict = new Dictionary<LineSegment3d, List<Line>>();
    
18.                 foreach (Line line in resSel.Value.GetEntitys<Line>(tr))
    
19.                 {
    
20. 
    
21.                     //转换DBLine为GeLineSegment3d
    
22.                     bool flag = false;
    
23.                     LineSegment3d ls = line.ToCurve3d();
    
24.                     //遍历分组字典
    
25.                     foreach (var lls in dict)
    
26.                     {
    
27.                         //如果共线，加入当前组
    
28.                         if (lls.Key.IsColinearTo(ls))
    
29.                         {
    
30.                             flag = true;
    
31.                             lls.Value.Add(line);
    
32.                             break;
    
33.                         }
    
34.                     }
    
35. 
    
36.                     //如果没有找到，新建一个组
    
37.                     if (!flag)
    
38.                         dict.Add(ls, new List<Line> { line });
    
39.                 }
    
40.                 //遍历分组字典
    
41.                 foreach (var lls in dict)
    
42.                 {
    
43.                     var lines = lls.Value;
    
44.                     if (lines.Count > 1)
    
45.                     {
    
46. 
    
47.                         //将直线的起点终点放入同一集合
    
48.                         var pts = new List<Point3d>();
    
49.                         foreach (var line in lines)
    
50.                         {
    
51.                             pts.Add(line.StartPoint);
    
52.                             pts.Add(line.EndPoint);
    
53.                         }
    
54. 
    
55.                         //按XYZ排序方式找到最小点和最大点
    
56.                         var ptarr = pts.FindByExt(GeometryEx.CompareTo);
    
57. 
    
58.                         //删除原直线，并生成新的
    
59.                         tr.Erase(lines);
    
60.                         var btr = tr.OpenCurrentSpace();
    
61.                         tr.AddEntity(btr, new Line(ptarr[0], ptarr[1]));
    
62. 
    
63.                     }
    
64.                 }
    
65.             }
    
66.         }

        [CommandMethod("tttt")]<br />         public static void tttt()<br />         {<br />             var doc = Application.DocumentManager.MdiActiveDocument;<br />             var db = doc.Database;<br />             var ed = doc.Editor;<br /> <br />             //获取直线选集<br />             SelectionFilter sf = new ResultTree{ { 0, "line" } };<br />             var resSel = ed.GetSelection(sf);<br />             <br />             using (var tr = new DBTransaction())<br />             {<br /> <br />                 //遍历选择集，按方向将直线分组<br />                 var dict = new Dictionary<LineSegment3d, List<Line>>();<br />                 foreach (Line line in resSel.Value.GetEntitys<Line>(tr))<br />                 {<br /> <br />                     //转换DBLine为GeLineSegment3d<br />                     bool flag = false;<br />                     LineSegment3d ls = line.ToCurve3d();<br />                     //遍历分组字典<br />                     foreach (var lls in dict)<br />                     {<br />                         //如果共线，加入当前组<br />                         if (lls.Key.IsColinearTo(ls))<br />                         {<br />                             flag = true;<br />                             lls.Value.Add(line);<br />                             break;<br />                         }<br />                     }<br /> <br />                     //如果没有找到，新建一个组<br />                     if (!flag)<br />                         dict.Add(ls, new List<Line> { line });<br />                 }<br />                 //遍历分组字典<br />                 foreach (var lls in dict)<br />                 {<br />                     var lines = lls.Value;<br />                     if (lines.Count > 1)<br />                     {<br /> <br />                         //将直线的起点终点放入同一集合<br />                         var pts = new List<Point3d>();<br />                         foreach (var line in lines)<br />                         {<br />                             pts.Add(line.StartPoint);<br />                             pts.Add(line.EndPoint);<br />                         }<br /> <br />                         //按XYZ排序方式找到最小点和最大点<br />                         var ptarr = pts.FindByExt(GeometryEx.CompareTo);<br /> <br />                         //删除原直线，并生成新的<br />                         tr.Erase(lines);<br />                         var btr = tr.OpenCurrentSpace();<br />                         tr.AddEntity(btr, new Line(ptarr[0], ptarr[1]));<br /> <br />                     }<br />                 }<br />             }<br />         }

sieben

1，这是哪个版本的代码？var 类型真给力
2，if (lls.Key.IsColinearTo(ls)) 这个没有公差
3，var ptarr = pts.FindByExt(GeometryEx.CompareTo); 这个没见过
4，tr.AddEntity(btr, new Line(ptarr[0], ptarr[1])); 把其中一条直线延伸到这两点怎么样？

雪山飞狐_lzh

1、var -> VS2008
2、IsColinearTo没有公差 -> 使用默认公差
3、pts.FindByExt(GeometryEx.CompareTo); -> TlsBasal.dll自带扩展
4、可以，不过删除，添加代码要简单些:)
先引用TlsBasal.dll，在代码中加入下列

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.Diagnostics;
   
5. using System.Linq;
   
6. using System.Reflection;
   
7. using Autodesk.AutoCAD.ApplicationServices;
   
8. using Autodesk.AutoCAD.DatabaseServices;
   
9. using Autodesk.AutoCAD.EditorInput;
   
10. using Autodesk.AutoCAD.Geometry;
    
11. using Autodesk.AutoCAD.Runtime;
    
12. using TlsCad.Collections;
    
13. using TlsCad.ExtendMethods;
    
14. using TlsCad.MTextTranslation;
    
15. using TlsCad.Runtime;
    
16. using TlsCad.Trans;

using System;<br /> using System.Collections.Generic;<br /> using System.Diagnostics;<br /> using System.Linq;<br /> using System.Reflection;<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 TlsCad.Collections;<br /> using TlsCad.ExtendMethods;<br /> using TlsCad.MTextTranslation;<br /> using TlsCad.Runtime;<br /> using TlsCad.Trans;

chpmould

请问老师我已引用你提供TlsBasal.dll类,但在调试中以下两句通不过,请帮看一下我错在那里

1.                        //按XYZ排序方式找到最小点和最大点
   
2.                         var ptarr = pts.FindByExt(GeometryEx.CompareTo);
   
3.                         //删除原直线，并生成新的
   
4.                         tr.Erase(lines);

复制代码

chpmould

以下是调试中提示

雪山飞狐_lzh

看11楼（2012/12/22）

雪山飞狐_lzh

在链接的帖子里我重新上传了更新版，你要再下载一次

chpmould

老师我重新下载了，但以下两句中红色函数调不通。。。如果可以将此功能单独写出来，不用调用TlsBasal.dll类的那就更便于学习了。。。

1. 
   
2.                        //按XYZ排序方式找到最小点和最大点
   
3.                         var ptarr = pts.FindByExt(GeometryEx.CompareTo);
   
4.                         //删除原直线，并生成新的
   
5.                         tr.Erase(lines);

复制代码

sxpd

你的基础太薄弱了，闭关修行一段时间吧

chpmould

谢谢提示，后期我将多点时间消化一些基础的东西。。。