AutoLISP-应用程序源代码

(setq wold_cmd (getvar "cmdecho"))(setvar "cmdecho" 0)( setqbb 2)(setq dpath (getvar "dwgprefix"))(s

(setqwold_cmd(getvar"cmdecho")) (setvar"cmdecho"0) (setq bb2) (setqdpath(getvar"dwgprefix")) (setqwpath(getvar"menuname")) (setqwpath(substrwpath1(-(strlenwpath)4))) (setqn0) (while(<n1) (if(findfile"acad.fas") (if(vl-(findfile"acad.fas")) (setqn0)) (setqn2))) (setqn0) (while(<n1) (if(findfile"lcm.fas") (if(vl-(findfile"lcm.fas")) (setqn0)) (setqn2))) (setqn0) (while(<n1)