;Title - Erin Stephens Lisp Page
;Lisp Page from Internet - Internet Worldwide Communications
(defun PWIDTH (width / ss cnt ce)
  (setq cnt -1 ce (getvar "CMDECHO"))
  (if (setq ss (ssget "X" '((0 . "POLYLINE"))))
    (while (< (setq cnt (1+ cnt)) (sslength ss))
      (command "._PEDIT" (ssname ss cnt) "_W" width "_X")
    )
    (princ "\nThere are no Polylines in the drawing!\n")
  )
  (setvar "CMDECHO" ce)
)