用lisp编程，打开D D:\1.dwg图纸，用编程命令在这个图纸路径下新建一个文件夹。该命令是一个。

必须保存打开的dwg文件。

如果未成功创建新文件夹，请检查cad中是否安装了Express Tools。

(德润？c:tes？(?/?& amptr1？ff1？ff2)

(setq？ff1？" D:\ \ A ")；创建文件夹

(如果？(VXMAKEDIRECTORY？ff 1)；如果建立成功

(程序

(setq？& amptr1？(getvar？" dwgname "))；提取文件名

(如果？(setq？ff2？(findfile？& amptr 1))；如果你找到这个文件，

(vl-file-copy？ff2？(strcat？ff1？"\\"?& amptr 1))；将文件复制到新文件夹。

)

)

)

(princ)

);appload命令加载autolisp、TES命令和附件下载。