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

浴火鸟TYTYJ

;自动筛选删除红色图元
(defun C:D1 ()
(setq SS1 (ssget '( (62 . 1)))) ;筛选红色图元
           (command "erase" ss1 "")
           (princ)
  )

对于图档上图元颜色是BYLAYER的,颜色是红色的,是无法被筛选到的.

浴火鸟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 /> )

易云网络

• 我以前写的自己用的
• 

  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

手工把图颜改为1号色后,可以用此方法筛选出来.
有没有方法,不用去改BYLAYER,可以筛选到颜色出来?

vectra

你这问题听上去是要按层名来进行筛选

浴火鸟TYTYJ

vectra 发表于 2017-9-11 15:53
你这问题听上去是要按层名来进行筛选

不层名来,是按颜色来删除图元.
主要是是建一个颜色筛选.
就像SSGET筛文字或标注这样类似的功能.
(setq e1 (ssget '
          ((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT") (-4 . "OR>"))
                        )
              )

浴火鸟TYTYJ

vectra 发表于 2017-9-11 15:53
你这问题听上去是要按层名来进行筛选

此处的BYLAYER,指的是颜色是随层的,假如当前随层颜色刚好是1号色,是选不中的.必需要手工把颜色改为1号色,才能被选中.

ll_j

随块组码是1，随层是256

shh1980

ll_j 大师笔误了

1. ;;;dxf组码:
   
2. 62  颜色号（如果不是“BYLAYER”，则出现）；零表示“BYBLOCK”（可变的）颜色；256 表示“BYLAYER”；负值表示层已关闭（可选）

;;;dxf组码:<br /> 62  颜色号（如果不是“BYLAYER”，则出现）；零表示“BYBLOCK”（可变的）颜色；256 表示“BYLAYER”；负值表示层已关闭（可选）

浴火鸟TYTYJ

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

问题就在这里,图元颜色是随层(BYLAYER),又刚好是红色,这里候(62.1)是无法选中这个BYLARER的红色图元的.

gzxl

在ssget中单独处理

浴火鸟TYTYJ

这么牛的选择器!