快速备份图纸到指定目录

yangchao2005090 · 发表于 2020-7-18 07:52:24

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

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

yangchao2005090 · 发表于 2020-7-18 07:54:40

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

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

xvjiex · 发表于 2020-7-18 08:37:01

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 · 发表于 2020-7-18 08:37:25

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

shenhung · 发表于 2020-7-19 11:45:40

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

shenhung · 发表于 2020-7-30 13:26:22

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

2548572928 · 发表于 2024-7-7 01:09:31

好东西感谢分享！

woshilj · 发表于 2024-9-25 15:04:33

shenhung 发表于 2020-7-30 13:26
刘炎华過幾天吧.整理好.我放上來.!!

求分享程序

账号		自动登录	找回密码
密码			注册

[源码] 快速备份图纸到指定目录

点评

评分

点评