vla-put与vla-get简化思路！

范建威

(defun aaa()

)
(setq currArea (vla-get-Area ( vlax-ename->vla-object (car (entsel)))) )
(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Area )
(aaa 面积 图元)
(aaa 长度 图元)
(aaa 颜色 图元)
如何将函数窜连起来，生成一句完整的程序

Free-Lancer

所谓"一句话" 前提是你要"多写几句话" , 以后使用就是 "一句话" , 前面发过的, 再帖一次

1. (defun fy:get (obj lst)
   
2.   (if (listp lst)
   
3.     (mapcar
   
4.       '(lambda (x / val)
   
5.          (if (not (vl-catch-all-error-p
   
6.                     (setq
   
7.                       val (vl-catch-all-apply 'vlax-get (list obj x))
   
8.                     )
   
9.                   )
   
10.              )
    
11.            val
    
12.            nil
    
13.          )
    
14.        )
    
15.       lst
    
16.     )
    
17.     (vlax-get obj lst)
    
18.   )
    
19. )
    
20. (defun fy:put (obj lst)
    
21.   (mapcar '(lambda (x)
    
22.              (vl-catch-all-apply 'vlax-put (cons obj x))
    
23.            )
    
24.           lst
    
25.   )
    
26.   t
    
27. )

(defun fy:get (obj lst)<br />   (if (listp lst)<br />     (mapcar<br />       '(lambda (x / val)<br />          (if (not (vl-catch-all-error-p<br />                     (setq<br />                       val (vl-catch-all-apply 'vlax-get (list obj x))<br />                     )<br />                   )<br />              )<br />            val<br />            nil<br />          )<br />        )<br />       lst<br />     )<br />     (vlax-get obj lst)<br />   )<br /> )<br /> (defun fy:put (obj lst)<br />   (mapcar '(lambda (x)<br />              (vl-catch-all-apply 'vlax-put (cons obj x))<br />            )<br />           lst<br />   )<br />   t<br /> )

get 示例
(setq lst (fy:get (e2o ent) '(color layer linetype startpoint)))

put 就是
(fy:put (e2o ent) '(("layer" "0") ("startpoint" (1.0 1.0 0.0)))

put 还可以参考 fy:mat 函数

这里还有一个 invoke 、get、put 合一，不过不推荐这样用
http://bbs.xdcad.net/thread-671878-1-1.html

st788796

获取
(xdrx_getpropertyvlaue ent "color" "area" "length")

设置需要可写属性
(xdrx_setpropertyvalue ent "color" 1 "layer" "0")

/db_自贡黄明儒_

Free-Lancer 发表于 2014-11-10 07:35
所谓"一句话" 前提是你要"多写几句话" , 以后使用就是 "一句话" , 前面发过的, 再帖一次

你这个看起来很复杂的样子，是不是这样看起来更简呢

2. ;;(setq lst (fy:get (vlax-ename->vla-object(car(entsel))) '(color layer linetype startpoint)))
   
3. ;;(setq lst (fy:get (vlax-ename->vla-object(car(entsel))) 'startpoint))
   
4. (defun fy:get (obj lst)
   
5.   (if (listp lst)
   
6.     (mapcar '(lambda (x) (vl-catch-all-apply 'vlax-get (list obj x))) lst)
   
7.     (vl-catch-all-apply 'vlax-get (list obj lst))
   
8.   )
   
9. )

;;(setq lst (fy:get (vlax-ename->vla-object(car(entsel))) '(color layer linetype startpoint)))<br /> ;;(setq lst (fy:get (vlax-ename->vla-object(car(entsel))) 'startpoint))<br /> (defun fy:get (obj lst)<br />   (if (listp lst)<br />     (mapcar '(lambda (x) (vl-catch-all-apply 'vlax-get (list obj x))) lst)<br />     (vl-catch-all-apply 'vlax-get (list obj lst))<br />   )<br /> )

Free-Lancer

/db_自贡黄明儒_ 发表于 2014-11-10 09:59
你这个看起来很复杂的样子，是不是这样看起来更简呢

如果属性名称没有或者输错了返回的是一个  error , 当然别写错就可以简化

范建威

按照你的来用显示参数太多！

范建威

Free-Lancer 发表于 2014-11-10 10:06
如果属性名称没有或者输错了返回的是一个  error , 当然别写错就可以简化

向你说的属性名称容易输出为什么不可以用中文处理呢！
事先用CONS处理先！

）

Free-Lancer

范建威 发表于 2014-11-10 10:16
向你说的属性名称容易输出为什么不可以用中文处理呢！
事先用CONS处理先！

还是记住那些 属性名称 吧，不要搞什么中文！