2/15/2023 0 Comments Autolisp revision table![]() Copies the active drawing to a new Superseded\ ************************ This version does Filename-Date.Timestamp ************************ (defun c:SAV ( / nChkForDirs nChkForFiles cFNCurrVer cPadZero cSubd cSubdFN cSrcFN cSupersedeDir nVarEXPERT nMaxDateStrLen) (setq cSubd "superseded") (setq cSrcFN (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq nMaxDateStrLen 15) (setq nVarEXPERT (getvar "expert")) (setvar "expert" 5) vl-directory-files options (setq nChkForDirs -1 nChkForFiles 1) Make the Filename (setq cFNCurrVer (strcat (car (parse (getvar "dwgname") ".")) "-" (STD-STRING-RIGHT-PAD-CHAR (rtos (getvar "CDATE") 2 6) nMaxDateStrLen "0")) cSubdFN (strcat (getvar "dwgprefix") cSubd "\\" cFNCurrVer ".dwg") ) Save the dwg and copy it. Overwrites the previous version of the active drawing. A sub-folder of the active named "Superseded", e.g. The directory where the active drawing was opened, e.g. Save a CAD file with the name: Filename_ 2. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |