cad 多重复制的lisp

如下代码，粘贴到运山文本，将文本连同后旁拆中缀改为CO.LSP，编完之后，AP加载此LSP程序，并御弊将此LSP程序拖拽到启动组

(defun c:co(/ ent)(setq ent (ssget)) (command "copy" ent "" "m") (princ) )

写了一个autolisp，注意以下条件：

打开的dwg文磨裤件必须要保存。

如果新文件夹没有建立成功，查看cad是否安装了【Express Tools】。

(defun c:tes ( / &tr1 ff1 ff2)

 (setq ff1 "D:\\A")建立文件夹

 (if (VXMAKEDIRECTORY ff1)如果建立成功

  (progn

   (setq &tr1 (getvar "dwgname"))提取文件喊誉名

   (if (setq ff2 (findfile &tr1))如果找到这个文件

  郑游段  (vl-file-copy ff2 (strcat ff1 "\\" &tr1))复制文件到新文件夹里面

   )

  )

 )

 (princ)

)appload命令加载autolisp，命令【TES】，看附件下载。

---