在文件夹中创建文件夹

leonucadomi · 发表于 2022-8-26 01:08:33

我使用此例程创建
具有当前文件路径的文件夹，
但我不知道如何在该文件夹中创建一个文件夹，
有人可以帮助我吗？

defun C:TEST (/dwgpre)
(setq dwgpre (strcat (getvar "dwgprefix") "\RV 0"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)
);DEFUN

ronjonp · 发表于 2022-8-26 02:20:20

你需要一个双反斜杠 \\RV 0 并且您不需要检查它是否存在：

(defun c:test nil (vl-mkdir (strcat (getvar "dwgprefix") "\\RV 0")))

这是制作嵌套文件夹的快速示例：

(defun c:test (/ pre)  (setq pre (getvar 'dwgprefix))  (foreach d '("\\RV 0" "\\RV 1" "\\RV 2") (vl-mkdir (setq pre (strcat pre d)))))

[编程交流] 在文件夹中创建文件夹