图元颜色随图层，如何用ssget删选出来？

hubeiwdlue

用ssget函数，按颜色提取图元，发现一个问题，如果图元的颜色是

2. ;;筛选删除程序
   
3. (defun c:sxx ()
   
4.   (initget 1 "y t d")
   
5.   (setq a (getkword "\n请输入选择类型[颜色(y)/图层(t)/标注(d)]"))
   
6.   (cond
   
7.     ((= a "y")
   
8.       (setq en (ssget ":E:S"))
   
9.       (setq en ( ssname en 0))      
   
10.       (setq ys (sk_dxf en 62))
    
11.       (setq ent (ssget "A" (list(cons 62 ys))))
    
12.       (dl ent)
    
13.     )
    
14.     ((= a "t")
    
15.       (setq en (ssget ":E:S"))
    
16.       (setq en (ssname en 0))
    
17.       (setq tc (sk_dxf en 8))
    
18.       (setq ent (ssget "A" (list(cons 8 tc))))
    
19.       (dl ent)
    
20.     )  
    
21.     ((= a "d")
    
22.       (setq ent (ssget "A" (list(cons 0 "DIMENSION"))))
    
23.       (dl ent)
    
24.     )      
    
25.   )
    
26.   (princ)
    
27. )
    
28. ;;删除选择集
    
29. (defun dl(en_ss / n i en)
    
30. (setq n (sslength en_ss))
    
31.   (setq i 0)
    
32.   (repeat n
    
33.     (setq en (ssname en_ss i))
    
34.     (entdel en)
    
35.     (setq i (1+ i))   
    
36.   )  
    
37. )
    
38. 
    
39. ;(sk_dxf 图元名 组码)
    
40. (defun sk_dxf(en code)
    
41.     (if(and(=(type en) 'ENAME)(= (type code) 'INT))
    
42.       (cdr(assoc code (entget en))))
    
43. )

;;筛选删除程序<br /> (defun c:sxx ()<br />   (initget 1 "y t d")<br />   (setq a (getkword "\n请输入选择类型[颜色(y)/图层(t)/标注(d)]"))<br />   (cond<br />     ((= a "y")<br />       (setq en (ssget ":E:S"))<br />       (setq en ( ssname en 0))      <br />       (setq ys (sk_dxf en 62))<br />       (setq ent (ssget "A" (list(cons 62 ys))))<br />       (dl ent)<br />     )<br />     ((= a "t")<br />       (setq en (ssget ":E:S"))<br />       (setq en (ssname en 0))<br />       (setq tc (sk_dxf en 8))<br />       (setq ent (ssget "A" (list(cons 8 tc))))<br />       (dl ent)<br />     )  <br />     ((= a "d")<br />       (setq ent (ssget "A" (list(cons 0 "DIMENSION"))))<br />       (dl ent)<br />     )      <br />   )<br />   (princ)<br /> )<br /> ;;删除选择集<br /> (defun dl(en_ss / n i en)<br /> (setq n (sslength en_ss))<br />   (setq i 0)<br />   (repeat n<br />     (setq en (ssname en_ss i))<br />     (entdel en)<br />     (setq i (1+ i))    <br />   )  <br /> )<br /> <br /> ;(sk_dxf 图元名 组码)<br /> (defun sk_dxf(en code)<br />     (if(and(=(type en) 'ENAME)(= (type code) 'INT))<br />       (cdr(assoc code (entget en))))<br /> )

随图层的，组码里面就没有62号点对，无法按颜色筛选。这个问题应该怎么样解决？

Dea25

