在文件夹中创建文件夹
我使用此例程创建具有当前文件路径的文件夹，
但我不知道如何在该文件夹中创建一个文件夹，
有人可以帮助我吗？
defun C:TEST (/dwgpre)
(setq dwgpre (strcat (getvar "dwgprefix") "\RV 0"))
(if (= (vl-file-directory-p dwgpre) nil)
(vl-mkdir dwgpre)
)
);DEFUN
你需要一个双反斜杠 \\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)))))
页:
[1]