(defun GetNames (TableName / Data Result)
  (while (setq Data (tblnext TableName (null Data)))
    (setq Result
           (cons
             (cdr (assoc 2 Data))
             Result
           )
    )
  )
)
(defun c:b_render (/ viewlist)
  (setq cur_dir (getvar "dwgprefix"))
  (setq cur_name (substr (getvar "dwgname")
                         1
                         (- (strlen (getvar "dwgname")) 4)
                 )
  )
  (setq viewlist  (GetNames "view"))
  (foreach n
             (reverse ; reverses the list
                      (mapcar 'strcat viewlist)
             )
    (command ".view" "Holen" n)
    (command ".render"
             "m"
             "r"
             "100"
             "71"
             "j"
             (strcat cur_dir cur_name "-" n ".jpeg")
    )
    (princ (strcat "\n" (rtos (length (GetNames "view")) 2 0)
                   "views rendered"
           )
    )
    (princ)
  )
)
(prompt "*Type b-render to Run*")
==============================================
(defun c:raus ( / O_CmdDia O_FileDia)
(setq O_CmdDia (getvar "cmddia"))
(setq O_FileDia (getvar "filedia"))
(setvar "cmddia" 0)
(setvar "filedia" 0)
(if (= (getvar "dbmod") 0)
(command "_close")
(command "_close" "_y")
)
(setvar "cmddia" O_CmdDia)
(setvar "filedia" O_FileDia)
)
(command "_quit")