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

theisland 发表于 2013-5-19 18:52 static/image/common/back.gif
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 static/image/common/back.gif
(vlax-invoke (vlax-create-object"Shell.Application")
'open "E:\\??\\??\\备份目录")
只能打开指定路 ...

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

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

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

已修改！

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

Gu_xl 发表于 2013-5-19 20:19 static/image/common/back.gif
此函数要逐层创建目录才行！

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

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

Gu_xl 发表于 2013-5-19 20:23 static/image/common/back.gif
已修改！

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 static/image/common/back.gif
(defun c:bak nil
(cond
    ((= 1 (getvar 'DWGTITLED))


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

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

Gu_xl 发表于 2013-5-19 16:22 static/image/common/back.gif
**** 本内容被作者隐藏 ****

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

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

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

c:tt1 结尾少了个括号！

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

Gu_xl 发表于 2013-5-20 12:48 static/image/common/back.gif
c:tt1 结尾少了个括号！

加了括号提示：输入中含有多余的闭括号 ；不加则出现：错误: 参数类型错误: VLA-OBJECT nil
页: 1 [2] 3
查看完整版本: 请问有没有快速备份图纸的的程序呢？