(DEFUN c:vlfuns () (SETQ atoms-listing (ATOMS-FAMILY 1)) (SETQ vl-stuff nil vla-stuff nil vlax-stuff nil ) ;_ end of setq (SETQ vl-listing (mapcar '(lambda (x) (if (wcmatch (STRCASE x) "VL*") x)) atoms-listing)) (FOREACH n atoms-listing (COND ((AND n (WCMATCH n "VL-*")) (SETQ vl-stuff (APPEND vl-stuff (LIST n))) ) ((AND n (WCMATCH n "VLA-*")) (SETQ vla-stuff (APPEND vla-stuff (LIST n))) ) ((AND n (WCMATCH n "VLAX-*")) (SETQ vlax-stuff (APPEND vlax-stuff (LIST n))) ) ) ;_ end of cond (princ) ) ;_ end of FOREACH (princ) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 nil T nil T) ;*** DO NOT add text below the comment! ***|;