[编程申请]：恳求高效率的lisp和dcl（批量执行命令）

大黄蜂

恳求高效率的lisp和dcl（批量执行命令）
        在cad中执行一个命令后，出现一个对话框，然后指定文件的位置后，选中要批量操作的图纸，以次打开每张图，执行命令purge，_zoom_e,然后关闭。这样就会为电脑省出好多空间，和以后的预览图纸带来极大的方便，希望高手帮忙解决！
        当然，最好能将代码公布，也利于大家以后的学习，在此谢了！

逐月飞鸿

eachy斑竹以前发的一个，你可以看看，好像不能完全满足你的要求
(defun c:zea (/ docs)
  (setq        docs (vla-get-documents (vlax-get-acad-object))
  )
  (vlax-map-collection
    docs
    '(lambda (doc / app)
       (setq app (vla-get-application doc))
       (vla-zoomextents app)
       (vla-save doc)
       (if (/= (getvar "dwgname") (vla-get-name doc))
         (vla-close doc)
       )
     )
  )
  (princ)
)