(defun c:TuttoSu0 ()
	(setvar "CMDECHO" 0)
        (setq n-p(tblnext "layer" 0))
        (setq l-piano nil)
        (while n-p
                (if n-p		(progn
                                (setq nome-piano(cdr (assoc 2 n-p)))
                                (setq colore-piano(cdr (assoc 62 n-p)))
                                (setq tipolinea-piano(cdr (assoc 6 n-p)))
				
                                (setq l-piano(cons (list nome-piano colore-piano tipolinea-piano) l-piano))
                                )
                )
                (setq n-p(tblnext "layer"))
        )

;;;	(princ "\n Seleziona gli oggetti... ")
;;;	(setq gruppoide(ssget))
	(setq gruppoide(ssget "x"))
	(setq i 0)
	(if gruppoide (progn
		(repeat (sslength gruppoide)
			(setq layer(cdr(assoc 8 (entget (ssname gruppoide i)))))
			(command "_change" (ssname gruppoide i) "" "_p" "_La" "0" "")
		  (if (not (cdr(assoc 6 (entget (ssname gruppoide i)))))
			(command "_change" (ssname gruppoide i) "" "_p" "T" (caddr (assoc layer l-piano)) "")
		  )
		  (if (not (cdr(assoc 62 (entget (ssname gruppoide i)))))
			(command "_change" (ssname gruppoide i) "" "_p" "_C" (cadr (assoc layer l-piano)) "")
		  )
		(setq i(1+ i))
		)
	))
	(princ "\n Lavoro eseguito!")
	(princ)

)
;;;---------------------------------------------------------------------
(princ "\n <copyright: ing. Claudio Granuzzo>")
(princ "\n Digitare Tuttosu0 per lanciare il programma!")
(princ)