;;; ;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; COPYRIGHT: ;;; EDITED: ;;; (DEFUN C:SELAYLIST () (SETQ this_ss (SSGET)) (SETQ this_len (SSLENGTH this_ss) cnt 0 ) (SETQ this_laylist NIL) (WHILE (< cnt this_len) (SETQ this_item (ENTGET (SSNAME this_ss cnt))) (IF (MEMBER (CDR (ASSOC 8 this_item)) this_laylist) NIL (SETQ this_laylist (APPEND this_laylist (LIST (CDR (ASSOC 8 this_item))))) ) (SETQ cnt (1+ cnt)) ) (FOREACH n this_laylist (PRINC "\n")(PRINC n)(PRINC)) (PRINC) )