;;;Display all layers containing specified block inserts.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
(DEFUN C:INSLAY	()
  (SETQ	BLKNAME	(USTR 1
		      "Block name?"
		      (IF blkname
			blkname
			""
		      ) ;_ end of if
		      nil
		) ;_ end of USTR
  ) ;_ end of SETQ
  (SETQ blkss (SSGET "x" (LIST (CONS 2 blkname))))
  (IF blkss
    (PROGN
      (SETQ blksslen (SSLENGTH blkss))
      (SETQ count 1)
      (SETQ entlst (LIST (SSNAME blkss 0)))
      (WHILE (< count blksslen)
	(SETQ entlst (APPEND entlst (LIST (SSNAME blkss count))))
	(SETQ count (1+ count))
      ) ;_ end of while
      (SETQ lalst nil)
      (FOREACH N ENTLST
	(IF LALST
	  (IF (MEMBER (CDR (ASSOC 8 (ENTGET N))) LALST)
	    NIL
	    (SETQ
	      LALST (APPEND LALST (LIST (CDR (ASSOC 8 (ENTGET N)))))
	    ) ;_ end of SETQ
	  ) ;_ end of IF
	  (SETQ LALST (LIST (CDR (ASSOC 8 (ENTGET N)))))
	) ;_ end of IF
      ) ;_ end of FOREACH
      (PRINC (STRCAT "\nBlock "
		     blkname
		     " has inserts on the following layers:"
	     ) ;_ end of strcat
      ) ;_ end of princ
      (FOREACH n lalst
	(PRINC "\n")
	(PRINC n)
      ) ;_ end of foreach
    ) ;_ end of progn
    (PRINC (STRCAT "\nBlock " blkname " has no inserts. "))
  ) ;_ end of if
  (PRINC)
) ;_ end of DEFUN

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;