一个刷子函数

Free-Lancer

1. (defun fy:mat (source target lst)
   
2.   (mapcar '(lambda (x y)
   
3.              (if (and y (vlax-property-available-p target x T))
   
4.                (vlax-put-property target x y)
   
5.              )
   
6.            )
   
7.           lst
   
8.           (mapcar '(lambda (a)
   
9.                      (if (vlax-property-available-p source a)
   
10.                        (vlax-get-property source a)
    
11.                      )
    
12.                    )
    
13.                   lst
    
14.           )
    
15.   )
    
16. )

(defun fy:mat (source target lst)<br />   (mapcar '(lambda (x y)<br />              (if (and y (vlax-property-available-p target x T))<br />                (vlax-put-property target x y)<br />              )<br />            )<br />           lst<br />           (mapcar '(lambda (a)<br />                      (if (vlax-property-available-p source a)<br />                        (vlax-get-property source a)<br />                      )<br />                    )<br />                   lst<br />           )<br />   )<br /> )

(fy:mat        (e2o (car (entsel)))
        (e2o (car (entsel)))
        '("Layer" "color" "linetype" "thickness" "Radius")
)

/db_自贡黄明儒_

很好。就是代码太短了。我希望看到LZ写个很长很长的代码出来让我们分享

st788796

把楼主发过的源码放到一个文件就很长了:)

enn09

感谢分享，支持了

daierfull

e2o 这个是什么函数呢