关于sssetfirst实现“夹点亮显”的问题

言社长

以下是@lucas_3333写的一段代码，功能是“隐藏相同颜色的图元,包括随层图层颜色”。
我想用sssetfirst实现“夹点亮显相同颜色的图元,包括随层图层颜色”，应该怎么改呢?
本人初接触LISP，还望各位包涵，请赐教！

2. (defun c:test (/ ss ssn n cor m ss1 pd ssm)
   
3.   (princ "\n请选择需要隐藏的颜色:")
   
4.   (setq ss (nth 0 (entsel)))
   
5.   (command "undo" "be")
   
6.   (setvar "cmdecho" 0)
   
7.   (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色
   
8.   (if (= cor nil)
   
9.     (progn (setq tc (cdr (assoc 8 (entget ss))))
   
10.            (setq tc (tblsearch "layer" tc))
    
11.            (setq cor (assoc 62 tc))
    
12.     )
    
13.   )
    
14. ;;;找出不是随层符合颜色的对象
    
15.   (setq ss (ssget "x" (list cor)))
    
16.   (if (/= ss nil)
    
17.     (progn (setq n 0)
    
18.            (while (< n (sslength ss))
    
19.              (setq ssn (ssname ss n))
    
20.              (setq ssn (entget ssn))
    
21.              (setq ssn (append ssn '((60 . 1))))
    
22.              (entmod ssn)
    
23.              (setq n (1+ n))
    
24.            )
    
25.     )
    
26.   )
    
27. ;;;找出随层符合颜色的对象
    
28.   (setq tc (tblnext "layer" "0"))
    
29.   (while (/= tc nil)
    
30.     (if        (equal cor (assoc 62 tc))
    
31.       (progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))
    
32.              (if (/= ss1 nil)
    
33.                (progn (setq m 0)
    
34.                       (while (< m (sslength ss1))
    
35.                         (setq ssm (entget (ssname ss1 m)))
    
36.                         (setq pd (assoc 62 ssm))
    
37.                         (if (= pd nil)
    
38.                           (progn (setq ssm (append ssm '((60 . 1)))) ;
    
39.                                  (setq ssm (cons '(60 . 1) ssm))
    
40.                                  (entmod ssm)
    
41.                           )
    
42.                         )
    
43.                         (setq m (1+ m))
    
44.                       )
    
45.                )
    
46.              )
    
47.       )
    
48.     )
    
49.     (setq tc (tblnext "layer"))
    
50.   )
    
51.   (command "undo" "e")
    
52.   (princ)
    
53. )

(defun c:test (/ ss ssn n cor m ss1 pd ssm)<br />   (princ "\n请选择需要隐藏的颜色:")<br />   (setq ss (nth 0 (entsel)))<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色<br />   (if (= cor nil)<br />     (progn (setq tc (cdr (assoc 8 (entget ss))))<br />            (setq tc (tblsearch "layer" tc))<br />            (setq cor (assoc 62 tc))<br />     )<br />   )<br /> ;;;找出不是随层符合颜色的对象<br />   (setq ss (ssget "x" (list cor)))<br />   (if (/= ss nil)<br />     (progn (setq n 0)<br />            (while (< n (sslength ss))<br />              (setq ssn (ssname ss n))<br />              (setq ssn (entget ssn))<br />              (setq ssn (append ssn '((60 . 1))))<br />              (entmod ssn)<br />              (setq n (1+ n))<br />            )<br />     )<br />   )<br /> ;;;找出随层符合颜色的对象<br />   (setq tc (tblnext "layer" "0"))<br />   (while (/= tc nil)<br />     (if        (equal cor (assoc 62 tc))<br />       (progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))<br />              (if (/= ss1 nil)<br />                (progn (setq m 0)<br />                       (while (< m (sslength ss1))<br />                         (setq ssm (entget (ssname ss1 m)))<br />                         (setq pd (assoc 62 ssm))<br />                         (if (= pd nil)<br />                           (progn (setq ssm (append ssm '((60 . 1)))) ;<br />                                  (setq ssm (cons '(60 . 1) ssm))<br />                                  (entmod ssm)<br />                           )<br />                         )<br />                         (setq m (1+ m))<br />                       )<br />                )<br />              )<br />       )<br />     )<br />     (setq tc (tblnext "layer"))<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )

434939575

2. (defun  c:tt()
   
3. (setq lay (cdr(assoc 8(entget(car(entsel"点取图层"))))))
   
4.   (setq ss_x (ssget"x" (list (cons 8 lay))))
   
5.   (sssetfirst  nil ss_x)
   
6. 
   
7.   )

(defun  c:tt()<br /> (setq lay (cdr(assoc 8(entget(car(entsel"点取图层"))))))<br />   (setq ss_x (ssget"x" (list (cons 8 lay))))<br />   (sssetfirst  nil ss_x)<br /> <br />   )

言社长

434939575 发表于 2015-12-20 19:33

你好，可能我没表达清楚，我的原代码是隐藏相同颜色的图元，我想改成夹显相同颜色的图元。我搞不懂sssetfirst后面要跟哪个量才是正确。
你的代码是夹显相同图层，可能不是我想要的

434939575

言社长 发表于 2015-12-20 19:42
你好，可能我没表达清楚，我的原代码是隐藏相同颜色的图元，我想改成夹显相同颜色的图元。我搞不懂sssetf ...

后面跟选择集

xiaolong1487

2. (defun c:ts (/ co en en1 ent n ss ss1 tc)
   
3.   (if (setq ent (entsel "\n请选择需要隐藏的颜色:"))
   
4.                 (progn
   
5.                         (setq en (car ent))
   
6.                         ;;颜色如果随层,按图层颜色
   
7.                         (if (not (setq co (assoc 62 (entget en))))
   
8.                                 (progn
   
9.                                         (setq tc (cdr (assoc 8 (entget en))))
   
10.                                         (setq tc (tblsearch "layer" tc))
    
11.                                         (setq co (assoc 62 tc))
    
12.                                 )
    
13.                         )
    
14.                         ;;找出不是随层符合颜色的对象
    
15.                         (if (null (setq ss (ssget "x" (list co))))
    
16.                                 (setq ss (ssadd))
    
17.                         )
    
18.                         ;;找出随层符合颜色的对象
    
19.                         (setq tc (tblnext "layer" "0"))
    
20.                         (while tc
    
21.                                 (if (equal co (assoc 62 tc))
    
22.                                         (progn
    
23.                                                 (if (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))
    
24.                                                         (repeat (setq n (sslength ss1))
    
25.                                                                 (setq en1 (ssname ss1 (setq n (1- n))))
    
26.                                                                 (if (not (assoc 62 (entget en1)))
    
27.                                                                         (ssadd en1 ss)
    
28.                                                                 )
    
29.                                                         )
    
30.                                                 )
    
31.                                         )
    
32.                                 )
    
33.                                 (setq tc (tblnext "layer"))
    
34.                         )
    
35.                         (sssetfirst nil ss)
    
36.                 )
    
37.         )
    
38.         (princ)
    
39. )

(defun c:ts (/ co en en1 ent n ss ss1 tc)<br />   (if (setq ent (entsel "\n请选择需要隐藏的颜色:"))<br />                 (progn<br />                         (setq en (car ent))<br />                         ;;颜色如果随层,按图层颜色<br />                         (if (not (setq co (assoc 62 (entget en))))<br />                                 (progn<br />                                         (setq tc (cdr (assoc 8 (entget en))))<br />                                         (setq tc (tblsearch "layer" tc))<br />                                         (setq co (assoc 62 tc))<br />                                 )<br />                         )<br />                         ;;找出不是随层符合颜色的对象<br />                         (if (null (setq ss (ssget "x" (list co))))<br />                                 (setq ss (ssadd))<br />                         )<br />                         ;;找出随层符合颜色的对象<br />                         (setq tc (tblnext "layer" "0"))<br />                         (while tc<br />                                 (if (equal co (assoc 62 tc))<br />                                         (progn<br />                                                 (if (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))<br />                                                         (repeat (setq n (sslength ss1))<br />                                                                 (setq en1 (ssname ss1 (setq n (1- n))))<br />                                                                 (if (not (assoc 62 (entget en1)))<br />                                                                         (ssadd en1 ss)<br />                                                                 )<br />                                                         )<br />                                                 )<br />                                         )<br />                                 )<br />                                 (setq tc (tblnext "layer"))<br />                         )<br />                         (sssetfirst nil ss)<br />                 )<br />         )<br />         (princ)<br /> )

我改改试试

llsheng_73

1. (defun c:ts(/ e co la);;亮显全图中与所拾取图元颜色一样的图元(所有正常显示图层)
   
2.   (While(SetQ e(TblNext "layer"(not la)))(SetQ la(Cons(mapcar'(lambda(x)(assoc x e))'(2 62))la)))
   
3.   (if(setq e(car(entsel"拾取要亮显的颜色")))
   
4.     (sssetfirst'nil(setq e(entget e)
   
5.                          co(assoc 62 e)
   
6.                          co(if co co(assoc 62(tblsearch"layer"(cdr(assoc 8 e)))))
   
7.                          e(ssget"X"(list'(-4 . "<or")co
   
8.      '(-4 . "<and")'(62 . 256)
   
9.      (cons 8(apply'strcat(mapcar'(lambda(x)(if(member co x)(strcat","(cdar x))""))la)))
   
10.      '(-4 . "and>")'(-4 . "or>")))))))

(defun c:ts(/ e co la);;亮显全图中与所拾取图元颜色一样的图元(所有正常显示图层)<br />   (While(SetQ e(TblNext "layer"(not la)))(SetQ la(Cons(mapcar'(lambda(x)(assoc x e))'(2 62))la)))<br />   (if(setq e(car(entsel"拾取要亮显的颜色")))<br />     (sssetfirst'nil(setq e(entget e)<br />                          co(assoc 62 e)<br />                          co(if co co(assoc 62(tblsearch"layer"(cdr(assoc 8 e)))))<br />                          e(ssget"X"(list'(-4 . "<or")co<br />      '(-4 . "<and")'(62 . 256)<br />      (cons 8(apply'strcat(mapcar'(lambda(x)(if(member co x)(strcat","(cdar x))""))la)))<br />      '(-4 . "and>")'(-4 . "or>")))))))