zmzk 发表于 2020-7-18 06:29:40

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
刘炎华過幾天吧.整理好.我放上來.!!

:lol求分享程序
页: 1 [2]
查看完整版本: 快速备份图纸到指定目录