快速备份图纸到指定目录

zmzk

yangchao2005090

xvjiex 发表于 2020-7-17 12:49
感谢您的采纳！如果不需要选择备份目录，以下文档加载就自动执行，命令也不用输入。如果中途还要备份，可以 ...

可否在文件原始的目录下备份呀，也就是备份文件跟原始文件在一个文件夹下面，不用选择目录或者指定目录

yangchao2005090

1291500406 发表于 2020-7-17 08:38
;;楼上下载怎么还收币？
;;而且要的是一步bak命令即可，无需画蛇添足 默认路径、指定路径

可否在文件原始的目录下备份呀，也就是备份文件跟原始文件在一个文件夹下面，不用选择目录或者指定目录

xvjiex

yangchao2005090 发表于 2020-7-18 07:52
可否在文件原始的目录下备份呀，也就是备份文件跟原始文件在一个文件夹下面，不用选择目录或者指定目录

(defun c:bak nil
  (cond
    ((= 1 (getvar 'DWGTITLED))
     
     (vl-file-copy
       (strcat (getvar 'DWGPREFIX) (getvar 'DWGNAME))
       (strcat (getvar 'DWGPREFIX)
               
               (cadr (fnsplitl (getvar 'DWGNAME)))
               (menucmd "m=$(edtime,$(getvar,DATE), YYYY-MO-DD HH-MM)")
               ".dwg"
       )
     )
     (princ "\n-->备份完成")
    )
    ((princ "\n-->没有保存"))
  )
  (princ)
)
这个就在原目录备份

siguenguen

能不能加个固定时间自动保存？不然的话，跟Ctlr+S一样吧！！

shenhung

我是依操作的命令數 備份存檔.~不是時間.~如果沒工作..就不會備份..這樣比較合理.~

shenhung

刘炎华  過幾天吧.整理好.我放上來.!!