dhy 发表于 2010-1-30 17:43:00

[求助]高手帮忙看看这样怎么不保存在原文件夹

本帖最后由 作者 于 2010-2-3 7:48:52 编辑 <br /><br /> <p>我在网上下载的一个程序，本来是想用来保存文件再把原来的文件删掉的，可以不知道怎么样，保存后的文件老是不在原文件的文件夹里，而是保存到我的文档里面了，有请高手修改一下，让文件可以正常保存在原文件的文件夹里面，万分感谢。</p><p>(defun c:BBCC (/ dwg dwgNN);; path);;保存<br/>&nbsp;&nbsp; (setq DHYB001 (getvar "DwgName"))<br/>&nbsp;&nbsp; (setq dwg (getvar "DwgName")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwg (substr dwg 1 (- (strlen dwg)&nbsp; 4))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; path (getvar "DwgPrefix")<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (cond<br/>&nbsp;&nbsp;&nbsp; ((WcMatch dwg "Drawing*")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (getfiled "路径+文件名" Path "Dwg" 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwg (substr dwg 1 (- (strlen dwg)&nbsp; 4))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (setq dwgNN (vl-string-search "@" dwg))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (substr dwg 1 DwgNN))<br/>&nbsp;&nbsp;&nbsp; ))<br/>&nbsp;&nbsp;&nbsp; (T<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (setq dwgNN (vl-string-search "@" dwg))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (substr dwg 1 DwgNN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwg (strcat Path&nbsp; dwg)<br/>&nbsp;&nbsp; ))) )<br/>&nbsp;&nbsp; (setq dwg (strcat dwg "@" (menucmd "M=$(edtime,$(getvar,date),YY-MO-DD)"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dwg (strcat "\"" dwg&nbsp; "\"")<br/>&nbsp;&nbsp; )<br/>(COMMAND "_.saveas" "" Dwg);_.saveas "SAVEAS"<br/>(vl-file-delete DHYB001) <br/>(princ)<br/>)</p>

dhy 发表于 2010-1-30 17:48:00

看看图，保存的时候下面显示在F盘，上面却显示在我的文档。

zml84 发表于 2010-1-30 21:40:00

<p>很是怀疑楼主目的。</p>

dhy 发表于 2010-2-1 08:05:00

有什么怀疑的？我用3D软件保存的是DXF格式文件，但是保存的是DWG文件，保存的时候加上日期保存。想在保存的同时把DXF文件删掉,免得再要打开文件夹找那个文件删啊

dhy 发表于 2010-2-3 14:26:00

<p>本论坛的高手那么多，怎么这几天不见上来呢</p>

Andyhon 发表于 2010-2-3 14:54:00

也想凑热闹,但没2009,使不上力....

AutoCAD2012 发表于 2010-2-3 21:56:00

很明显, dwg变量赋值错误, 没有指定路径.

dhy 发表于 2010-2-4 07:59:00

Andyhon发表于2010-2-3 14:54:00static/image/common/back.gif也想凑热闹,但没2009,使不上力....

<font style="BACKGROUND-COLOR: #f3f3f3;">在04上用也一样啊</font>

Andyhon 发表于 2010-2-4 08:20:00

&nbsp;&nbsp;&nbsp;&nbsp; (if (setq dwgNN (vl-string-search "@" dwg))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (substr dwg 1 DwgNN)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dwg (strcat Path&nbsp; dwg)<br/>&nbsp;&nbsp;&nbsp; ) )<br/>==&gt;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (if (setq dwgNN (vl-string-search "@" dwg))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (substr dwg 1 DwgNN))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg (strcat Path&nbsp; dwg))

dhy 发表于 2010-2-4 09:25:00

谢谢楼上的，可是按你这样改了就会显示（命令: ; 错误: 输入的列表有缺陷）
页: [1] 2
查看完整版本: [求助]高手帮忙看看这样怎么不保存在原文件夹