练习 Lisp定义测试Getproperty

csharp

[ 本帖最后由 csharp 于 2014-4-28 21:55 编辑 ]\n\n[ 本帖最后由 csharp 于 2014-4-28 21:48 编辑 ]\n\n

1.         [LispFunction("mGetproperty")]
   
2.         public Object mGetproperty(ResultBuffer rb)
   
3.         {
   
4.             Object ret = null;
   
5.             TypedValue[] values = rb.AsArray();
   
6.             Document document = Application.DocumentManager.MdiActiveDocument;
   
7.             Transaction transaction = document.TransactionManager.StartTransaction();
   
8.             using (transaction)
   
9.             {
   
10.                 try
    
11.                 {
    
12.                     Entity entId = (Entity) transaction.GetObject((ObjectId )values [0].Value , OpenMode.ForRead);
    
13.                     String prop = values[1].Value.ToString();
    
14.                     object val =entId.GetType().InvokeMember(prop, BindingFlags.GetProperty, null, entId, null);
    
15.                     transaction.Commit();
    
16.                     ret = val;
    
17.                 }
    
18.                 catch (Exception)
    
19.                 {
    
20.                     
    
21.                     throw;
    
22.                 }
    
23.             }
    
24.             return ret;
    
25.         }
    

        [LispFunction("mGetproperty")]<br />         public Object mGetproperty(ResultBuffer rb)<br />         {<br />             Object ret = null;<br />             TypedValue[] values = rb.AsArray();<br />             Document document = Application.DocumentManager.MdiActiveDocument;<br />             Transaction transaction = document.TransactionManager.StartTransaction();<br />             using (transaction)<br />             {<br />                 try<br />                 {<br />                     Entity entId = (Entity) transaction.GetObject((ObjectId )values [0].Value , OpenMode.ForRead);<br />                     String prop = values[1].Value.ToString();<br />                     object val =entId.GetType().InvokeMember(prop, BindingFlags.GetProperty, null, entId, null);<br />                     transaction.Commit();<br />                     ret = val;<br />                 }<br />                 catch (Exception)<br />                 {<br />                     <br />                     throw;<br />                 }<br />             }<br />             return ret;<br />         }<br />

2012+ Autolisp增加了 getpropertyvalue / setpropertyvalue / dumpallproperties 三个函数，对Lisp的面向对象操作提供了很大便利，但是不足也很明显，比如对 Line 提取起点， getpropertyvalue 要提前三个数再list ， 分别是 StartPoint/X StartPoint/Y StartPoint/Z ，这样就没有什么使用价值了，上面的函数只是一个验证，没有容错处理

命令: NETLOAD
命令: (mgetproperty (entlast) "StartPoint")
(2672.41 978.817 0.0)