如何获得分堆分组后包围盒的四个角点，然后用直线连接起来

haoxuan

[url=【K:RtnBox4SSGroup】矩形分堆/方框分堆 http://bbs.mjtd.com/forum.php?mo ... 448&fromuid=7332155 (出处: 明经CAD社区)]【K:RtnBox4SSGroup】矩形分堆/方框分堆 http://bbs.mjtd.com/forum.php?mo ... 448&fromuid=7332155 (出处: 明经CAD社区)[/url]

如何取出分堆分组后包围盒的四个角点，然后赋予变量P1、P2、P3、P4

飞雪神光

1. (setq lst (K:RtnBox4SSGroup(ssget) 5))
   
2. (foreach pts lst
   
3.         (setq
   
4.                 zx(car pts)
   
5.                 ys(cadr pts)
   
6.                 zs(list (car zx)(cadr ys))
   
7.                 yx(list (car ys)(cadr zx))
   
8.         )
   
9.         (entmake (list '(0 . "line") (cons 10 zx) (cons 11 zs)))
   
10.         (entmake (list '(0 . "line") (cons 10 zs) (cons 11 ys)))
    
11.         (entmake (list '(0 . "line") (cons 10 ys) (cons 11 yx)))
    
12.         (entmake (list '(0 . "line") (cons 10 zx) (cons 11 yx)))
    
13. )

(setq lst (K:RtnBox4SSGroup(ssget) 5))<br /> (foreach pts lst<br />         (setq <br />                 zx(car pts)<br />                 ys(cadr pts)<br />                 zs(list (car zx)(cadr ys))<br />                 yx(list (car ys)(cadr zx))<br />         )<br />         (entmake (list '(0 . "line") (cons 10 zx) (cons 11 zs)))<br />         (entmake (list '(0 . "line") (cons 10 zs) (cons 11 ys)))<br />         (entmake (list '(0 . "line") (cons 10 ys) (cons 11 yx)))<br />         (entmake (list '(0 . "line") (cons 10 zx) (cons 11 yx)))<br /> )

haoxuan

谁知道啊谁知道啊谁知道啊谁知道啊

d1742647821

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

1. var r1 = Env.Editor.GetSelection();
   
2. if (r1.Status != PromptStatus.OK)
   
3.     return;
   
4. using var tr = new DBTrans();
   
5. var entList = r1.Value.GetEntities<Entity>().Select(e =>
   
6. {
   
7.     var bi = e.GetBoundingBoxEx();
   
8.     if (bi.HasValue)
   
9.         return bi.Value;
   
10.     var e3d = new Extents3d();
    
11.     foreach (var stretchPoint in e.GetStretchPoints())
    
12.     {
    
13.         e3d.AddPoint(stretchPoint);
    
14.     }
    
15.     return new BoundingInfo(e3d);
    
16. }).ToList();
    
17. var boxGroup = entList.Friends((e1, e2) =>
    
18. {
    
19.     var vec = e1.MidCenter.GetVectorTo(e2.MidCenter);
    
20.     return vec.X < (e1.Width * 0.5 + e2.Width * 0.5) &&
    
21.            vec.Y < (e1.Height * 0.5 + e2.Height * 0.5);
    
22. });
    
23. foreach (var list in boxGroup)
    
24. {
    
25.     var e3d = new Extents3d();
    
26.     foreach (var info in list)
    
27.     {
    
28.         e3d.AddExtents(info.Extents3d);
    
29.     }
    
30.     tr.CurrentSpace.AddEntity(e3d.GetRecPoint2ds().ToPolyline(0, true));
    
31. }

var r1 = Env.Editor.GetSelection();<br /> if (r1.Status != PromptStatus.OK)<br />     return;<br /> using var tr = new DBTrans();<br /> var entList = r1.Value.GetEntities<Entity>().Select(e =><br /> {<br />     var bi = e.GetBoundingBoxEx();<br />     if (bi.HasValue)<br />         return bi.Value;<br />     var e3d = new Extents3d();<br />     foreach (var stretchPoint in e.GetStretchPoints())<br />     {<br />         e3d.AddPoint(stretchPoint);<br />     }<br />     return new BoundingInfo(e3d);<br /> }).ToList();<br /> var boxGroup = entList.Friends((e1, e2) =><br /> {<br />     var vec = e1.MidCenter.GetVectorTo(e2.MidCenter);<br />     return vec.X < (e1.Width * 0.5 + e2.Width * 0.5) &&<br />            vec.Y < (e1.Height * 0.5 + e2.Height * 0.5);<br /> });<br /> foreach (var list in boxGroup)<br /> {<br />     var e3d = new Extents3d();<br />     foreach (var info in list)<br />     {<br />         e3d.AddExtents(info.Extents3d);<br />     }<br />     tr.CurrentSpace.AddEntity(e3d.GetRecPoint2ds().ToPolyline(0, true));<br /> }

loveu515

能把要求再写清楚点吗？

LPACMQ

2. (setq lst (K:RtnBox4SSGroup(ssget) 6))
   
3. 
   
4. (foreach pp lst
   
5. 
   
6.         ;;赋值P1~4
   
7.         (setq p1(car  pp) p3(cadr pp))
   
8.         (setq p2(list (car p3) (cadr p1)))
   
9.         (setq p4(list (car p1) (cadr p3)))
   
10.         (setq 4pt(list p1 p2 p3 p4))
    
11.        
    
12.         ;;测试
    
13.         (foreach p 4pt (getpoint p))
    
14. 
    
15. )
    

(setq lst (K:RtnBox4SSGroup(ssget) 6))<br /> <br /> (foreach pp lst<br /> <br />         ;;赋值P1~4<br />         (setq p1(car  pp) p3(cadr pp))<br />         (setq p2(list (car p3) (cadr p1)))<br />         (setq p4(list (car p1) (cadr p3)))<br />         (setq 4pt(list p1 p2 p3 p4))<br />         <br />         ;;测试<br />         (foreach p 4pt (getpoint p))<br /> <br /> )<br />

muai2010

飞雪神光 发表于 2024-1-26 11:09

感谢分享，如何把分后的每个对象进行移动到指定点呢，(command pts "" zx pt)好像不对，请大神解答

czb203

muai2010 发表于 2024-7-3 17:52
感谢分享，如何把分后的每个对象进行移动到指定点呢，(command pts "" zx pt)好像不对，请大神解答

点的集合，又不是对象

muai2010

czb203 发表于 2024-7-3 23:13
点的集合，又不是对象

嗯，就是想知道怎么把对象提取出来移动，试了好久还在试