;;; 							;
;;; moves everything to layer 0				;
;;; changes everything to color 7 = white/black		;
;;; makes a slide					;
;;; saves and closes drawing				;

(vl-load-com)

(defun c:DoIt ()
  (setq All (ssget "X"))
  (setq Lenght (sslength All))
  (setq Index 0)
  (while (/= Index Lenght)
    (setq Element (ssname All Index))
    (setq Index (1+ Index))
    (setq ElementData (entget Element))
    (setq CurrentColor (assoc 62 ElementData))
    (setq ElementData (subst (cons 62 256) (assoc 62 ElementData) ElementData))
    (setq CurrentLayer (assoc 8 ElementData))
    (setq ElementData (subst (cons 8 "0") (assoc 8 ElementData) ElementData))
    (entmod ElementData)
  ) ;_ end of while
;;;  (command "zoom" "e")
;;;  (command "zoom" ".95X")

  (Command "filedia"
	   "0"
	   "mslide"
	   ""
;;;	   ""
	   "filedia" "1"
  ) ;_ end of Command

  
;;;  (princ)				; close silently               
) ;_ end of defun
;|«Visual LISP© Format Options»
(100 2 40 2 T "end of " 80 9 0 0 nil T T nil T)
;*** DO NOT add text below the comment! ***|;