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

dhy

我在网上下载的一个程序，本来是想用来保存文件再把原来的文件删掉的，可以不知道怎么样，保存后的文件老是不在原文件的文件夹里，而是保存到我的文档里面了，有请高手修改一下，让文件可以正常保存在原文件的文件夹里面，万分感谢。

(defun c:BBCC (/ dwg dwgNN);; path);;保存
   (setq DHYB001 (getvar "DwgName"))
   (setq dwg (getvar "DwgName")
         dwg (substr dwg 1 (- (strlen dwg)  4))
        path (getvar "DwgPrefix")
   )
   (cond
    ((WcMatch dwg "Drawing*")
     (setq dwg (getfiled "路径+文件名" Path "Dwg" 1)
           dwg (substr dwg 1 (- (strlen dwg)  4))
     )
     (if (setq dwgNN (vl-string-search "@" dwg))
       (setq dwg (substr dwg 1 DwgNN))
    ))
    (T
     (if (setq dwgNN (vl-string-search "@" dwg))
       (setq dwg (substr dwg 1 DwgNN)
             dwg (strcat Path  dwg)
   ))) )
   (setq dwg (strcat dwg "@" (menucmd "M=$(edtime,$(getvar,date),YY-MO-DD)"))
         Dwg (strcat "\"" dwg  "\"")
   )
(COMMAND "_.saveas" "" Dwg);_.saveas "SAVEAS"
(vl-file-delete DHYB001)
(princ)
)

dhy

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

zml84

很是怀疑楼主目的。

dhy

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

dhy

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

Andyhon

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

AutoCAD2012

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

dhy

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

在04上用也一样啊

Andyhon

     (if (setq dwgNN (vl-string-search "@" dwg))
       (setq dwg (substr dwg 1 DwgNN)
             dwg (strcat Path  dwg)
    ) )
==>  
     (if (setq dwgNN (vl-string-search "@" dwg))
       (setq dwg (substr dwg 1 DwgNN))
     )
     (setq dwg (strcat Path  dwg))

dhy

谢谢楼上的，可是按你这样改了就会显示（命令: ; 错误: 输入的列表有缺陷）