Topic: Select by Layers

[Dlanor]

Excludes xref-dependent layers 

Thanks Lee,

i thought that might be the case; but knowing is better than assuming, since assumption is the MOAFU. In my 27 yrs working with Autocad i've always been on the production end and have never had to deal with xrefs.   

[ahsattarian]

Written in a simple language   :

Code - Auto/Visual Lisp: [Select]

1. (defun c:sslay ()
2.   (defun sub1 () (setq txt (get_tile "lays")))
3.   (setq layerlist nil)
4.   (setq a (tblnext "layer" t))
5.   (while a
6.     (cond
7.       ((/= (logand 16 (cdr (assoc 70 a))) 16) ;|  remove xref layer  |;
8.        (setq nam (cdr (assoc 2 a)))
9.        (setq layerlist (cons nam layerlist))
10.       )
11.     )
12.     (setq a (tblnext "layer"))
13.   )
14.   (setq layerlist (acad_strlsort layerlist)) ;|  #sort  |;
15.   (setq f (vl-filename-mktemp "" "" ".dcl"))
16.   (setq ff (open f "w"))
17.   (write-line
18.     "list_select:dialog{label=\"Select objects on Layers\";:column{:row{:boxed_column{
19. :list_box{label=\"Select layers :\";key=\"lays\";allow_accept=true;height=30;width=15;multiple_select=true;fixed_width_font=false;value=\"0\";}}}
20. :row{:boxed_row{:button{key=\"accept\";label=\"Okay\";is_default=true;}:button{key=\"cancel\";label=\"Cancel\";is_default=false;is_cancel=true;}}}}}"
21.     ff
22.   )
23.   (close ff)
24.   (setq dcl_id (load_dialog f))
25.   (new_dialog "list_select" dcl_id)
26.   (start_list "lays" 3)
27.   (mapcar 'add_list layerlist)
28.   (end_list)
29.   (action_tile "cancel" "(setq ddiag 1)(done_dialog)")
30.   (action_tile "accept" "(setq ddiag 2)(sub1)(done_dialog)")
31.   (start_dialog)
32.   (unload_dialog dcl_id)
33.   (cond
34.     ((= ddiag 1) (exit))
35.     ((= ddiag 2)
36.      (setq li1 (splitstr txt " "))
37.      (setq li2 nil)
38.      (foreach a li1 (setq li2 (append li2 (list (nth (atoi a) layerlist)))))
39.      (print li2)
40.      (setq filter "")
41.      (foreach a li2 (setq filter (strcat filter a ",")))
42.      (setq ss (ssget (list (cons 8 filter))))
43.      (cond (ss (sssetfirst nil ss)))
44.     )
45.   )
46.   (princ)
47. )