CAD Forum ► EN ► AutoCAD ► Select All on a certain layer.
Show full version of the posting: Select All on a certain layer.
/* Style Definitions */
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
font-family:"Times New Roman";
How do you select everything on one layer?
I want to be able to copy and paste all from one layer into
Do I have to use scripts?
Any help would be much appreciated.
Use the LAYISO command to isolate the layer. Then you can easily window select everything and copy. Then just LAYUNISO to unisolate everything.Depending on your version of Autocad, these commands may or may not be Express Tools.
Cad64 has got you on the right track. Depending on the version of AutoCAD you have after using LAYISO use COPYTOLAYER.
If you don´t want to isolate layers and to keep seeing everyting then you can use the command ´Filter´. You can select the layer of what you want to select everything there.
try quick select, another way to select entities.
how filter work... can you elaborate the procedure?
You would find the following lisp useful: 1st: Run "LF" (layer filter) command 2nd: Select command to perform (Erase, Copy, Move, Rotate, Scale or Mirror). 3rd. Select one or more objects on drawing as sample to get the layers. Finally, make your selection. Only object on choosen layers from the sample objects are selected. The command Erase, Copy or etc. would perform on the last selection.(defun C:LF (/ ob obl la ss1 ss fil lalist i le cm) (initget "Erase Copy Move Rotate Scale Mirror") (setq cm (getkword "Erase Copy Move Rotate Scale Mirror: ")) (prompt (strcat "Select sample objects in seclected layer to perform command " cm "\n")) (setq ss1 (ssget) le (sslength ss1) i -1 lalist (list)) (repeat le (setq i (1+ i)) (setq ob (ssname ss1 i) obl (entget ob) la (cdr (assoc 8 obl)) ) (setq lalist (uni_app lalist la)) ) (setq fil (list)) (foreach la lalist (setq fil (app fil (cons 8 la))) ) (setq fil (app fil (cons -4 "OR>")) fil (append (list (cons -4 "<OR")) fil) ) (prompt (strcat "Select objects. Objects not in layer " la " will be filter out ...")) (setq ss (ssget fil)) (if (= "Copy" cm)(command cm ss ss1 "" "M") (command cm ss ss1 "")) (princ) );end defun