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

669423907 · 发表于 2013-5-19 20:03:37

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

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

Gu_xl · 发表于 2013-5-19 20:19:15

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

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

Gu_xl · 发表于 2013-5-19 20:23:09

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

已修改！

669423907 · 发表于 2013-5-19 20:25:17

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

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

theisland · 发表于 2013-5-19 20:59:17

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

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

maiko · 发表于 2013-5-20 08:09:19

(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 · 发表于 2013-5-20 08:38:02

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

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

长风（尚品） · 发表于 2013-5-20 08:55:03

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

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

Gu_xl · 发表于 2013-5-20 12:48:28

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

c:tt1 结尾少了个括号！

长风（尚品） · 发表于 2013-5-20 14:08:16

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

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

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

[已解答] 请问有没有快速备份图纸的的程序呢？