cad批量 谷歌翻译lisp_LISP批量打开CAD图操作

(arxload"acetutil.arx"NIL);;需要相应版本的ET(ExpressTools)工具支持(vl-load-com)(defunc:GText(/OLDECHOAPPDWGNAME2pathnumdwgnameOLDLSPdocent);;主程序定义(setqOLDECHO(getv...

(arxload "acetutil.arx" NIL) ;;需要相应版本的 ET(Express Tools)工具支持

(vl-load-com)

(defun c:GText (/ OLDECHO APP DWGNAME2 path num dwgname OLDLSP doc ent

);;主程序定义

(setq OLDECHO (getvar "cmdecho"));;保存系统变量值

(setvar "cmdecho" 0)

(setq path

(strcat

(vl-string-right-trim

"\\"

(strcase (acet-ui-pickdir

"选择目录"

(vl-string-right-trim "\\" (getvar "dwgprefix")) "批量修改")))"\\"))

(setq OLDLSP (getvar "ACADLSPASDOC"));;保存系统变量值

(setvar "acadlspasdoc" 0)

(setq dwgname (vl-directory-files path "*.DWG"))

(setq num 0)

(if (/= dwgname NIL)

(progn