关于另存为新文件

muwind · 发表于 2020-6-21 12:27:37

同事有这样一个需求：
一般我们另存为新文件的的时候，cad窗口打开的图纸就边成了新的名字
比如：我们打开的1.dwg另存为2.dwg文件的时候，1.dwg就关闭了，打开的是2.dwg
现在需求是：另存为2.dwg的时候，我们窗口还是打开的1.dwg，相当于是一个备份？
不知道我说清楚没有

目前我采用两个方式是：
一是对1.dwg执行保存，然后复制1.dwg成2.dwg，
一是执行两次另存为....感觉挺井的

虚心向大家请教下有没别的思路？

gaics · 发表于 2020-6-22 10:49:25

(defun c:bf (/ path file base ext)
(vl-load-com)
(vla-Save (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq path (getvar "DWGPREFIX"))
(setq file (getvar "DWGNAME"))
(setq base (vl-filename-base file))
(setq ext (menucmd "M=$(edtime,$(getvar,date),M-D-hhmmss)"))
(if (vl-file-copy
(strcat path file)
(strcat path base ext ".dwg")
)
(princ (strcat "文件备份为：" base ext ".dwg"))
(princ "文件备份失败！")
)
(princ)
)

G〆h · 发表于 2020-6-21 13:41:20

保存大体可分为文件备份，打开文件后再局部选择并另存，打开文件后再另存（可改格式等）。
新建大体可分为用默认模版新建，用自定义模版新建，用其他文件修改再新存等

tryhi · 发表于 2020-6-21 17:20:50

采用全图写块的方式应该可以

gaics · 发表于 2020-6-22 07:37:33

一个命令搞定，非常简单，非常神速。
vl-file-copy

将一个文件的内容复制或附加到另一个文件

(vl-file-copy source-file destination-file [append])
将一个文件的内容复制或附加到另一个文件。vl-file-copy 函数不会覆盖现有文件，而是将内容附加其后。

参数

source-file

字符串，指定要被复制的文件。如果未指定完整的路径名，vl-file-copy 将在 AutoCAD 启动目录中查找。

destination-file

字符串，指定目标文件。如果未指定完整的路径名，vl-file-copy 将内容写入 AutoCAD 启动目录中。

append

如果指定该参数且其值不为 nil，source-file 将附加到 destination-file （即复制到目标文件的尾部）。

返回值

如果复制成功则返回整数，否则返回 nil。

e2002 · 发表于 2020-6-22 09:50:07

本帖最后由 e2002 于 2020-6-22 09:54 编辑

按方法2，两次saveas就好了。

masterlong · 发表于 2020-6-22 10:00:24

e哥
你这一改
我的不是就显得好蠢
哈哈

muwind · 发表于 2020-6-23 23:03:20

e2002 发表于 2020-6-22 09:50
按方法2，两次saveas就好了。

是的，这个方式我已经在使用，因为没找到更合适的方式

muwind · 发表于 2020-6-23 23:06:22

gaics 发表于 2020-6-22 10:49

谢谢，我目前采用的方式1类似这个，不过没有用vla-save，用的command的qsave命令，其他代码都相似。

hoodpinrh · 发表于 2020-7-18 16:46:28

我最近剛好遇到備份的問題，可以請教一個路徑的問題嗎？路徑:d://111//222//333 我可以各別取得文件夾名嗎？因為我想改別的文件名。

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

[讨论] 关于另存为新文件

点评