ResultBuffer扩展类第二版

雪山飞狐_lzh

源码：

这一版的ResulrBuffer扩展类分为三大类分别对应扩展字典/数据、Lisp数据和选择集过滤器
其中
XdataList类对应扩展字典/数据
Lisp*类对应Lisp数据
Op*类对应选择集过滤器
测试代码：

1.         [CommandMethod("tt1")]
   
2.         public void Test1()
   
3.         {
   
4.             //扩展数据
   
5.             XdataList lst =
   
6.                 new XdataList
   
7.                 {
   
8.                     { 1001, "myapp" },
   
9.                     { 1000, "hello" }
   
10.                 };
    
11. 
    
12.             //过滤器的三种写法
    
13.             var fd =
    
14.                 new OpOr
    
15.                 {
    
16.                         !new OpAnd
    
17.                         {
    
18.                             { 0, "line" },
    
19.                             { 8, "0" },
    
20.                         },
    
21.                         new OpAnd
    
22.                         {
    
23.                             !new OpEqual(0, "circle"),
    
24.                             { 8, "2" },
    
25.                             { 10, new Point3d(10,10,0), ">,>,*" }
    
26.                         },
    
27.                 };
    
28. 
    
29.             var p = new Point3d(10, 10, 0);
    
30. 
    
31.             var f =
    
32.                 OpFilter.Bulid(
    
33.                     e =>
    
34.                         !(e.Dxf(0) == "line" & e.Dxf(8) == "0") |
    
35.                         e.Dxf(0) != "circle" & e.Dxf(8) == "2" & e.Dxf(10) >= p
    
36.                     );
    
37. 
    
38.             var f2 =
    
39.                 OpFilter.Bulid(
    
40.                     e =>
    
41.                         e.Or(
    
42.                         !e.And(e.Dxf(0) == "line", e.Dxf(8) == "0"),
    
43.                         e.And(e.Dxf(0) != "circle", e.Dxf(8) == "2", e.Dxf(10) <= new Point3d(10, 10, 0)))
    
44.                     );
    
45. 
    
46.             SystemManager.Editor.WriteMessage($"\nXdataList:{lst}\n{fd}\n{f}\n{f2}");
    
47. 
    
48.         }
    
49. 
    
50.         [LispFunction("mytt")]
    
51.         public object LispTest(ResultBuffer rb)
    
52.         {
    
53.             var rl = LispList.FromBuffer(rb);
    
54.             return rl[0].GetValue();
    
55.         }
    
56. 
    
57. 
    
58.         [LispFunction("mytt2")]
    
59.         public object LispTest2(ResultBuffer rb)
    
60.         {
    
61.             var r2 =
    
62.                 new LispList
    
63.                 {
    
64.                     0,
    
65.                     new LispDottedPair{ 12, 13 }
    
66.                 };
    
67.             return r2.GetValue();
    
68.         }

        [CommandMethod("tt1")]<br />         public void Test1()<br />         {<br />             //扩展数据<br />             XdataList lst =<br />                 new XdataList<br />                 {<br />                     { 1001, "myapp" },<br />                     { 1000, "hello" }<br />                 };<br /> <br />             //过滤器的三种写法<br />             var fd =<br />                 new OpOr<br />                 {<br />                         !new OpAnd<br />                         {<br />                             { 0, "line" },<br />                             { 8, "0" },<br />                         },<br />                         new OpAnd<br />                         {<br />                             !new OpEqual(0, "circle"),<br />                             { 8, "2" },<br />                             { 10, new Point3d(10,10,0), ">,>,*" }<br />                         },<br />                 };<br /> <br />             var p = new Point3d(10, 10, 0);<br /> <br />             var f =<br />                 OpFilter.Bulid(<br />                     e =><br />                         !(e.Dxf(0) == "line" & e.Dxf(8) == "0") |<br />                         e.Dxf(0) != "circle" & e.Dxf(8) == "2" & e.Dxf(10) >= p <br />                     );<br /> <br />             var f2 =<br />                 OpFilter.Bulid(<br />                     e =><br />                         e.Or(<br />                         !e.And(e.Dxf(0) == "line", e.Dxf(8) == "0"),<br />                         e.And(e.Dxf(0) != "circle", e.Dxf(8) == "2", e.Dxf(10) <= new Point3d(10, 10, 0)))<br />                     );<br /> <br />             SystemManager.Editor.WriteMessage($"\nXdataList:{lst}\n{fd}\n{f}\n{f2}");<br /> <br />         }<br /> <br />         [LispFunction("mytt")]<br />         public object LispTest(ResultBuffer rb)<br />         {<br />             var rl = LispList.FromBuffer(rb);<br />             return rl[0].GetValue();<br />         }<br /> <br /> <br />         [LispFunction("mytt2")]<br />         public object LispTest2(ResultBuffer rb)<br />         {<br />             var r2 =<br />                 new LispList<br />                 {<br />                     0,<br />                     new LispDottedPair{ 12, 13 }<br />                 };<br />             return r2.GetValue();<br />         }

雪山飞狐_lzh

结果
命令:

1. 
   
2. TT1
   
3. XdataList:((1001,myapp)(1000,hello))
   
4. (-4,<Or)(-4,<Not)(-4,<And)(0,line)(8,0)(-4,And>)(-4,Not>)(-4,<And)(-4,<Not)(0,circle)(-4,Not>)(8,2)(-4,>,>,*)(10,(10,10,0))(-4,And>)(-4,Or>)
   
5. (-4,<Or)(-4,<Not)(-4,<And)(0,line)(8,0)(-4,And>)(-4,Not>)(-4,<And)(-4,<Not)(0,circle)(-4,Not>)(8,2)(-4,>,>,*)(10,(10,10,0))(-4,And>)(-4,Or>)
   
6. (-4,<Or)(-4,<Not)(-4,<And)(0,line)(8,0)(-4,And>)(-4,Not>)(-4,<And)(-4,<Not)(0,circle)(-4,Not>)(8,2)(-4,<,<,*)(10,(10,10,0))(-4,And>)(-4,Or>)
   
7. 命令: (mytt2)
   
8. (0 (12 . 13))
   
9. 命令: (mytt '(1 (2 . 3)))
   
10. (1 (2 . 3))
    

复制代码

j15tty

学习了，非常感谢！！

cheng5276

飞狐出品，必属精品

mybeliefs

厉害，好好拜读下

wyy623

厉害，好好拜读下