将我的dwg保存到D：我的文件夹

Michaels · 发表于 2022-7-6 10:14:54

你好

如何将dwg保存到驱动器D和特定文件夹。例如，我的文件夹。


(setq Fname (getstring T "\n new file name :"))
(setq x (strcat [b][color="red"]"D:\\My Folder\"[/color][/b] Fname ".dwg"))

为什么上面的文件路径不工作？

谢谢

Lee Mac · 发表于 2022-7-6 10:28:15

“我的文件夹”存在吗？

JohnM · 发表于 2022-7-6 10:34:53

请发布其余的代码，这样我们就可以看到发生了什么

Michaels · 发表于 2022-7-6 10:42:06

是的，李，“我的文件夹”已经制作或存在于驱动器D中。

Johnm先生。这是到目前为止的代码。

copy

(if (and (setq Fname (getstring T "\n new file name :"))
        (setq x (strcat "D:\\My Folder\" Fname ".dwg"))
 )
(command "_.save" x)
(princ)
 )

李的问题是，是否也可以在保存dwg之前创建一个文件夹并将其包含在其中？

非常感谢大家。

Lee Mac · 发表于 2022-7-6 10:49:12

也许是这样的。。。

copy


(defun c:test ( / dir file )
 (setq dir "D:\\My Folder")
 (vl-mkdir dir)
 (if (and (vl-file-directory-p dir)
          (snvalid (setq file (getstring t "\nEnter Filename: ")))
     )
   (vla-saveas (vla-get-ActiveDocument (vlax-get-acad-object))
     (strcat dir "\" file ".dwg")
   )
 )
 (princ)
)