求特性匹配插件：仅匹配对象的颜色（！！！再次发问，新状况！！！）

千风

求“特殊”特性匹配插件：

①仅匹配对象的：颜色值 （并非ByLayer值，）
②仅匹配对象的：颜色值+线型值+线宽值+透明度值
③仅匹配对象的：图层值

请注意！！！！！！！！！！！！！！！！！！！！！
CAD本身的 特性匹配 设置选项是会匹配 ByLayer值 的！
而我希望的是匹配 实际显示颜色值
例如：图层X的默认颜色值200
那么我希望图层X匹配给图层Y上的对象就是 颜色值200，
而不是 ByLayer值 (这个值会让对象变成所在图层Y的默认颜色)。

xyp1964

2. (defun c:tt ()
   
3.   (if (setq s0 (car (entsel "\n选择样板颜色: ")))
   
4.     (progn
   
5.       (redraw s0 3)
   
6.       (princ "\n选择颜色匹配实体: ")
   
7.       (if (setq ss (ssget))
   
8.         (xyp-SubUpd ss 62 (xyp-get-color s0))
   
9.       )
   
10.       (redraw s0 4)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (if (setq s0 (car (entsel "\n选择样板颜色: ")))<br />     (progn<br />       (redraw s0 3)<br />       (princ "\n选择颜色匹配实体: ")<br />       (if (setq ss (ssget))<br />         (xyp-SubUpd ss 62 (xyp-get-color s0))<br />       )<br />       (redraw s0 4)<br />     )<br />   )<br />   (princ)<br /> )