;;;Make a selection set of entities on *NPLT* layers. (junk?)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 08-18-1999
;;;
(defun c:clplt (/)
;  (setq sss (ssget "x" '((0 . "SOLID")))
;        count 0
;        sslen (sslength sss)
;  )
;  (while
;    (not(eq count sslen))
;    (setq sent (entget(ssname count sss)))
;    (if 
(command (c:ssx) "la" "*nplt*" "" "")
);defun