[编程交流] AutoLISP脚本在旧版本上工作

(defun C:PDFPUBLISH()
(command "ctab" "model")
(command "_autoPUBLISH" "")
(setq acadObject (vlax-get-acad-object)) 
(setq acadDocument (vla-get-ActiveDocument acadObject))
(setq dProps (vlax-get-Property acadDocument 'SummaryInfo))
(vla-GetCustomByKey dProps "project" 'project)
(vla-GetCustomByKey dProps "revision" 'revisionnumber)
(command "ctab" "model")
(setq time (rtos (getvar "CDATE") 2 6))
(setq yr (substr time 1 4))
(setq mo (substr time 5 2))
(setq dy (substr time 7 2))
(setq hr (substr time 10 2))
(setq mn (substr time 12 2))
(setq sc (substr time 14 2))
(setq dwgname (GETVAR "dwgname"))
(setq len (strlen dwgname))
(setq dwgname (substr dwgname 1 (- len 4)))
(setq oldpdfname (strcat (getvar "dwgprefix") "DWF and PDF\" dwgname ".pdf"))
(setq newpdfname (strcat (getvar "dwgprefix") "DWF and PDF\" project " - rev" revisionnumber " - " yr "-" mo "-" dy "@" hr "." mn "." sc ".pdf"))
(vl-file-rename oldpdfname newpdfname)
(princ)
) ;End defun PDFPUBLISH

(defun c:pdfpublish ( / sum old pro pth rev )
   (setvar 'ctab "Model")
   (setq sum (vla-get-summaryinfo (vla-get-activedocument (vlax-get-acad-object))))
   (if
       (and
           (setq pro (getcustombykey sum "project"))
           (setq rev (getcustombykey sum "revision"))
       )
       (progn
           (vl-mkdir (setq pth (strcat (getvar 'dwgprefix) "DWF and PDF")))
           (command "_.autopublish" "_L" pth)
           (if (findfile (setq old (strcat pth "\" (vl-filename-base (getvar 'dwgname)) ".pdf")))
               (vl-file-rename old (strcat pth "\" pro " - rev" rev " - " (menucmd "m=$(edtime,$(getvar,date),yyyy-mo-dd@hh.mm.ss)") ".pdf"))
               (princ (strcat "\nFile "" old "" not found."))
           )
       )
       (princ "\nCustom properties not found.")
   )
   (princ)
)
(defun getcustombykey ( sum key / rtn )
   (vl-catch-all-apply 'vla-getcustombykey (list sum key 'rtn))
   rtn
)
(vl-load-com) (princ)