;;;Modifies thickness of a selection set of entities.
;;;	The only input
;;;       required is the selection of the entities to modify.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-4-97
;;;>		   EDITED: 08-04-1997
;;;
(DEFUN C:PLTHK ( / plin edpl)
  (setq nplthk (ureal 1 "" "New Thickness" nplthk))
  (prompt "\nSelect Entities(s): ")
    (setq pset (ssget))
    (if pset
      (progn
        (setq psln (sslength pset))
        (setq cntr 0)
      )
    )
  (while
    (if (and (< cntr psln) pset)
      (setq pent (entget (ssname pset cntr)))
    );if
    (setq edpl (entget (cdar pent)))
      (progn
        (setq edpl
          (subst (cons 39 nplthk)
                 (assoc 39 edpl)
                 edpl
          ))
;        (setq edpl
;          (subst (cons 41 nplthk)
;                 (assoc 41 edpl)
;                 edpl
;          ))
        (entmod edpl)
      )
    (setq cntr (1+ cntr))
  )
);DEFUN