[编程申请]：请帮忙编一个颜色匹配的lisp程序！！！

csun

通过选择目标物体，而达到匹配颜色的目的。

eachy

最初由 csun 发布
[B]通过选择目标物体，而达到匹配颜色的目的。 [/B]

CAD中的刷子就可以做到－【设置】

csun

改来改去，岂不是很麻烦，我需要单一功能，仅仅是改变颜色，其他不变，刷子虽好，但要将他用于其他功能就麻烦了。

cdhua001

看来你还没有试过eachy版主的办法，他修改了格式刷的选项设置为只修改颜色了啊。

lsjjm

2. (defun c:test (/ ent dobj dcolor dlayer doc layers ss n obj)
   
3.   (vl-load-com)
   
4.   (setq ent (car (entsel "\nSelect Destination Entity for Color: ")))
   
5.   (setq dobj (vlax-ename->vla-object ent))
   
6.   (setq dcolor (vla-get-color dobj))
   
7.   (if (= dcolor 256)
   
8.     (progn
   
9.       (setq dlayer (vla-get-layer dobj))
   
10.       (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    
11.       (setq layers (vla-get-layers doc))
    
12.       (vlax-for itm layers
    
13.         (if (= (vla-get-name itm) dlayer)
    
14.           (setq dcolor (vla-get-color itm))
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (setq ss (ssget "x"))
    
20.   ;; or (setq ss (ssget))
    
21.   (setq n 0)
    
22.   (while (< n (sslength ss))
    
23.     (setq obj (vlax-ename->vla-object (ssname ss n)))
    
24.     (vla-put-color obj dcolor)
    
25.     (setq n (1+ n))
    
26.   )
    
27. )

(defun c:test (/ ent dobj dcolor dlayer doc layers ss n obj)<br />   (vl-load-com)<br />   (setq ent (car (entsel "\nSelect Destination Entity for Color: ")))<br />   (setq dobj (vlax-ename->vla-object ent))<br />   (setq dcolor (vla-get-color dobj))<br />   (if (= dcolor 256)<br />     (progn<br />       (setq dlayer (vla-get-layer dobj))<br />       (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />       (setq layers (vla-get-layers doc))<br />       (vlax-for itm layers<br />         (if (= (vla-get-name itm) dlayer)<br />           (setq dcolor (vla-get-color itm))<br />         )<br />       )<br />     ) <br />   )<br />   (setq ss (ssget "x"))<br />   ;; or (setq ss (ssget))<br />   (setq n 0)<br />   (while (< n (sslength ss))<br />     (setq obj (vlax-ename->vla-object (ssname ss n)))<br />     (vla-put-color obj dcolor)<br />     (setq n (1+ n))<br />   )<br /> )

citykunan

直接用ma (MATCHPROP) 命令不就可以了吗？

csun

???(vlo-load-com)
???(vla-get-color dobj)

lsjjm

最初由 csun 发布
[B]???(vlo-load-com)
???(vla-get-color dobj) [/B]

你想要说什么?
(vlo-load-com)应该是 (vl-load-com)