Layers

[alanjt]

Try using this:

(defun c:test (/) (All2Layer (getstring t "\nSpecify layer name: ")) (princ))

[alanjt]

I'm heading home, but I'm sure I'll be on later.

[Nick-H-]

Ah its doing it now, I didn't know you had to include the brackets ( )

[alanjt]

Ah its doing it now, I didn't know you had to include the brackets ( )

For subroutines you do.

Glad you got it to work. Does it yield the results you wanted?

[dbroada]

I assume alan's routine moves EVERYTHING to a particular layer which is what I think you asked for. However if you just want a quick way to reduce the number of layers you should be able to select everything and use the properties palette to set them all on one layer.

 

As pointed out before this may leave block sub entities on their own layer but it may be close enough for what you are doing.

 

I know from your other post selecting all may be problematic so you may want to use QSELECT to move items in groups.