如何提取图元SS1的颜色给图元SS2?

tm20038175

如何提取图元SS1的颜色给图元SS2?
SS1,SS2都是一个图元~~~~

ljpnb

临时写了一个

2. 
   
3. (defun c:tt ()
   
4.   (if (setq en1        (entsel "\n选择目标物体的颜色:")
   
5.             en2        (entsel "\n选择需要变换颜色的物体:")
   
6.       )
   
7.     (progn
   
8.       (setq ent1 (entget (car en1))
   
9.             ent2 (entget (car en2))
   
10.       )
    
11.       (setq col1 (cdr (assoc 62 ent1))
    
12.             col2 (cdr (assoc 62 ent2))
    
13.       )
    
14.       (if (null col1)
    
15.         (progn
    
16.           (setq lay (cdr (assoc 8 ent1)))
    
17.           (setq lay-dxf (entget (tblobjname "layer" lay)))
    
18.           (setq col1 (cdr (assoc 62 lay-dxf)))
    
19.         )
    
20.       )
    
21.       (if col2
    
22.         (setq ent2 (subst (cons 62 col1) (assoc 62 ent2) ent2))
    
23.         (setq ent2 (append (list (cons 62 col1)) ent2))
    
24.       )
    
25.       (entmod ent2)
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )
    

<br /> (defun c:tt ()<br />   (if (setq en1        (entsel "\n选择目标物体的颜色:")<br />             en2        (entsel "\n选择需要变换颜色的物体:")<br />       )<br />     (progn<br />       (setq ent1 (entget (car en1))<br />             ent2 (entget (car en2))<br />       )<br />       (setq col1 (cdr (assoc 62 ent1))<br />             col2 (cdr (assoc 62 ent2))<br />       )<br />       (if (null col1)<br />         (progn<br />           (setq lay (cdr (assoc 8 ent1)))<br />           (setq lay-dxf (entget (tblobjname "layer" lay)))<br />           (setq col1 (cdr (assoc 62 lay-dxf)))<br />         )<br />       )<br />       (if col2<br />         (setq ent2 (subst (cons 62 col1) (assoc 62 ent2) ent2))<br />         (setq ent2 (append (list (cons 62 col1)) ent2))<br />       )<br />       (entmod ent2)<br />     )<br />   )<br />   (princ)<br /> )<br />

tm20038175

ljpnb 发表于 2011-11-22 12:15
临时写了一个

这么快呀，太感谢了，而且考虑了很多因素，哈哈~~~