关于SSGET颜色筛选对像是BYLAYER无法选中

易云网络

• 我以前写的自己用的
• 

  1. ;按照颜色选取图元
     
  2. (DEFUN C:cff(/ co color enlst n s1 ss x)
     
  3. 
     
  4. ;,| - - - - - - - - - - - - - - - - - - - -
     
  5. ;,| 函数编号：g0001
     
  6. ;,| - - - - - - - - - - - - - - - - - - - - -
     
  7. ;,|功能: 返回图元真实颜色
     
  8. ;,|参数:“ent”——图元名
     
  9. ;,|示例语句:   (color (car (entsel "\n选择: ")))
     
  10. ;,|示例返回:   颜色码
      
  11. (defun color (ent / c62 ent1)
      
  12.   (setq ent1 (entget ent))
      
  13.   (if (setq c62 (cdr (assoc 62 ent1)))
      
  14.       (if (= 0 c62)
      
  15.         7
      
  16.         c62
      
  17.       )
      
  18.      (cdr (assoc  62 (entget (tblobjname "layer" (cdr(assoc  8 ent1))))))
      
  19.   )
      
  20. )
      
  21.   
      
  22.   (redraw (setq s1 (car (entsel "\n选择: "))) 3)
      
  23.   (setq co  (color s1))
      
  24.   (setq enlst (ssadd))
      
  25.   (if (setq ss (ssget))
      
  26.     (repeat (setq n  (sslength ss)) ; fixed
      
  27.       (cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))
      
  28.     ))
      
  29.   (ssadd s1 enlst)
      
  30.   (sssetfirst nil enlst)
      
  31.   (princ )
      
  32. )

  ;按照颜色选取图元<br /> (DEFUN C:cff(/ co color enlst n s1 ss x)<br /> <br /> ;,| - - - - - - - - - - - - - - - - - - - -<br /> ;,| 函数编号：g0001<br /> ;,| - - - - - - - - - - - - - - - - - - - - - <br /> ;,|功能: 返回图元真实颜色<br /> ;,|参数:“ent”——图元名<br /> ;,|示例语句:   (color (car (entsel "\n选择: ")))<br /> ;,|示例返回:   颜色码<br /> (defun color (ent / c62 ent1)<br />   (setq ent1 (entget ent))<br />   (if (setq c62 (cdr (assoc 62 ent1)))<br />       (if (= 0 c62)<br />         7<br />         c62<br />       )<br />      (cdr (assoc  62 (entget (tblobjname "layer" (cdr(assoc  8 ent1))))))<br />   )<br /> )<br />   <br />   (redraw (setq s1 (car (entsel "\n选择: "))) 3)<br />   (setq co  (color s1))<br />   (setq enlst (ssadd))<br />   (if (setq ss (ssget))<br />     (repeat (setq n  (sslength ss)) ; fixed<br />       (cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))<br />     ))<br />   (ssadd s1 enlst)<br />   (sssetfirst nil enlst)<br />   (princ )<br /> )
  
  

浴火鸟TYTYJ

易云网络 发表于 2017-9-12 14:32

我以前写的自己用的

程式运行完美,达到了筛选效果!感谢易云网络!

浴火鸟TYTYJ

浴火鸟TYTYJ 发表于 2017-9-12 17:08
程式运行完美,达到了筛选效果!感谢易云网络!

1. 整理了一下程式,完全达到效果.

复制代码

浴火鸟TYTYJ

浴火鸟TYTYJ 发表于 2017-9-13 10:40

2. ;按照颜色选取图元
   
3. ;,| - - - - - - - - - - - - - - - - - - - -
   
4. ;,| 函数编号：g0001
   
5. ;,| - - - - - - - - - - - - - - - - - - - - -
   
6. ;,|功能: 返回图元真实颜色
   
7. ;,|参数:“ent”——图元名
   
8. ;,|示例语句:   (color (car (entsel "\n选择: ")))
   
9. ;,|示例返回:   颜色码
   
10. 
    
11. (DEFUN C:CV(/ co color enlst n s1 ss x)
    
12. (defun color (ent / c62 ent1)
    
13.   (setq ent1 (entget ent))
    
14.   (if (setq c62 (cdr (assoc 62 ent1)))
    
15.       (if (= 0 c62)
    
16.         7
    
17.         c62
    
18.       )
    
19.      (cdr (assoc  62 (entget (tblobjname "layer" (cdr(assoc  8 ent1))))))
    
20.   )
    
21. )
    
22.   
    
23.   (redraw (setq s1 (car (entsel "\n选择要筛选的目标对像颜色: "))) 3)
    
24.   (setq co  (color s1))
    
25.   (setq enlst (ssadd))
    
26.   (princ "\n选择目标窗口: ")
    
27.   (if (setq ss (ssget ))
    
28.     (repeat (setq n  (sslength ss)) ; fixed
    
29.       (cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))
    
30.     ))
    
31.   (ssadd s1 enlst)
    
32.   (sssetfirst nil enlst)
    
33.   (COMMAND "ERASE" ENLST "" "")
    
34.   (princ )
    
35. )

;按照颜色选取图元<br /> ;,| - - - - - - - - - - - - - - - - - - - -<br /> ;,| 函数编号：g0001<br /> ;,| - - - - - - - - - - - - - - - - - - - - - <br /> ;,|功能: 返回图元真实颜色<br /> ;,|参数:“ent”——图元名<br /> ;,|示例语句:   (color (car (entsel "\n选择: ")))<br /> ;,|示例返回:   颜色码<br /> <br /> (DEFUN C:CV(/ co color enlst n s1 ss x)<br /> (defun color (ent / c62 ent1)<br />   (setq ent1 (entget ent))<br />   (if (setq c62 (cdr (assoc 62 ent1)))<br />       (if (= 0 c62)<br />         7<br />         c62<br />       )<br />      (cdr (assoc  62 (entget (tblobjname "layer" (cdr(assoc  8 ent1))))))<br />   )<br /> )<br />   <br />   (redraw (setq s1 (car (entsel "\n选择要筛选的目标对像颜色: "))) 3)<br />   (setq co  (color s1))<br />   (setq enlst (ssadd))<br />   (princ "\n选择目标窗口: ")<br />   (if (setq ss (ssget ))<br />     (repeat (setq n  (sslength ss)) ; fixed<br />       (cond ((= co (color (setq x (ssname ss (setq n (1- n)))))) (ssadd x enlst)))<br />     ))<br />   (ssadd s1 enlst)<br />   (sssetfirst nil enlst)<br />   (COMMAND "ERASE" ENLST "" "")<br />   (princ )<br /> )

广易精通

9楼太牛啦，看上去很高端

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

逍遥天下

这个好牛,厉害

洪少(刀模)

太好了，终于知道怎样获取图层的颜色，在颜色ByLayer下。谢谢@易云网络！

ziyouwzb

shh1980 发表于 2017-9-12 07:00
ll_j 大师笔误了

(62.256)筛选不出来了