yang686526

[求助]请教高手，帮忙看看这段程序。
www.dimcax.com
[求助]请教高手，帮忙看看这段程序。
(defun c:zhl_qc ( / app doc docs err errtmp file files newpath old_acadlspasdoc old_cmdecho path sset)
;(alert "执行完操作后请保存文件(覆盖原文件)！")
(defun getfolder (str_title str_prompt /)
(strcat
(vl-string-right-trim
"\\"
(strcase
(acet-ui-pickdir str_prompt (vl-string-right-trim "\\" (getvar "dwgprefix")) str_title)
)
)
"\\"
)
)
(defun makedirectory (dir / )
(vl-mkdir dir)
)
(defun userundo ()
(setq *error* errtmp)
(vlax-release-object docs)
(vlax-release-object app)
(setvar "cmdecho" old_cmdecho)
(setvar "acadlspasdoc" old_acadlspasdoc)
(princ)
)
(defun err (msg)
(userundo)
)
(setq errtmp *error*)
(setq *error* err)
(setq old_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq old_acadlspasdoc (getvar "acadlspasdoc"))
(setvar "acadlspasdoc" 0)
(setq app (vlax-get-acad-object))
(setq docs (vla-get-documents app))

(setq path (getfolder "请选择目录..." "请选择目录："))
(setq files (vl-directory-files path "*.dwg" 1))
(if files
(progn
(setq newpath (strcat path "无用的临时文件\\"))
(makedirectory newpath)
(foreach file files
(setq doc (vla-open docs (strcat path file)))
(setq sset (vla-get-activeselectionset doc))
(vla-export doc (strcat newpath file) "dxf" sset)
下面这三行运行不了，我想达到的效果是：打开"无用的临时文件\\"里所有dxf，另存到 "path\\" 替代所有dwg文件，如何才能达到？请教高手。
(setq files1 (vl-directory-files newpath "*.dxf" 1))
(setq doc1 (vla-open docs (strcat newpath file1)))
(vla-save doc1)
(vla-close doc :vlax-false)
(vlax-release-object doc)
)
)
(alert "所选目录无 .dwg 文件！请重新选择：")
)
(userundo)
(setq *error* errtmp)
(princ)
)
d
哪位高手帮帮忙呀。
d
你这段程序没有什么实用性呀，他不能做什么工作呀
d
有非常大的作用，可以去除一些外部程序。
d
哪位高手帮忙解决一下，急用。
d
确实没太大用处!可能对每个人的用处不同吧!