Question

CAD-lisp问题

-1、大神帮帮小弟啦，每次按下“bc”快捷键指令，CAD文档就自动另存为一个新的文件，文件名要后缀当前的时间精确到分。我就是要每隔一段时间就保存一个新的CAD文档。
0、整个保存过程都要自动完成，保存到原有文件夹，不要手动输入文件名啥的，和其他快捷键一样方便。
1、我是cad制图员。
2、需要经常保存文档。
3、但是电脑经常死机。而自动保存的文档非常不靠谱，说好的两分钟保存一次，结果打开自4、动保存的文档发现是好几个小时之前的文件。
5、所以，我想有个快捷键，可以自动另存为一个新的CAD文档，并且文件名后缀当前的日期精确到分钟。
6、我不在乎存文件多了占硬盘空间，有的是硬盘，存再多文件也无所谓。
7、希望大神可以帮忙写个lisp程序。
如果财富值不够可以给钱。

Answer 1

你试一试下面那个程序，看看还有什么需要修改。
(defun c:bc (/ sj fn n)
(setq sj (getvar "cdate")
sj (* 10000 sj)
sj (rtos sj 2 0)
fn (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))
n (strlen fn)
fn (substr fn 1 (- n 4))
fn (strcat fn "-" sj ".dwg")
)
(command "save" fn)
)

追问

nil

提示nil