[求助]：一次选择除某层的所有图元怎么办呢？？

zhengguoyun

我想先对某层的图元处理，然后对除去这层的所有图元处理，如何一次选择除某层的所有图元呢？？

gucci218

(command "erase" (ssget "x" '((8 . "图层名称"))) "")

Underway

(ssget "x" '((8 . "图层名称")))
(ssget "x" '((8 . "~图层名称")))

zhengguoyun

你理解错了， 我不是要删除，而是要对除这层外的图元处理，不能删除的

qjcpj

2. 
   
3. ;;;一个苯办法,假如某层名为"THICK",
   
4. ;;;变量s3为除"THICK"层以外所有图层的选择集
   
5. (defun c:test        (/ lay_name s1 s2 n ent)
   
6.   (setq lay_name "THICK")
   
7.   (setq s1 (ssget "X" (list (cons 8 lay_name))))
   
8.   (setq s2 (ssget "X"))
   
9.   (if s1
   
10.     (progn
    
11.       (setq s3 (ssadd)
    
12.                  n   0
    
13.       )
    
14.       (repeat (sslength s2)
    
15.         (setq ent (ssname s2 n))
    
16.         (if (not (ssmemb ent s1))
    
17.           (ssadd ent s3)
    
18.         )
    
19.         (setq n (1+ n))
    
20.       )
    
21.     )
    
22.   )
    
23.   nil
    
24. )
    

<br /> ;;;一个苯办法,假如某层名为"THICK",<br /> ;;;变量s3为除"THICK"层以外所有图层的选择集<br /> (defun c:test        (/ lay_name s1 s2 n ent)<br />   (setq lay_name "THICK")<br />   (setq s1 (ssget "X" (list (cons 8 lay_name))))<br />   (setq s2 (ssget "X"))<br />   (if s1<br />     (progn<br />       (setq s3 (ssadd)<br />                  n   0<br />       )<br />       (repeat (sslength s2)<br />         (setq ent (ssname s2 n))<br />         (if (not (ssmemb ent s1))<br />           (ssadd ent s3)<br />         )<br />         (setq n (1+ n))<br />       )<br />     )<br />   )<br />   nil<br /> )<br />

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        s1  (car (entsel "\n选择物体 : "))
   
4.         la  (cdr (assoc 8 (entget s1)))
   
5.         ss1 (ssget "X")
   
6.         ss2 (ssget "X" (list (cons 8 la)))
   
7.         ss3 (ssget "X" (list (cons 0 "VIEWPORT")))
   
8.   )
   
9.   (command "select" ss1 "r" ss2 ss3 "")
   
10.   (setq ss (ssget "P"))
    
11. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        s1  (car (entsel "\n选择物体 : "))<br />         la  (cdr (assoc 8 (entget s1)))<br />         ss1 (ssget "X")<br />         ss2 (ssget "X" (list (cons 8 la)))<br />         ss3 (ssget "X" (list (cons 0 "VIEWPORT")))<br />   )<br />   (command "select" ss1 "r" ss2 ss3 "")<br />   (setq ss (ssget "P"))<br /> )[/FONT]

雨箭风刀

3楼就可以了

qjcpj

是呀,没注意看!
3楼的(setq ss (ssget "x" '((8 . "~THICK"))))一句就能实现我在5楼所写的代码，真是非常简练。