[*]我以前写的自己用的
[*];按照颜色选取图元
(DEFUN C:cff(/ co color enlst n s1 ss x)
;,| - - - - - - - - - - - - - - - - - - - -
;,| 函数编号：g0001
;,| - - - - - - - - - - - - - - - - - - - - -
;,|功能: 返回图元真实颜色
;,|参数:“ent”——图元名
;,|示例语句: (color (car (entsel "\n选择: ")))
;,|示例返回: 颜色码
(defun color (ent / c62 ent1)
(setq ent1 (entget ent))
(if (setq c62 (cdr (assoc 62 ent1)))
(if (= 0 c62)
7
c62
)
(cdr (assoc62 (entget (tblobjname "layer" (cdr(assoc8 ent1))))))
)
)
(redraw (setq s1 (car (entsel "\n选择: "))) 3)
(setq co(color s1))
(setq enlst (ssadd))
(if (setq ss (ssget))
(repeat (setq n(sslength ss)) ; fixed
(cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))
))
(ssadd s1 enlst)
(sssetfirst nil enlst)
(princ )
)
易云网络 发表于 2017-9-12 14:32
[*]我以前写的自己用的
[*]
程式运行完美,达到了筛选效果!感谢易云网络! 浴火鸟TYTYJ 发表于 2017-9-12 17:08
程式运行完美,达到了筛选效果!感谢易云网络!
整理了一下程式,完全达到效果. 浴火鸟TYTYJ 发表于 2017-9-13 10:40
;按照颜色选取图元
;,| - - - - - - - - - - - - - - - - - - - -
;,| 函数编号：g0001
;,| - - - - - - - - - - - - - - - - - - - - -
;,|功能: 返回图元真实颜色
;,|参数:“ent”——图元名
;,|示例语句: (color (car (entsel "\n选择: ")))
;,|示例返回: 颜色码
(DEFUN C:CV(/ co color enlst n s1 ss x)
(defun color (ent / c62 ent1)
(setq ent1 (entget ent))
(if (setq c62 (cdr (assoc 62 ent1)))
(if (= 0 c62)
7
c62
)
(cdr (assoc62 (entget (tblobjname "layer" (cdr(assoc8 ent1))))))
)
)
(redraw (setq s1 (car (entsel "\n选择要筛选的目标对像颜色: "))) 3)
(setq co(color s1))
(setq enlst (ssadd))
(princ "\n选择目标窗口: ")
(if (setq ss (ssget ))
(repeat (setq n(sslength ss)) ; fixed
(cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))
))
(ssadd s1 enlst)
(sssetfirst nil enlst)
(COMMAND "ERASE" ENLST "" "")
(princ )
) 9楼太牛啦，看上去很高端 回帖是一种美德！感谢楼主的无私分享 谢谢 这个好牛,厉害 太好了，终于知道怎样获取图层的颜色，在颜色ByLayer下。谢谢@易云网络！ shh1980 发表于 2017-9-12 07:00
ll_j 大师笔误了
(62.256)筛选不出来了
页:
1
[2]