大家画下把矩形用正方形填满的图形

雪山飞狐_lzh

C#版本 预防痴呆 ：）

2.     public class Rect
   
3.     {
   
4.         
   
5.         public Point2d Position;
   
6.         public double Width;
   
7.         public double Height;
   
8. 
   
9.         public bool IsSquare
   
10.         {
    
11.             get { return Width == Height; }
    
12.         }
    
13. 
    
14.         public Polyline Entity
    
15.         {
    
16.             get
    
17.             {
    
18.                 Polyline pl = new Polyline();
    
19.                 var pt = Position;
    
20.                 pl.AddVertexAt(0, pt, 0, 0, 0);
    
21.                 pt += Vector2d.XAxis * Width;
    
22.                 pl.AddVertexAt(1, pt , 0, 0, 0);
    
23.                 pt += Vector2d.YAxis * Height;
    
24.                 pl.AddVertexAt(2, pt, 0, 0, 0);
    
25.                 pt -= Vector2d.XAxis * Width;
    
26.                 pl.AddVertexAt(3, pt, 0, 0, 0);
    
27.                 pl.Closed = true;
    
28.                 return pl;
    
29.             }
    
30.         }
    
31. 
    
32.         public Rect Cut()
    
33.         {
    
34.             Rect r = new Rect { Position = this.Position };
    
35.             if (Width > Height)
    
36.             {
    
37.                 r.Width = r.Height = Height;
    
38.                 Position += Vector2d.XAxis * Height;
    
39.                 Width -= Height;
    
40.             }
    
41.             else
    
42.             {
    
43.                 r.Width = r.Height = Width;
    
44.                 Position += Vector2d.YAxis * Width;
    
45.                 Height -= Width;
    
46.             }
    
47.             return r;
    
48.         }
    
49. 
    
50.         [CommandMethod("Tls:TestRect")]
    
51.         public void DoIt()
    
52.         {
    
53.             var doc = AcadApp.DocumentManager.MdiActiveDocument;
    
54.             var ed = doc.Editor;
    
55.             var resPt = ed.GetPoint("\n请输入起点:");
    
56.             if (resPt.Status != PromptStatus.OK) return;
    
57.             var resCor = ed.GetCorner("\n请输入第二点:", resPt.Value);
    
58.             if (resCor.Status != PromptStatus.OK) return;
    
59.             Rect r =
    
60.                 new Rect
    
61.                 {
    
62.                     Position =
    
63.                         new Point2d(
    
64.                             Math.Min(resPt.Value.X, resCor.Value.X),
    
65.                             Math.Min(resPt.Value.Y, resCor.Value.Y)),
    
66.                     Width = Math.Abs(resPt.Value.X - resCor.Value.X),
    
67.                     Height = Math.Abs(resPt.Value.Y - resCor.Value.Y),
    
68.                 };
    
69.             List<Rect> rlst = new List<Rect>();
    
70.             while (!r.IsSquare)
    
71.                 rlst.Add(r.Cut());
    
72.             rlst.Add(r);
    
73.             var db = doc.Database;
    
74.             using (var tr = db.TransactionManager.StartTransaction())
    
75.             {
    
76.                 var btr = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
    
77.                 foreach (var rect in rlst)
    
78.                 {
    
79.                     var ent = rect.Entity;
    
80.                     btr.AppendEntity(ent);
    
81.                     tr.AddNewlyCreatedDBObject(ent, true);
    
82.                 }
    
83.                 tr.Commit();
    
84.             }
    
85.         }
    
86. 
    
87.     }

    public class Rect<br />     {<br />         <br />         public Point2d Position;<br />         public double Width;<br />         public double Height;<br /> <br />         public bool IsSquare <br />         {<br />             get { return Width == Height; }<br />         }<br /> <br />         public Polyline Entity<br />         {<br />             get<br />             {<br />                 Polyline pl = new Polyline();<br />                 var pt = Position;<br />                 pl.AddVertexAt(0, pt, 0, 0, 0);<br />                 pt += Vector2d.XAxis * Width;<br />                 pl.AddVertexAt(1, pt , 0, 0, 0);<br />                 pt += Vector2d.YAxis * Height;<br />                 pl.AddVertexAt(2, pt, 0, 0, 0);<br />                 pt -= Vector2d.XAxis * Width;<br />                 pl.AddVertexAt(3, pt, 0, 0, 0);<br />                 pl.Closed = true;<br />                 return pl;<br />             }<br />         }<br /> <br />         public Rect Cut()<br />         {<br />             Rect r = new Rect { Position = this.Position };<br />             if (Width > Height)<br />             {<br />                 r.Width = r.Height = Height;<br />                 Position += Vector2d.XAxis * Height;<br />                 Width -= Height;<br />             }<br />             else<br />             {<br />                 r.Width = r.Height = Width;<br />                 Position += Vector2d.YAxis * Width;<br />                 Height -= Width;<br />             }<br />             return r;<br />         }<br /> <br />         [CommandMethod("Tls:TestRect")]<br />         public void DoIt()<br />         {<br />             var doc = AcadApp.DocumentManager.MdiActiveDocument;<br />             var ed = doc.Editor;<br />             var resPt = ed.GetPoint("\n请输入起点:");<br />             if (resPt.Status != PromptStatus.OK) return;<br />             var resCor = ed.GetCorner("\n请输入第二点:", resPt.Value);<br />             if (resCor.Status != PromptStatus.OK) return;<br />             Rect r =<br />                 new Rect<br />                 {<br />                     Position =<br />                         new Point2d(<br />                             Math.Min(resPt.Value.X, resCor.Value.X),<br />                             Math.Min(resPt.Value.Y, resCor.Value.Y)),<br />                     Width = Math.Abs(resPt.Value.X - resCor.Value.X),<br />                     Height = Math.Abs(resPt.Value.Y - resCor.Value.Y),<br />                 };<br />             List<Rect> rlst = new List<Rect>();<br />             while (!r.IsSquare)<br />                 rlst.Add(r.Cut());<br />             rlst.Add(r);<br />             var db = doc.Database;<br />             using (var tr = db.TransactionManager.StartTransaction())<br />             {<br />                 var btr = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;<br />                 foreach (var rect in rlst)<br />                 {<br />                     var ent = rect.Entity;<br />                     btr.AppendEntity(ent);<br />                     tr.AddNewlyCreatedDBObject(ent, true);<br />                 }<br />                 tr.Commit();<br />             }<br />         }<br /> <br />     }

newer

雪山飞狐_lzh 发表于 2016-10-26 23:35

这个没法验证啊:)

要不你做个动画传上来吧。

雪山飞狐(lzh)

GGG做的Gif 无法上传。。。不用验证 也不需奖励 O(∩_∩)O~

cable2004

哈哈，多参与，多交流…