按色归层（把实体调整到按颜色号创建的图层，实体颜色BYLAYER，图层颜色设置成实体的.

marting · 发表于 2020-5-14 22:50:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

按色归层（把实体调整到按颜色号创建的图层，实体颜色BYLAYER，图层颜色设置成实体的颜...

(defun c:XDTB_GLyrByClr (/ ss)
(if (and (xdrx-initssget "\n选择要归层的对象<退出>:")
(setq ss (xdrx-ssget))
)
(progn
(setq lyrs nil)
(mapcar '(lambda (x)
(xdrx-getpropertyvalue x "colorindex" t "layer" t)
(xdrx-setpropertyvalue
x
"color"
256
"layer"
(itoa #colorindex)
)
(xdrx-setpropertyvalue
(xdrx-getpropertyvalue x "layer" t)
"color"
#colorindex
)
(setq lyrs (cons #colorindex lyrs))
)
(xdrx-pickset->ents ss)
)
(xdrx-prompt
"\n按颜色归整了 "
(length (xd::list:removedup lyrs))
" 个图层."
)
)
)
(princ)
)

(defun c:XDTB_GLyrByClr        (/ ss) 
  (if (and (xdrx-initssget "\n选择要归层的对象<退出>:") 
           (setq ss (xdrx-ssget)) 
      ) 
    (progn 
      (setq lyrs nil) 
      (mapcar '(lambda (x) 
                 (xdrx-getpropertyvalue x "colorindex" t "layer" t) 
                 (xdrx-setpropertyvalue 
                   x 
                   "color" 
                   256 
                   "layer" 
                   (itoa #colorindex) 
                 ) 
                 (xdrx-setpropertyvalue 
                   (xdrx-getpropertyvalue x "layer" t) 
                   "color" 
                   #colorindex 
                 ) 
                 (setq lyrs (cons #colorindex lyrs)) 
               ) 
              (xdrx-pickset->ents ss) 
      ) 
      (xdrx-prompt 
        "\n按颜色归整了 " 
        (length (xd::list:removedup lyrs)) 
        " 个图层." 
      ) 
    ) 
  ) 
  (princ) 
)

kyky1002 · 发表于 2020-5-15 00:09:26

有点特别的插件谢谢分享

账号		自动登录	找回密码
密码			立即注册

[图层] 按色归层（把实体调整到按颜色号创建的图层，实体颜色BYLAYER，图层颜色设置成实体的.

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。