求特性匹配插件：仅匹配对象的颜色（！！！再次发问，新状况！！！）
本帖最后由 千风 于 2013-9-28 22:04 编辑求“特殊”特性匹配插件：
①仅匹配对象的：颜色值 （并非ByLayer值，）
②仅匹配对象的：颜色值+线型值+线宽值+透明度值
③仅匹配对象的：图层值
请注意！！！！！！！！！！！！！！！！！！！！！
CAD本身的 特性匹配 设置选项是会匹配 ByLayer值 的！
而我希望的是匹配 实际显示颜色值
例如：图层X的默认颜色值200
那么我希望图层X匹配给图层Y上的对象就是 颜色值200，
而不是 ByLayer值 (这个值会让对象变成所在图层Y的默认颜色)。
(defun c:tt ()
(if (setq s0 (car (entsel "\n选择样板颜色: ")))
(progn
(redraw s0 3)
(princ "\n选择颜色匹配实体: ")
(if (setq ss (ssget))
(xyp-SubUpd ss 62 (xyp-get-color s0))
)
(redraw s0 4)
)
)
(princ)
)
页:
[1]