马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
按色归层(把实体调整到按颜色号创建的图层,实体颜色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)
- )
|