這里介紹一下我們自己開發(fā)的非常簡單的lisp小程序。主要有以下存儲功能：1.您可以隨時保存CAD文件，并根據(jù)系統(tǒng)時間命名。2.保存后，原始文件不會被替換，因此有助于找到歷史文件，以便可以重復(fù)修改圖紙。

加載lisp插件的方法和命令應(yīng)用

需要的朋友，可以復(fù)制以下網(wǎng)盤鏈接，直接下載,記得該命令快捷鍵是ssss哦

鏈接：

提取碼：50xv

同時也貼上lisp的源程序，對編程有興趣的朋友也可以參考下,保存時間的格式和保存文件的版本都可以修改的。只要將以下代碼復(fù)制到空白txt文件中，文件后綴改為lsp即可加載使用。

;圖紙存為當(dāng)前時間

(defun c:ssss ()

(setq oldpath (getvar "DWGPREFIX")) ;獲取文件路徑

(setq oldname (getvar "dwgname")) ;獲取文件名

(setq oldnamenum (strlen oldname)) ;獲取文件名長度

(if (>= oldnamenum 22) ;判斷字符數(shù)是否大于等于日期文字長度22,大于再判斷是否含日期關(guān)鍵字

(if (and (= (substr oldname (- oldnamenum 6) 1) "-")

(= (substr oldname (- oldnamenum 9) 1) "-")

(= (substr oldname (- oldnamenum 15) 1) "-")

(= (substr oldname (- oldnamenum 18) 1) "-")

) ;判斷圖名中是否已包含時間定義格式中的四個關(guān)鍵字符“-”

(setq oldnamestr (substr oldname 1 (- oldnamenum 23)))

;已用時間命名時，文件名中去除時間和后綴.dwg

(setq oldnamestr (substr oldname 1 (- oldnamenum 4)))

;未用時間命名時，文件名中去除后綴.dwg

) ;第一個if語句結(jié)束

(setq oldnamestr (substr oldname 1 (- oldnamenum 4)))

;字符數(shù)小于22時，肯定未用時間命名時，文件名中去除后綴.dwg

)

(setq date (menucmd "m=$(edtime,$(getvar,DATE),YYYY-MO-DD HH-MM-SS)"))

;以指定格式獲取系統(tǒng)當(dāng)前時間

(setq newname (strcat oldpath oldnamestr date ".dwg"))

;設(shè)置按時間命名的圖名,strcat為合并字符串

(command "saveas" "2004" newname) ;文件按時間做為保存

每個程序為您的工作節(jié)約1分鐘就是我們最大的成功！