练习 Lisp定义Net版GetpropertyValue

csharp

仅仅能用而已，LispFunction可以接受 Point3d，但是转换为 Resultbuffer 输出时就多了一个括号，在Lisp中要 car

1.         [LispFunction("mGetproperty")]
   
2.         public static ResultBuffer mGetproperty(ResultBuffer rb)
   
3.         {
   
4.             TypedValue[] values = rb.AsArray();
   
5.             if (rb != null)
   
6.             {
   
7.                 Document document = Application.DocumentManager.MdiActiveDocument;
   
8.                 Editor ed = document.Editor;
   
9.                 String proName = (String)values[1].Value;
   
10.                 proName = proName.ToUpper();
    
11.                 Transaction transaction = document.TransactionManager.StartTransaction();
    
12.                 if (values.Count() == 2 && values[0].TypeCode == (int) LispDataType.ObjectId &&
    
13.                     values[1].TypeCode == (int) LispDataType.Text)
    
14.                 {
    
15.                     using (transaction)
    
16.                     {
    
17.                         ObjectId id = (ObjectId) values[0].Value;
    
18.                         Entity obj = (Entity) id.GetObject(OpenMode.ForRead);
    
19.                         PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj);
    
20.                         foreach (PropertyDescriptor prop in props)
    
21.                         {
    
22.                             String entPropetyName = (String) prop.Name;
    
23.                             entPropetyName = entPropetyName.ToUpper();
    
24.                             Object valueObj = null;
    
25.                             string valueString = string.Empty;
    
26.                             if (entPropetyName == proName)
    
27.                             {
    
28.                                 try
    
29.                                 {
    
30.                                     valueObj = prop.GetValue(obj);
    
31.                                     if (valueObj != null)
    
32.                                     {
    
33.                                         var proType = prop.PropertyType;
    
34.                                         if (valueObj is Point3d)
    
35.                                         {
    
36.                                             Point3d pt = new Point3d();
    
37.                                             pt = (Point3d) valueObj;
    
38.                                             TypedValue [] newValues = new TypedValue[1];
    
39.                                             newValues [0] = new TypedValue((int)LispDataType .Point3d ,pt);
    
40.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
41.                                             return ret;
    
42.                                         }
    
43.                                         else if (valueObj is Vector3d)
    
44.                                         {
    
45.                                             Vector3d vec = (Vector3d) valueObj;
    
46.                                             Point3d pt = new Point3d(vec.X ,vec.Y,vec.Z );
    
47.                                             TypedValue[] newValues = new TypedValue[1];
    
48.                                             newValues[0] = new TypedValue((int)LispDataType.Point3d, pt);
    
49.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
50.                                             return ret;
    
51. 
    
52.                                         }
    
53.                                         else if (valueObj is Matrix3d )
    
54.                                         {
    
55.                                             Matrix3d mat = (Matrix3d) valueObj;
    
56.                                             return Tools.Matrix3dToesultBuffer(mat);
    
57.                                         }
    
58.                                         else if (valueObj is Boolean )
    
59.                                         {
    
60.                                             Boolean t = (bool) valueObj;
    
61.                                             TypedValue[] newValues = new TypedValue[1];
    
62.                                             newValues[0] = new TypedValue((int)LispDataType.T_atom , t);
    
63.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
64.                                             return ret;
    
65.                                         }
    
66.                                         else if (valueObj is Double)
    
67.                                         {
    
68.                                             Double d = (Double) valueObj;
    
69.                                             TypedValue[] newValues = new TypedValue[1];
    
70.                                             newValues[0] = new TypedValue((int)LispDataType.Double, d);
    
71.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
72.                                             return ret;
    
73.                                         }
    
74.                                         else if(valueObj is String )
    
75.                                         {
    
76.                                             String str = (String) valueObj;
    
77.                                             TypedValue[] newValues = new TypedValue[1];
    
78.                                             newValues[0] = new TypedValue((int)LispDataType.Text, str);
    
79.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
80.                                             return ret;
    
81.                                         }
    
82.                                         else if (valueObj is Extents3d)
    
83.                                         {
    
84.                                             Extents3d pts = (Extents3d) valueObj;
    
85.                                             Point3d p0 = pts.MinPoint ;
    
86.                                             Point3d pp = pts.MinPoint ;
    
87.                                             TypedValue[] newValues = new TypedValue[2];
    
88.                                             newValues[0] = new TypedValue((int)LispDataType.Point3d, p0);
    
89.                                             newValues[1] = new TypedValue((int)LispDataType.Point3d, pp);
    
90.                                             ResultBuffer ret = new ResultBuffer(newValues);
    
91.                                             return ret;
    
92.                                         }
    
93.                                         else
    
94.                                         {
    
95.                                             return  null;
    
96.                                         }
    
97.                                     }
    
98.                                     else
    
99.                                     {
    
100.                                         continue;
     
101.                                     }
     
102.                                     transaction.Commit();
     
103.                                     return null;
     
104.                                 }// end try
     
105.                                 catch (System.Exception ex)
     
106.                                 {
     
107.                                     if (ex.InnerException is Autodesk.AutoCAD.Runtime.Exception &&
     
108.                                         (ex.InnerException as Autodesk.AutoCAD.Runtime.Exception).ErrorStatus ==
     
109.                                         ErrorStatus.NotApplicable)
     
110.                                     {
     
111.                                         continue;
     
112.                                     }
     
113.                                     else
     
114.                                     {
     
115.                                         throw;
     
116.                                     }
     
117.                                 }
     
118.                             }// GetProperTypeName
     
119.                             else
     
120.                             {
     
121.                                 continue;
     
122.                             }
     
123.                         }// end Foreach
     
124.                     }//end using
     
125.                 }// end if resultbuffer is avaid
     
126.                 else
     
127.                 {
     
128.                     return null;
     
129.                 }
     
130.             }// end if rb != null
     