(setq ss (ssget '((-4 . "<and") (-4 . "=")(62 . 256) (-4 . "and>"))))

xiaocainiao

等于空的时候可以用tblsearch 搜索你拾取那个图层的颜色

llsheng_73

1. ;|code 6,62,370三组任意组合f"or"或"and"或者当code为nil时任意字符串,dxf当code为nil时可任意，否则不应含code里边组和-4组
   
2. (SELECTBYLAYER'((0 . "circle")) '((62 . 1)(370 . 100))"or")
   
3. (sslength(SELECTBYLAYER'((0 . "circle")) nil""))|;
   
4. 
   
5. (Defun STB(TAB f / d a)
   
6.   (While(SetQ a(TblNext TAB(not d)))
   
7.     (SetQ d(Cons a d)))
   
8.   (if f(mapcar'cdadr d)d))
   
9. (defun Selectbylayer(dxf code f / ly)
   
10.   (setq ly(mapcar'(lambda(x)(cons(assoc 370(entget(tblobjname"layer"(cdadr x))))x))(STB"Layer"nil)))
    
11.   (ssget"X"(if code(append dxf(list(cons -4(strcat"<"f)))
    
12.                           (vl-remove'nil(apply'append(mapcar'(lambda(x)(list'(-4 . "<or")x
    
13.                                                               '(-4 . "<and")(assoc(car x)'((62 . 256)(6 . "Bylayer")))
    
14.                                                               (cons 8(apply'strcat(mapcar'(lambda(x)(strcat(cdaddr x)","))
    
15.                                                                                          (vl-remove-if-not'(lambda(y)(member x y))ly))))
    
16.                                                               '(-4 . "and>")'(-4 . "or>")))code)))
    
17.                           (list(cons -4(strcat f">"))))
    
18.             dxf)))

;|code 6,62,370三组任意组合f"or"或"and"或者当code为nil时任意字符串,dxf当code为nil时可任意，否则不应含code里边组和-4组<br /> (SELECTBYLAYER'((0 . "circle")) '((62 . 1)(370 . 100))"or")<br /> (sslength(SELECTBYLAYER'((0 . "circle")) nil""))|;<br /> <br /> (Defun STB(TAB f / d a)<br />   (While(SetQ a(TblNext TAB(not d)))<br />     (SetQ d(Cons a d)))<br />   (if f(mapcar'cdadr d)d))<br /> (defun Selectbylayer(dxf code f / ly)<br />   (setq ly(mapcar'(lambda(x)(cons(assoc 370(entget(tblobjname"layer"(cdadr x))))x))(STB"Layer"nil)))<br />   (ssget"X"(if code(append dxf(list(cons -4(strcat"<"f)))<br />                           (vl-remove'nil(apply'append(mapcar'(lambda(x)(list'(-4 . "<or")x<br />                                                               '(-4 . "<and")(assoc(car x)'((62 . 256)(6 . "Bylayer")))<br />                                                               (cons 8(apply'strcat(mapcar'(lambda(x)(strcat(cdaddr x)","))<br />                                                                                          (vl-remove-if-not'(lambda(y)(member x y))ly))))<br />                                                               '(-4 . "and>")'(-4 . "or>")))code)))<br />                           (list(cons -4(strcat f">"))))<br />             dxf)))

hubeiwdlue

llsheng_73 发表于 2023-9-5 14:58

谢谢长老，我学习下

start4444

选取该颜色的图层再筛选出该图层里bylayer的图元，分两步走

hubeiwdlue

start4444 发表于 2023-9-5 16:21
选取该颜色的图层再筛选出该图层里bylayer的图元，分两步走

好的。谢谢。

花开富贵

哈哈 这个谜底就在谜面上啊，既然没有62，那就不允许选择62就可以啦

(progn
        (setq num-color 0
                lst-fi'()
        )
        (repeat 255
                (setq num-color (1+ num-color))
                (setq lst-fi (cons (cons 62 num-color) lst-fi))
        )
        (ssget
                (append
                        '( (-4 . "<not") (-4 . "<or"))       
                        lst-fi
                        '( (-4 . "or>") (-4 . "not>"))
                )
                ;'((-4 . "<not") (-4 . "<or") (62 . 1)(62 . 2) (-4 . "or>") (-4 . "not>"))
        ))

花开富贵

llsheng_73 发表于 2023-9-5 14:58

STB函数方便贴出来吗，大佬

hubeiwdlue

xiaocainiao 发表于 2023-9-5 14:36
等于空的时候可以用tblsearch 搜索你拾取那个图层的颜色

谢谢，是可以这样。然后把选择集中的图元一个个拿出来比较。