请问有没有快速备份图纸的的程序呢？

669423907

theisland 发表于 2013-5-19 18:52
Gu_xl 您好！谢谢你帮我解决了个大麻烦！文件备份已经ok了，但是文件夹没有随后打开？

(vlax-invoke (vlax-create-object"Shell.Application")
'open "E:\\??\\??\\备份目录")
只能打开指定路径的

Gu_xl

669423907 发表于 2013-5-19 20:03
(vlax-invoke (vlax-create-object"Shell.Application")
'open "E:\\??\\??\\备份目录")
只能打开指定路 ...

此函数要逐层创建目录才行！

Gu_xl

theisland 发表于 2013-5-19 18:52
Gu_xl 您好！谢谢你帮我解决了个大麻烦！文件备份已经ok了，但是文件夹没有随后打开？

已修改！

669423907

Gu_xl 发表于 2013-5-19 20:19
此函数要逐层创建目录才行！

其实我是不懂的，是我在本论坛收集的

theisland

Gu_xl 发表于 2013-5-19 20:23
已修改！

no function definition: GXL-FILE-CREATEFOLDER，实在不忍心再打搅您了

maiko

(defun c:bak nil
  (cond
    ((= 1 (getvar 'DWGTITLED))
     (vl-mkdir (strcat (getvar 'DWGPREFIX) "备份"))
     (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)
)

theisland

maiko 发表于 2013-5-20 08:09
(defun c:bak nil
  (cond
    ((= 1 (getvar 'DWGTITLED))

几乎是在线等了两天，感谢您的回复，备份完后打开文件夹还是没有解决

长风（尚品）

Gu_xl 发表于 2013-5-19 16:22
**** 本内容被作者隐藏 ****

错误: 输入的列表有缺陷 是不是那里出问题了

Gu_xl

长风（尚品） 发表于 2013-5-20 08:55
错误: 输入的列表有缺陷 是不是那里出问题了

c:tt1 结尾少了个括号！

长风（尚品）

Gu_xl 发表于 2013-5-20 12:48
c:tt1 结尾少了个括号！

加了括号提示：输入中含有多余的闭括号 ；不加则出现：错误: 参数类型错误: VLA-OBJECT nil