【几乎解决】求可以选中多个图层所有元素的插件

不来白不来

比如在图纸中选中两个两条线a,b，分别位于A,B图层；
执行命令；
自动选中A,B图层所有元素。
找了好几个插件，都没有这样的功能。

-------------------------------------------------------
在外网找到了一个，输入命令sellay或是sellays，然后单选或多选元素，确定，然后就会自动将已选中的元素所在图层的所有元素全部选中。
但是有一个问题，比如我在0图层新建了一个块A，把它移到1图层，用这个命令的话选中的是0图层的所有元素（理应选择图块A所在的1图层）。求解决

2. ;(C) 2008 CAD Studio -
   
3. ;select objects on a picked layer(s)
   
4. 
   
5. (defun C:SELLAY ( / e ss i)
   
6. (setq i (ssget "_I"))
   
7. (setq e (nentsel "Select entity on a layer: "))
   
8. (if e (setq ss (ssget (if i "_I" "_X") (list(cons 8 (cdr (assoc 8 (entget (car e)))))))))
   
9. (if (zerop (getvar "CMDACTIVE"))
   
10.   (progn (sssetfirst ss ss)(princ "Use 'P' for this selection set: ")(princ))
    
11.    ss
    
12. )
    
13. )
    
14. 
    
15. (defun C:SELLAYS ( / e lay ss layl i)
    
16. (setq i (ssget "_I"))
    
17. (setq layl ""  ss (ssadd))
    
18. (while (setq e (nentsel "\nSelect entity on a layer <exit>: "))
    
19.   (setq layl (strcat layl "," (cdr (assoc 8 (entget (car e))))))
    
20.   (princ (substr layl 2))
    
21. );while
    
22. (setq layl (substr layl 2))
    
23. (if (> layl "") (setq ss (ssget (if i "_I" "_X") (list (cons 8 layl)))))
    
24. (if (zerop (getvar "CMDACTIVE"))
    
25.   (progn (sssetfirst ss ss)(princ "Use 'P' for this selection set: ")(princ))
    
26.    ss
    
27. )
    
28. )
    
29. 
    
30. (princ "\nXanadu SELLAY + SELLAYS commands loaded.")(princ)

;(C) 2008 CAD Studio - <br /> ;select objects on a picked layer(s)<br /> <br /> (defun C:SELLAY ( / e ss i)<br /> (setq i (ssget "_I"))<br /> (setq e (nentsel "Select entity on a layer: "))<br /> (if e (setq ss (ssget (if i "_I" "_X") (list(cons 8 (cdr (assoc 8 (entget (car e)))))))))<br /> (if (zerop (getvar "CMDACTIVE"))<br />   (progn (sssetfirst ss ss)(princ "Use 'P' for this selection set: ")(princ))<br />    ss<br /> )<br /> )<br /> <br /> (defun C:SELLAYS ( / e lay ss layl i)<br /> (setq i (ssget "_I"))<br /> (setq layl ""  ss (ssadd))<br /> (while (setq e (nentsel "\nSelect entity on a layer <exit>: "))<br />   (setq layl (strcat layl "," (cdr (assoc 8 (entget (car e))))))<br />   (princ (substr layl 2))<br /> );while<br /> (setq layl (substr layl 2))<br /> (if (> layl "") (setq ss (ssget (if i "_I" "_X") (list (cons 8 layl)))))<br /> (if (zerop (getvar "CMDACTIVE"))<br />   (progn (sssetfirst ss ss)(princ "Use 'P' for this selection set: ")(princ))<br />    ss<br /> )<br /> )<br /> <br /> (princ "\nXanadu SELLAY + SELLAYS commands loaded.")(princ)

居然被我找到一个更好用的，见三楼，命令是sel。

xy524426071

顶一下  不错，可以快速选择多个图层

davide888

不错，可以快速选择多个图层

mpk023

这个历害，感谢分享~~~~~

不来白不来

在选中的时候不能显示成虚线，不能框选，求高手完善

不来白不来

我去，居然被我找到另一个更好的脚本

2. (defun c:sel (/ ss i layer lst)
   
3.   (if (setq ss (ssget))
   
4.     (progn
   
5.       (repeat (setq i (sslength ss))
   
6.         (if (not (member (setq layer (cdr (assoc 8 (entget (ssname ss (setq i (1- i))))))) lst))
   
7.           (setq lst (cons "," (cons layer lst)))
   
8.         )
   
9.       )
   
10.       (sssetfirst nil (ssget "_A" (list (cons 8 (apply 'strcat (cdr lst))))))
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )

(defun c:sel (/ ss i layer lst)<br />   (if (setq ss (ssget))<br />     (progn<br />       (repeat (setq i (sslength ss))<br />         (if (not (member (setq layer (cdr (assoc 8 (entget (ssname ss (setq i (1- i))))))) lst))<br />           (setq lst (cons "," (cons layer lst)))<br />         )<br />       )<br />       (sssetfirst nil (ssget "_A" (list (cons 8 (apply 'strcat (cdr lst))))))<br />     )<br />   )<br />   (princ)<br /> )

eversky

不来白不来 发表于 2014-12-12 15:38
我去，居然被我找到另一个更好的脚本

非常感谢，也正是我非常想要的，以前一直用快速选择！！！

jun07210

这尼玛不顶不行啊！太感谢了。

尒樣僮

好东西 学习下

onandoff

好东西 学习下

332319857

好东西 学习下

yoyoho

感谢分享学习!!!!