does anyone see anything wrong with the code below?
when i open any dwg after saving it, it prompts for dwg recovery.
If i disable this and run the OOTB save, I do not get the recovery prompt.
This code has never been an issue till now.
(defun c:nsave (/ activedoc docfullname backuppath archivename dwgbakk)
(if (= (getvar "dwgtitled") 0)
(PROGN
(initdia)
(if (>= (atof (getvar "acadver")) 20.0)
(command-S ".saveas")
(command ".saveas")
)
)
)
(setq activedoc (vla-get-activedocument (vlax-get-acad-object)))
;;
(vla-save activedoc)
(if (and (not (= 0 (strlen (setq docfullname (vla-get-fullname activedoc)))))
(setq backuppath "C:\\ACADBACK\\")
(setq archivename (strcat backuppath (vl-filename-base (vla-get-name activedoc))".dwg"))
)
(setq dwgbakk (vl-file-copy docfullname archivename))
(alert "Ooooops. Unable to get Filename.")
)
(if (= dwgbakk nil)
(progn
(vl-file-delete archivename)
(vl-file-copy docfullname archivename)
)
)
(prompt (strcat "\n\nFile Saved..." archivename ))
(prompt (strcat "\n\nFile Saved..." docfullname))
(princ)
)