一种简化vlax等函数定义方法

Free-Lancer

1. (setq invoke         vlax-invoke
   
2.       invokem         vlax-invoke-method
   
3.       dump         vlax-dump-object
   
4.       e2o         vlax-ename->vla-object
   
5.       o2e         vlax-vla-object->ename
   
6.       fy:handle         vla-get-handle
   
7.       fy:Id         vla-get-objectid
   
8.       fy:id32         vla-get-objectid32
   
9.       fy:idstr         vla-getobjectidstring
   
10.       fy:vget         vlax-get-property
    
11.       fy:vput         vlax-put-property
    
12.       fy:vapply         vl-catch-all-apply
    
13.       fy:vcatche vl-catch-all-error-p
    
14.       fy:creat         vlax-get-or-create-object
    
15. )

(setq invoke         vlax-invoke<br />       invokem         vlax-invoke-method<br />       dump         vlax-dump-object<br />       e2o         vlax-ename->vla-object<br />       o2e         vlax-vla-object->ename<br />       fy:handle         vla-get-handle<br />       fy:Id         vla-get-objectid<br />       fy:id32         vla-get-objectid32<br />       fy:idstr         vla-getobjectidstring<br />       fy:vget         vlax-get-property<br />       fy:vput         vlax-put-property<br />       fy:vapply         vl-catch-all-apply<br />       fy:vcatche vl-catch-all-error-p<br />       fy:creat         vlax-get-or-create-object<br /> )

1. (defun fy:minvoke (obj lst)
   
2.   (mapcar '(lambda (x)
   
3.              (invoke obj x)
   
4.            )
   
5.           lst
   
6.   )
   
7. )

(defun fy:minvoke (obj lst)<br />   (mapcar '(lambda (x)<br />              (invoke obj x)<br />            )<br />           lst<br />   )<br /> )

eq.

(e2o (car (entsel)))
(fy:handle (e2o (car (entsel))))
(invoke (e2o (car (entsel))

/db_自贡黄明儒_

当用cad自带的编辑器提取局部变量时，可能认为e2o也是，故个人认为，e2o写成*e2o*，这样排序的时候在前面，便于去除

csharp

简化在输入方便的同时失去原函数名称直观分类意义

wzg356

开阔眼界，要多看