;;;Modifies width of a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-17-94
;;;>		   EDITED: 07-07-2005
;;;
(DEFUN C:PLWID (/ plin edpl)
;;;(setq ltgw (ukword 1 "ON OFF" "ltgen ON or OFF " (if ltgw ltgw "ON")))
;;;(if (eq ltgw "ON")
;;;  (setq as70 128)
;;;  (setq as70 0)
;;;);if
  (IF ureal
    NIL
    (LOAD "ureal" "\nFile UREAL.LSP not loaded! ")
  ) ;_ end of IF
  (SETQ nplwid (ureal 1 "" "New Polyline width" nplwid))
  (PROMPT "\nSelect Polyline(s): ")
  (SETQ pset (SSGET '((0 . "POLYLINE"))))
  (IF pset
    (PROGN
      (SETQ psln (SSLENGTH pset))
      (SETQ cntr 0)
    ) ;_ end of progn
  ) ;_ end of if
  (WHILE
    (IF	(AND (< cntr psln) pset)
      (SETQ pent (ENTGET (SSNAME pset cntr)))
    )					;if
     (COMMAND ".pedit" (SSNAME pset cntr) "w" nplwid "")
     (PROGN
       (SETQ edpl (ENTGET (CDAR pent)))
       (IF (EQ (CDR (ASSOC 0 edpl)) "POLYLINE")
	 (PROGN
	   (SETQ edpl
		  (SUBST (CONS 40 nplwid)
			 (ASSOC 40 edpl)
			 edpl
		  ) ;_ end of subst
	   ) ;_ end of setq
	   (SETQ edpl
		  (SUBST (CONS 41 nplwid)
			 (ASSOC 41 edpl)
			 edpl
		  ) ;_ end of subst
	   ) ;_ end of setq
	   (ENTMOD edpl)
	 ) ;_ end of progn
       ) ;_ end of if
       (SETQ cntr (1+ cntr))
     ) ;_ end of progn
  ) ;_ end of while
)					;DEFUN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;