131.             else
     
132.             {
     
133.                 return null;
     
134.             }// rb == null
     
135.             return null;
     
136.         }
     

        [LispFunction("mGetproperty")]<br />         public static ResultBuffer mGetproperty(ResultBuffer rb)<br />         {<br />             TypedValue[] values = rb.AsArray();<br />             if (rb != null)<br />             {<br />                 Document document = Application.DocumentManager.MdiActiveDocument;<br />                 Editor ed = document.Editor;<br />                 String proName = (String)values[1].Value;<br />                 proName = proName.ToUpper();<br />                 Transaction transaction = document.TransactionManager.StartTransaction();<br />                 if (values.Count() == 2 && values[0].TypeCode == (int) LispDataType.ObjectId &&<br />                     values[1].TypeCode == (int) LispDataType.Text)<br />                 {<br />                     using (transaction)<br />                     {<br />                         ObjectId id = (ObjectId) values[0].Value;<br />                         Entity obj = (Entity) id.GetObject(OpenMode.ForRead);<br />                         PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj);<br />                         foreach (PropertyDescriptor prop in props)<br />                         {<br />                             String entPropetyName = (String) prop.Name;<br />                             entPropetyName = entPropetyName.ToUpper();<br />                             Object valueObj = null;<br />                             string valueString = string.Empty;<br />                             if (entPropetyName == proName)<br />                             {<br />                                 try<br />                                 {<br />                                     valueObj = prop.GetValue(obj);<br />                                     if (valueObj != null)<br />                                     {<br />                                         var proType = prop.PropertyType;<br />                                         if (valueObj is Point3d)<br />                                         {<br />                                             Point3d pt = new Point3d();<br />                                             pt = (Point3d) valueObj;<br />                                             TypedValue [] newValues = new TypedValue[1];<br />                                             newValues [0] = new TypedValue((int)LispDataType .Point3d ,pt);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br />                                         }<br />                                         else if (valueObj is Vector3d)<br />                                         {<br />                                             Vector3d vec = (Vector3d) valueObj;<br />                                             Point3d pt = new Point3d(vec.X ,vec.Y,vec.Z );<br />                                             TypedValue[] newValues = new TypedValue[1];<br />                                             newValues[0] = new TypedValue((int)LispDataType.Point3d, pt);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br /> <br />                                         }<br />                                         else if (valueObj is Matrix3d )<br />                                         {<br />                                             Matrix3d mat = (Matrix3d) valueObj;<br />                                             return Tools.Matrix3dToesultBuffer(mat);<br />                                         }<br />                                         else if (valueObj is Boolean )<br />                                         {<br />                                             Boolean t = (bool) valueObj;<br />                                             TypedValue[] newValues = new TypedValue[1];<br />                                             newValues[0] = new TypedValue((int)LispDataType.T_atom , t);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br />                                         }<br />                                         else if (valueObj is Double)<br />                                         {<br />                                             Double d = (Double) valueObj;<br />                                             TypedValue[] newValues = new TypedValue[1];<br />                                             newValues[0] = new TypedValue((int)LispDataType.Double, d);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br />                                         }<br />                                         else if(valueObj is String )<br />                                         {<br />                                             String str = (String) valueObj;<br />                                             TypedValue[] newValues = new TypedValue[1];<br />                                             newValues[0] = new TypedValue((int)LispDataType.Text, str);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br />                                         }<br />                                         else if (valueObj is Extents3d)<br />                                         {<br />                                             Extents3d pts = (Extents3d) valueObj;<br />                                             Point3d p0 = pts.MinPoint ;<br />                                             Point3d pp = pts.MinPoint ;<br />                                             TypedValue[] newValues = new TypedValue[2];<br />                                             newValues[0] = new TypedValue((int)LispDataType.Point3d, p0);<br />                                             newValues[1] = new TypedValue((int)LispDataType.Point3d, pp);<br />                                             ResultBuffer ret = new ResultBuffer(newValues);<br />                                             return ret;<br />                                         }<br />                                         else<br />                                         {<br />                                             return  null;<br />                                         }<br />                                     }<br />                                     else<br />                                     {<br />                                         continue;<br />                                     }<br />                                     transaction.Commit();<br />                                     return null;<br />                                 }// end try<br />                                 catch (System.Exception ex)<br />                                 {<br />                                     if (ex.InnerException is Autodesk.AutoCAD.Runtime.Exception &&<br />                                         (ex.InnerException as Autodesk.AutoCAD.Runtime.Exception).ErrorStatus ==<br />                                         ErrorStatus.NotApplicable)<br />                                     {<br />                                         continue;<br />                                     }<br />                                     else<br />                                     {<br />                                         throw;<br />                                     }<br />                                 }<br />                             }// GetProperTypeName<br />                             else<br />                             {<br />                                 continue;<br />                             }<br />                         }// end Foreach<br />                     }//end using<br />                 }// end if resultbuffer is avaid<br />                 else<br />                 {<br />                     return null;<br />                 }<br />             }// end if rb != null<br />             else<br />             {<br />                 return null;<br />             }// rb == null<br />             return null;<br />         }<br />

命令: (mgetproperty (entlast) "length")
(1469.73)

命令: (mgetproperty (entlast) "ecs")
((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

csharp

ResultBuffer简化类
http://bbs.mjtd.com/thread-79849-1-1.html

csharp

先留存，慢慢学习
http://www.theswamp.org/index.php?topic=25582.0  

1. //(test1 1 1 "Hello" "Dude")
   
2.     [LispFunction("test1")]
   
3.     public static ResultBuffer test1(ResultBuffer args)
   
4.     {
   
5.       ResultBuffer retList = new ResultBuffer();
   
6.       try
   
7.       {
   
8.         Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor;
   
9. 
   
10.         if (args == null)
    
11.         {
    
12.           retList.AddErr("Null Argument");
    
13.           return retList;
    
14.         }
    
15. 
    
16.         if (args.GetCount() == 0)
    
17.         {
    
18.           retList.AddErr("To Few Arguments");
    
19.           return retList;
    
20.         }
    
21. 
    
22.         Func<TypedValue, bool>
    
23.           filter = x => x.TypeCode == (int)LispDataType.Text;
    
24. 
    
25.         var rlist = args.Where(filter);
    
26. 
    
27.         foreach (var e in rlist)
    
28.           retList.AddString(e.Value.ToString());
    
29. 
    
30. 
    
31.         if (retList.GetCount() == 0)
    
32.         {
    
33.           retList.AddNil();
    
34.           return retList;
    
35.         }
    
36. 
    
37.       }
    
38.       catch (System.Exception ex)
    
39.       {
    
40.         retList.AddErr(ex.Message);
    
41.       }
    
42.       return retList;
    
43.     }
    
44. 
    
45. 
    
46.     //(test2 "s" "a" "s" "a" "ad")
    
47.     [LispFunction("test2")]
    
48.     public static ResultBuffer test2(ResultBuffer args)
    
49.     {
    
50.       ResultBuffer retList = new ResultBuffer();
    
51.       try
    
52.       {
    
53. 
    
54.         Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor;
    
55. 
    
56.         if (args == null)
    
57.         {
    
58.           retList.AddErr("Null Argument");
    
59.           return retList;
    
60.         }
    
61. 
    
62.         if (args.GetCount() == 0)
    
63.         {
    
64.           retList.AddErr("To Few Arguments");
    
65.           return retList;
    
66.         }
    
67. 
    
68.         var query = from f in args
    
69.                     where f == new TypedValue((int)LispDataType.Text, "a")
    
70.                     select f;
    
71. 
    
72.         foreach (var e in query)
    
73.           retList.AddString((string)e.Value);
    
74. 
    
75.         if (retList.GetCount() == 0)
    
76.         {
    
77.           retList.AddNil();
    
78.           return retList;
    
79.         }
    
80. 
    
81.       }
    
82.       catch (System.Exception ex)
    
83.       {
    
84.         retList.AddErr(ex.Message);
    
85.       }
    
86.       return retList;
    
87.     }
    

//(test1 1 1 "Hello" "Dude")<br />     [LispFunction("test1")]<br />     public static ResultBuffer test1(ResultBuffer args)<br />     {<br />       ResultBuffer retList = new ResultBuffer();<br />       try<br />       {<br />         Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor;<br /> <br />         if (args == null)<br />         {<br />           retList.AddErr("Null Argument");<br />           return retList;<br />         }<br /> <br />         if (args.GetCount() == 0)<br />         {<br />           retList.AddErr("To Few Arguments");<br />           return retList;<br />         }<br /> <br />         Func<TypedValue, bool><br />           filter = x => x.TypeCode == (int)LispDataType.Text;<br /> <br />         var rlist = args.Where(filter);<br /> <br />         foreach (var e in rlist)<br />           retList.AddString(e.Value.ToString());<br /> <br /> <br />         if (retList.GetCount() == 0)<br />         {<br />           retList.AddNil();<br />           return retList;<br />         }<br /> <br />       }<br />       catch (System.Exception ex)<br />       {<br />         retList.AddErr(ex.Message);<br />       }<br />       return retList;<br />     }<br /> <br /> <br />     //(test2 "s" "a" "s" "a" "ad")<br />     [LispFunction("test2")]<br />     public static ResultBuffer test2(ResultBuffer args)<br />     {<br />       ResultBuffer retList = new ResultBuffer();<br />       try<br />       {<br /> <br />         Editor ed = AcadApp.DocumentManager.MdiActiveDocument.Editor;<br /> <br />         if (args == null)<br />         {<br />           retList.AddErr("Null Argument");<br />           return retList;<br />         }<br /> <br />         if (args.GetCount() == 0)<br />         {<br />           retList.AddErr("To Few Arguments");<br />           return retList;<br />         }<br /> <br />         var query = from f in args<br />                     where f == new TypedValue((int)LispDataType.Text, "a")<br />                     select f;<br /> <br />         foreach (var e in query)<br />           retList.AddString((string)e.Value);<br /> <br />         if (retList.GetCount() == 0)<br />         {<br />           retList.AddNil();<br />           return retList;<br />         }<br /> <br />       }<br />       catch (System.Exception ex)<br />       {<br />         retList.AddErr(ex.Message);<br />       }<br />       return retList;<br />     }<br />

1 楼的啰嗦了，应该 用linq 查询代替 Foreach，再改改

csharp

这样筛选
http://blog.csdn.net/q107770540/article/details/5724013

1.                         var query = from PropertyDescriptor f in props
   
2.                             where  (String)f.Name.ToUpper == proName && f.GetValue( obj) != null
   
3.                             select f;
   
4.                         if (query.Count() > 0)
   
5.                         {
   
6.                             foreach (PropertyDescriptor descriptor in query)
   
7.                             {
   
8. 
   
9.                             }
   
10.                         }
    

                        var query = from PropertyDescriptor f in props<br />                             where  (String)f.Name.ToUpper == proName && f.GetValue( obj) != null <br />                             select f;<br />                         if (query.Count() > 0)<br />                         {<br />                             foreach (PropertyDescriptor descriptor in query)<br />                             {<br /> <br />                             }<br />                         }<br />

csharp

[ 本帖最后由 csharp 于 2014-5-9 16:32 编辑 ]\n\n修改后如下

1.         [LispFunction("mGetproperty")]
   
2.         public static Object mGetproperty(ResultBuffer rb)
   
3.         {
   
4.             TypedValue[] values = rb.AsArray();
   
5.             if (rb != null)
   
6.             {
   
7.                 Document document = Application.DocumentManager.MdiActiveDocument;
   
8.                 Editor ed = document.Editor;
   
9.                 String proName = (String) values[1].Value;
   
10.                 proName = proName.ToUpper();
    
11.                 Transaction transaction = document.TransactionManager.StartTransaction();
    
12.                 if (values.Count() == 2 && values[0].TypeCode == (int) LispDataType.ObjectId &&
    
13.                     values[1].TypeCode == (int) LispDataType.Text)
    
14.                 {
    
15.                     using (transaction)
    
16.                     {
    
17.                         ObjectId id = (ObjectId) values[0].Value;
    
18.                         Entity obj = (Entity) id.GetObject(OpenMode.ForRead);
    
19.                         PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj);
    
20.                         var query = from PropertyDescriptor f in props
    
21.                             where f.Name.ToUpper() == proName && f.GetValue(obj) != null
    
22.                             select f;
    
23.                         if (query.Count() > 0)
    
24.                         {
    
25.                             foreach (PropertyDescriptor descriptor in query)
    
26.                             {
    
27.                                 Object valueObj = null;
    
28.                                 valueObj = descriptor.GetValue(obj);
    
29.                                 if (valueObj is Point3d)
    
30.                                 {
    
31.                                     ResultBuffer ret =
    
32.                                         new ResultBuffer(new TypedValue((int) LispDataType.Point3d, (Point3d) valueObj));
    
33.                                     return ret;
    
34.                                 }
    
35.                                 else if (valueObj is Vector3d)
    
36.                                 {
    
37.                                     Vector3d vec = (Vector3d) valueObj;
    
38.                                     Point3d pt = new Point3d(vec.X, vec.Y, vec.Z);
    
39.                                     ResultBuffer ret = new ResultBuffer(new TypedValue((int) LispDataType.Point3d, pt));
    
40.                                     return ret;
    
41.                                 }
    
42.                                 else if (valueObj is Matrix3d)
    
43.                                 {
    
44.                                     Matrix3d mat = (Matrix3d) valueObj;
    
45.                                     return Tools.Matrix3dToesultBuffer(mat);
    
46.                                 }
    
47.                                 else if (valueObj is Boolean)
    
48.                                 {
    
49.                                     return (bool) valueObj;
    
50.                                 }
    
51.                                 else if (valueObj is Double)
    
52.                                 {
    
53.                                     return (Double) valueObj;
    
54.                                 }
    
55.                                 else if (valueObj is String)
    
56.                                 {
    
57.                                     return (String) valueObj;
    
58.                                 }
    
59.                                 else if (valueObj is Extents3d)
    
60.                                 {
    
61.                                     Extents3d pts = (Extents3d) valueObj;
    
62.                                     Point3d p0 = pts.MinPoint;
    
63.                                     Point3d pp = pts.MinPoint;
    
64.                                     TypedValue[] newValues = new TypedValue[2];
    
65.                                     newValues[0] = new TypedValue((int) LispDataType.Point3d, p0);
    
66.                                     newValues[1] = new TypedValue((int) LispDataType.Point3d, pp);
    
67.                                     ResultBuffer ret = new ResultBuffer(newValues);
    
68.                                     return ret;
    
69.                                 }
    
70.                                 else
    
71.                                 {
    
72.                                     return null;
    
73.                                 }
    
74.                             }
    
75. 
    
76.                         }
    
77.                         else
    
78.                         {
    
79.                             return null;
    
80.                         }
    
81.                     }
    
82.                 } // end if rb != null
    
83.                 else
    
84.                 {
    
85.                     return null;
    
86.                 } // rb == null
    
87.                 return null;
    
88.             }
    
89.             else
    
90.             {
    
91.                 return null;
    
92.             }
    
93.         }
    

        [LispFunction("mGetproperty")]<br />         public static Object mGetproperty(ResultBuffer rb)<br />         {<br />             TypedValue[] values = rb.AsArray();<br />             if (rb != null)<br />             {<br />                 Document document = Application.DocumentManager.MdiActiveDocument;<br />                 Editor ed = document.Editor;<br />                 String proName = (String) values[1].Value;<br />                 proName = proName.ToUpper();<br />                 Transaction transaction = document.TransactionManager.StartTransaction();<br />                 if (values.Count() == 2 && values[0].TypeCode == (int) LispDataType.ObjectId &&<br />                     values[1].TypeCode == (int) LispDataType.Text)<br />                 {<br />                     using (transaction)<br />                     {<br />                         ObjectId id = (ObjectId) values[0].Value;<br />                         Entity obj = (Entity) id.GetObject(OpenMode.ForRead);<br />                         PropertyDescriptorCollection props = TypeDescriptor.GetProperties(obj);<br />                         var query = from PropertyDescriptor f in props<br />                             where f.Name.ToUpper() == proName && f.GetValue(obj) != null<br />                             select f;<br />                         if (query.Count() > 0)<br />                         {<br />                             foreach (PropertyDescriptor descriptor in query)<br />                             {<br />                                 Object valueObj = null;<br />                                 valueObj = descriptor.GetValue(obj);<br />                                 if (valueObj is Point3d)<br />                                 {<br />                                     ResultBuffer ret =<br />                                         new ResultBuffer(new TypedValue((int) LispDataType.Point3d, (Point3d) valueObj));<br />                                     return ret;<br />                                 }<br />                                 else if (valueObj is Vector3d)<br />                                 {<br />                                     Vector3d vec = (Vector3d) valueObj;<br />                                     Point3d pt = new Point3d(vec.X, vec.Y, vec.Z);<br />                                     ResultBuffer ret = new ResultBuffer(new TypedValue((int) LispDataType.Point3d, pt));<br />                                     return ret;<br />                                 }<br />                                 else if (valueObj is Matrix3d)<br />                                 {<br />                                     Matrix3d mat = (Matrix3d) valueObj;<br />                                     return Tools.Matrix3dToesultBuffer(mat);<br />                                 }<br />                                 else if (valueObj is Boolean)<br />                                 {<br />                                     return (bool) valueObj;<br />                                 }<br />                                 else if (valueObj is Double)<br />                                 {<br />                                     return (Double) valueObj;<br />                                 }<br />                                 else if (valueObj is String)<br />                                 {<br />                                     return (String) valueObj;<br />                                 }<br />                                 else if (valueObj is Extents3d)<br />                                 {<br />                                     Extents3d pts = (Extents3d) valueObj;<br />                                     Point3d p0 = pts.MinPoint;<br />                                     Point3d pp = pts.MinPoint;<br />                                     TypedValue[] newValues = new TypedValue[2];<br />                                     newValues[0] = new TypedValue((int) LispDataType.Point3d, p0);<br />                                     newValues[1] = new TypedValue((int) LispDataType.Point3d, pp);<br />                                     ResultBuffer ret = new ResultBuffer(newValues);<br />                                     return ret;<br />                                 }<br />                                 else<br />                                 {<br />                                     return null;<br />                                 }<br />                             }<br /> <br />                         }<br />                         else<br />                         {<br />                             return null;<br />                         }<br />                     }<br />                 } // end if rb != null<br />                 else<br />                 {<br />                     return null;<br />                 } // rb == null<br />                 return null;<br />             }<br />             else<br />             {<br />                 return null;<br />             }<br />         }<br />

声明为 Object 类型就可以了
命令: (mgetproperty (entlast) "ecs")
((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 0.0 1.0))

命令: (mgetproperty (entlast) "length")
1040.78
命令: (mgetproperty (entlast) "bounds")
((1909.13 1110.78 0.0) (1909.13 1110.78 0.0))

csharp

有些属性返回还有点问题
Handle 是 Class 要单独判断，Boolean Double String 可以用 | 在一个 if 内

455383153

缺少这个类Tools

xinxirong

可以改写成C++版吗？

qq1254582201

好东西哦，你值得拥有

KB20140507

厉害厉害 这个交互真好 学习 学习