(defun c:wpoli ()
(princ "\n Seleziona le poly... ")
(setq GruppoPoly(ssget (list (cons -4 "<OR")(cons 0 "POLYLINE")(cons 0 "LWPOLYLINE")(cons 0 "LINE")(cons -4 "OR>"))))
(if GruppoPoly (progn
(setq w(getreal "\n Spessore: "))
(if w (progn
(setq i 0)
(repeat (sslength GruppoPoly)
	(setq nome(ssname GruppoPoly i))
        (setq ent(entget nome))
	(if (= (cdr(assoc 0 ent)) "LINE")(command "_pedit" nome "_y" "_w" (eval w) ""))
	(if (or (= (cdr(assoc 0 ent)) "POLYLINE")(= (cdr(assoc 0 ent)) "LWPOLYLINE"))(command "_pedit" nome "_w" (eval w) ""))
  	(setq i(1+ i))
)
(princ "\n OK.")(princ)
))
))
)
(princ "\n <Copyright: ing. Claudio Granuzzo> Digitare WPOLI per lanciare il programma!")
(princ)