[求助]：VL求助—书中例题不能运行？

nuance

；关于vla-close的例题
(defun c:test ()
   (vl-load-com)
   (setq acadobject (vlax-get-acad-object))
   (setq acaddocument (vla-get-activedocument acadobject))
   (setq mspace (vla-get-modelspace acaddocument))

   (setq documentsel (vla-get-documents acadobject))
   (setq number (vla-get-count documentsel))

   (if (= 0 number)
      (progn (princ "no file is open") (vl-exit-with-value 0))
   )

   (vlax-for document documentsel
      (princ (strcat "files closed:" (vla-get-fullname document)))
      (setq util (vla-get-utility acaddocument))
      (vla-initializeuserinput util 128 "yes no")
      (setq ck (vla-getkeyword util "please input yes or no:"))
      (if (= ck "yes")
         (if (/= (vla-get-fullname document) "")
            (vla-close document)
            (princ (strcat "\n" (vla-get-fullname document) "file not been saved,so will not been closed"))
         )
      )
      (princ "\n")
   )
   (princ)
)