有没有前辈研究过最大包围盒中心替换图形

sachindkini

dear sir
see demo.................

sachindkini

2. (vl-load-com)
   
3. (defun C:DBB (/ n); = Draw Bounding Boxes
   
4.   (prompt "\nTo draw bounding boxes around each,")
   
5.   (if (setq ss (ssget))
   
6.     (repeat (setq n (sslength ss)); then
   
7.       (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt)
   
8.       (command "_.rectangle" "_none" (vlax-safearray->list minpt) "_none" (vlax-safearray->list maxpt))
   
9.     ); repeat
   
10.   ); if
    
11.   (princ)
    
12. ); defun
    
13. (prompt "\nType DBB to Draw the Bounding Boxes of selected object(s).")

(vl-load-com)<br /> (defun C:DBB (/ n); = Draw Bounding Boxes<br />   (prompt "\nTo draw bounding boxes around each,")<br />   (if (setq ss (ssget))<br />     (repeat (setq n (sslength ss)); then<br />       (vla-getboundingbox (vlax-ename->vla-object (ssname ss (setq n (1- n)))) 'minpt 'maxpt)<br />       (command "_.rectangle" "_none" (vlax-safearray->list minpt) "_none" (vlax-safearray->list maxpt))<br />     ); repeat<br />   ); if<br />   (princ)<br /> ); defun<br /> (prompt "\nType DBB to Draw the Bounding Boxes of selected object(s).")

dakui

sachindkini 发表于 2023-3-2 19:13
dear sir
see demo.................

能否求出的最小实体包围盒呢
希望大神能够完善一下.

梦想家-DING

sachindkini 发表于 2023-3-2 19:21

Between Graphics and Graphics，Whether the replace operation can be changed in a central location？

d1742647821

写这功能不超过5分钟

d1742647821

看标题没写语言要求，.net区来凑热闹，短短30行，需要使用ifox

1. [CommandMethod(nameof(CS5))]
   
2.     public static void CS5()
   
3.     {
   
4.         var r1 = Env.Editor.GetEntity("\n选择对象");
   
5.         if (r1.Status != PromptStatus.OK)
   
6.             return;
   
7.         var r2 = Env.Editor.GetEntity("\n选择要替换的对象");
   
8.         if (r2.Status != PromptStatus.OK || r2.ObjectId == r1.ObjectId)
   
9.             return;
   
10.         using var tr = new DBTrans();
    
11.         var ent1 = (Entity)tr.GetObject(r1.ObjectId);
    
12.         var ent2= (Entity)tr.GetObject(r2.ObjectId);
    
13.         var pt1 = ent1.GeometricExtents.MidPoint();
    
14.         var pt2 = ent2.GeometricExtents.MidPoint();
    
15.         var ent3=(Entity)ent1.Clone();
    
16.         ent3.Move(pt1, pt2);
    
17.         tr.CurrentSpace.AddEntity(ent3);
    
18.         Env.Editor.Redraw(ent3);
    
19.         var pko = new PromptKeywordOptions("\n是否替换？<Y>");
    
20.         pko.Keywords.Add("Y", "Y", "是(Y)");
    
21.         pko.Keywords.Add("N", "N", "否(N)");
    
22.         var r3 = Env.Editor.GetKeywords(pko);
    
23.         if(r3.Status==PromptStatus.OK && r3.StringResult.ToUpper() == "Y")
    
24.         {
    
25.             ent2.ForWrite(e => e.Erase());
    
26.         }
    
27.         else
    
28.         {
    
29.             tr.Abort();
    
30.         }
    
31.     }

[CommandMethod(nameof(CS5))]<br />     public static void CS5()<br />     {<br />         var r1 = Env.Editor.GetEntity("\n选择对象");<br />         if (r1.Status != PromptStatus.OK)<br />             return;<br />         var r2 = Env.Editor.GetEntity("\n选择要替换的对象");<br />         if (r2.Status != PromptStatus.OK || r2.ObjectId == r1.ObjectId)<br />             return;<br />         using var tr = new DBTrans();<br />         var ent1 = (Entity)tr.GetObject(r1.ObjectId);<br />         var ent2= (Entity)tr.GetObject(r2.ObjectId);<br />         var pt1 = ent1.GeometricExtents.MidPoint();<br />         var pt2 = ent2.GeometricExtents.MidPoint();<br />         var ent3=(Entity)ent1.Clone();<br />         ent3.Move(pt1, pt2);<br />         tr.CurrentSpace.AddEntity(ent3);<br />         Env.Editor.Redraw(ent3);<br />         var pko = new PromptKeywordOptions("\n是否替换？<Y>");<br />         pko.Keywords.Add("Y", "Y", "是(Y)");<br />         pko.Keywords.Add("N", "N", "否(N)");<br />         var r3 = Env.Editor.GetKeywords(pko);<br />         if(r3.Status==PromptStatus.OK && r3.StringResult.ToUpper() == "Y")<br />         {<br />             ent2.ForWrite(e => e.Erase());<br />         }<br />         else<br />         {<br />             tr.Abort();<br />         }<br />     }

wzg356

写过，自己常用，有空发

月下闲人

sachindkini 发表于 2023-3-2 19:21

这个代码哪里不对

wzg356

看看是不是这种

早就高频使用了，觉得用的人不多，难度也不大，就没发
刚发这儿http://bbs.mjtd.com/thread-187313-1-1.html

梦想家-DING

wzg356 发表于 2023-3-8 16:39
看看是不是这种

早就高频使用了，觉得用的人不多，难度也不大，就没发

是图形与图形，譬如：选中三角形替换圆形