选择线段，批量删掉线段两端与块相交的部分

sunqv

如题，如何实现用lisp批量删除线段两端与块相交部分线段

修改前:   


修改后:   


dwg图:

ssyfeng

跟我以前写的一个程序有点类似
不过物探资料最好别去修改，有可能会影响后面提取数据入库

自贡黄明儒

(defun list->3pair (old / new)
    (while (setq new (cons (list (car old) (cadr old) (caddr old)) new)
                 old (cdddr old))
    )
    (reverse new)
  )
  

(defun get_interpts (obj1 obj2 / iplist)
  (if (not (vl-catch-all-error-p
             (setq iplist (vl-catch-all-apply
                            'vlax-safearray->list
                            (list
                              (vlax-variant-value
                                (vla-intersectwith obj1 obj2 acextendnone)
                              ))))))
    iplist
  )
)

jkop

可以参考Lee mac 的插件，是我目前用过最实用的。
https://www.lee-mac.com/autoblockbreak.html




https://www.lee-mac.com/lisp/AutoBlockBreakV1-9.lsp

sunqv

能不能不让图块旋转呀？

sunqv

自贡黄明儒 发表于 2024-3-12 07:05
(defun list->3pair (old / new)
    (while (setq new (cons (list (car old) (cadr old) (caddr old))  ...

没看到效果、提示参数太少

d1742647821

C#来凑个热闹

powered by IFoxCAD
https://gitee.com/inspirefunction/ifoxcad
https://www.kdocs.cn/l/cc6ZXSa0vMgD

如果无法播放，请点击此处在新窗口打开

2. [CommandMethod(nameof(Cs6))]
   
3.     public static void Cs6()
   
4.     {
   
5.         // 多选直线
   
6.         var r1 = Env.Editor.GetSelection(OpFilter.Build(e => e.Dxf(0) == "LINE"));
   
7.         if (r1.Status != PromptStatus.OK)
   
8.             return;
   
9.         using var tr = new DBTrans();
   
10.         var lines = r1.Value.GetEntities<Line>().ToList();
    
11.         var brfList = tr.CurrentSpace.GetEntities<BlockReference>().ToList();
    
12.         foreach (var line in lines)
    
13.         {
    
14.             var brfIntersectList = brfList.Where(e =>
    
15.             {
    
16.                 var p3dc = new Point3dCollection();
    
17.                 e.BoundingBoxIntersectWith(line, Intersect.OnBothOperands, new Plane(), p3dc, IntPtr.Zero, IntPtr.Zero);
    
18.                 return p3dc.Count > 0;
    
19.             });
    
20.             foreach (var brf in brfIntersectList)
    
21.             {
    
22.                 BreakLineByBlock(line, brf);
    
23.             }
    
24.         }
    
25.     }
    
26. 
    
27.     private static void BreakLineByBlock(Line line, BlockReference brf)
    
28.     {
    
29.         var btr = (BlockTableRecord)brf.BlockTableRecord.GetObject();
    
30.         var curves = btr.GetEntities<Curve>().Select(e => e.GetTransformedCopy(brf.BlockTransform)).OfType<Curve>()
    
31.             .ToList();
    
32.         var ptList = new List<Point3d>();
    
33.         ptList.AddRange(curves.SelectMany(e => e.IntersectWith(line, Intersect.OnBothOperands, new Plane())));
    
34.         if (ptList.Count == 0)
    
35.             return;
    
36.         var box = brf.GetBoundingBoxEx()!.Value;
    
37.         using (line.ForWrite())
    
38.         {
    
39.             line.StartPoint = line.StartPoint.Z20();
    
40.             line.EndPoint = line.EndPoint.Z20();
    
41.             if (box.MidCenter.Distance2dTo(line.StartPoint) < box.MidCenter.Distance2dTo(line.EndPoint))
    
42.             {
    
43.                 line.StartPoint = ptList.FindByMax(line.GetParameterAtPoint);
    
44.             }
    
45.             else
    
46.             {
    
47.                 line.EndPoint = ptList.FindByMin(line.GetParameterAtPoint);
    
48.             }
    
49.         }
    
50.     }

[CommandMethod(nameof(Cs6))]<br />     public static void Cs6()<br />     {<br />         // 多选直线<br />         var r1 = Env.Editor.GetSelection(OpFilter.Build(e => e.Dxf(0) == "LINE"));<br />         if (r1.Status != PromptStatus.OK)<br />             return;<br />         using var tr = new DBTrans();<br />         var lines = r1.Value.GetEntities<Line>().ToList();<br />         var brfList = tr.CurrentSpace.GetEntities<BlockReference>().ToList();<br />         foreach (var line in lines)<br />         {<br />             var brfIntersectList = brfList.Where(e =><br />             {<br />                 var p3dc = new Point3dCollection();<br />                 e.BoundingBoxIntersectWith(line, Intersect.OnBothOperands, new Plane(), p3dc, IntPtr.Zero, IntPtr.Zero);<br />                 return p3dc.Count > 0;<br />             });<br />             foreach (var brf in brfIntersectList)<br />             {<br />                 BreakLineByBlock(line, brf);<br />             }<br />         }<br />     }<br /> <br />     private static void BreakLineByBlock(Line line, BlockReference brf)<br />     {<br />         var btr = (BlockTableRecord)brf.BlockTableRecord.GetObject();<br />         var curves = btr.GetEntities<Curve>().Select(e => e.GetTransformedCopy(brf.BlockTransform)).OfType<Curve>()<br />             .ToList();<br />         var ptList = new List<Point3d>();<br />         ptList.AddRange(curves.SelectMany(e => e.IntersectWith(line, Intersect.OnBothOperands, new Plane())));<br />         if (ptList.Count == 0)<br />             return;<br />         var box = brf.GetBoundingBoxEx()!.Value;<br />         using (line.ForWrite())<br />         {<br />             line.StartPoint = line.StartPoint.Z20();<br />             line.EndPoint = line.EndPoint.Z20();<br />             if (box.MidCenter.Distance2dTo(line.StartPoint) < box.MidCenter.Distance2dTo(line.EndPoint))<br />             {<br />                 line.StartPoint = ptList.FindByMax(line.GetParameterAtPoint);<br />             }<br />             else<br />             {<br />                 line.EndPoint = ptList.FindByMin(line.GetParameterAtPoint);<br />             }<br />         }<br />     }

sunqv

ssyfeng 发表于 2024-3-12 10:04
跟我以前写的一个程序有点类似
不过物探资料最好别去修改，有可能会影响后面提取数据入库

不愿意发代码，求你别发图了

zhangrunze

jkop 发表于 2024-3-12 08:30
可以参考Lee mac 的插件，是我目前用过最实用的。
https://www.lee-mac.com/autoblockbreak.html

CAD批量遮罩也不错，不用修剪~

fzlinrong

sunqv 发表于 2024-3-12 08:42
能不能不让图块旋转呀？

可以的，AutoBlockBreakV1-9.lsp的执行命令里有选项。