Liren Large Software Subsidy 13/13.iso/p/p066/1.img/ACAD.LSP

Text File | 1990-04-26 | 10.5 KB | 2 lines

(VMON)(DEFUN *ERROR*(QO#)(COMMAND)(IF V:UNDO(COMMAND"undo""back"))(SETQ V:ERR T V:NREP NIL)(IF V:F1(PROGN(CLOSE V:FIL1)(SETQ V:F1 NIL)))(IF V:F2(PROGN(CLOSE V:FIL2)(SETQ V:F2 NIL)))(IF V:HGLT(REDRAW V:HGLT))(F:RLAY)(F:MODR)(SETVAR"highlight"1)(PRINC"\n")(IF(NOT V:REPT)(MENUCMD"s=s"))(IF(NOT V:REPT)(PRINC QO#)(IF(/= QO#"Function cancelled")(PRINC QO#)))(SETQ A NIL SSET NIL NSSET NIL SELSET NIL V:ISET NIL SS NIL V:UNDO NIL Q|# NIL Q%# NIL Q?0 NIL Qj0 NIL Q@0 NIL QQ0 NIL Ql0 NIL Q&0 NIL Q10 NIL Q#0 NIL Q00 NIL Q$0 NIL QO0 NIL Q|0 NIL Q%0 NIL Q?$ NIL Qj$ NIL Q@$ NIL QQ$ NIL Ql$ NIL Q&$ NIL Q1$ NIL Q#$ NIL Q0$ NIL Q$$ NIL QO$ NIL Q|$ NIL Q%$ NIL Q?O NIL QjO NIL Q@O NIL QQO NIL QlO NIL Q&O NIL Q1O NIL Q#O NIL Q0O NIL Q$O NIL QOO NIL Q|O NIL Q%O NIL Q?| NIL Qj| NIL Q@| NIL QQ| NIL Ql| NIL Q&| NIL Q1| NIL Q#| NIL Q0| NIL Q$| NIL QO| NIL Q|| NIL Q%| NIL Q?% NIL Qj% NIL Q@% NIL QQ% NIL Ql% NIL Q&% NIL)(GC)(PRINC))(SETQ V:2PT NIL V:3PI2(* PI 1.5)V:5PI4(* PI 1.25)V:CCD 0.75 V:DRWD 36.0 V:ELEC 0.125 V:FBWD 1.5 V:FSWD 1.5 V:FTWD 1.5 V:GRID(LIST 1.0 1.0)V:IBIG 30000 V:LFLG"board"V:LGT 0.125 V:MULW 0.5 V:OVHG 12.0 V:PHT 84.0 V:PI2(* PI 0.5)V:PI4(* PI 0.25)V:PND 0 V:PTH 1.0 V:PWD 24.0 V:RBIG 1000000.0 V:REVL 0.25 V:RFHT 8.0 V:SLHT 96.0 V:SRAT 1.0 V:SUP"ad03a"V:TINY 0.01 V:TRIM 1.5 V:UNME"user"V:WBLD 0.0 V:ZE 0.0 V:ZS 1.0 V:REPT 1 V:DHDR T)(SETQ V:DWD 36.0 V:DDWD 72.0 V:CDWD 36.0 V:SDWD 96.0 V:GDWD 192.0 V:PDWD 36.0 V:BDWD 72.0 V:WWD 36.0)(SETQ V:DHT 80.0 V:WHT 36.0)(SETQ V:DSHT 0.0 V:WSHT 36.0)(SETQ V:D_TP"do0"V:D_SH 0.0 V:D_WD 36.0 V:D_HT 80.0 V:D_OS 32 V:D_IN"2"V:D_ND""V:D_OF 4.0 V:D_FD T V:D_RI NIL V:D_RO"PROMPT"V:D_HS"ns"V:D_CV NIL V:D_SW"2")(SETQ V:DOSY 3.0 V:DOGY 2.0 V:DOPY 2.5 V:DOWY -0.5)(DEFUN F:MODS(Q1% / Q#% Q0%)(IF(NOT V:CS_T)(SETQ V:CS_T(CDR(ASSOC 62(TBLSEARCH"layer""arheader")))))(SETQ Q1%(APPEND(quote ("expert""thickness"))Q1%))(REPEAT(LENGTH Q1%)(IF(SETQ Q0%(ASSOC(SETQ Q#%(CAR Q1%))V:MLST))(SETQ V:MLST(SUBST(LIST Q#%(CONS(GETVAR Q#%)(CADR Q0%)))Q0% V:MLST))(SETQ V:MLST(CONS(LIST Q#%(LIST(GETVAR Q#%)))V:MLST)))(SETQ Q1%(CDR Q1%)))(SETVAR"expert"1)(SETVAR"thickness"0)(PRINC))(DEFUN F:MODR(/ Q0% Q$% QO%)(IF(AND V:CS_T(NOT(EQUAL V:CS_T(CDR(ASSOC 62(TBLSEARCH"layer""arheader")))0.01)))(IF(MINUSP V:CS_T)(COMMAND"layer""off""arheader""")(COMMAND"layer""on""arheader""")))(IF(AND(=(TYPE V:UORG)(quote STR))(TBLSEARCH"ucs"V:UORG))(PROGN(COMMAND"ucs""r"V:UORG"ucs""d"V:UORG)(SETQ V:UORG NIL)))(REPEAT(LENGTH V:MLST)(IF(SETQ Q0%(CADAR V:MLST))(PROGN(SETQ Q0%(REVERSE Q0%))(SETVAR(CAAR V:MLST)(CAR Q0%))))(SETQ V:MLST(CDR V:MLST)))(SETQ V:DINT NIL V:CS_T NIL)(PRINC))(DEFUN F:SLAY(A)(COND((NULL V:CLYR)(SETQ V:CLYR(GETVAR"CLAYER"))))(IF(NOT(TBLSEARCH"layer"A))(PROGN(PRINC(STRCAT"\nLayer "A" does not exist."))(EXIT)))(IF(= 1(LOGAND(CDR(ASSOC 70(TBLSEARCH"layer"A)))1))(PROGN(PRINC(STRCAT"\nLayer "A" is frozen."))(EXIT)))(COMMAND"layer""s"A"")(PRINC))(DEFUN F:RLAY()(COND(V:CLYR(COMMAND"layer""s"V:CLYR"")(SETQ V:CLYR NIL)))(PRINC))(DEFUN F:LODF(Q|%)(IF(NULL(EVAL(READ Q|%)))(PROGN(PROMPT"\n \nInitial load -- please wait.\n")(LOAD(STRCAT V:ACAL(STRCAT(SUBSTR Q|% 1 1)(SUBSTR Q|% 3(STRLEN Q|%)))))))(PRINC))(DEFUN F:MASC()(GETVAR"USERR3"))(DEFUN F:AQS(Q%% Q??j Qj?j / Q@?j)(IF Q%%(MENUCMD(STRCAT"s="Q%%)))(IF(EQ(TYPE Qj?j)(quote STR))(PROGN(IF(=(SUBSTR Q??j(STRLEN Q??j)1)"?")(SETQ Q??j(STRCAT Q??j" <"Qj?j">: "))(SETQ Q??j(STRCAT Q??j" <"Qj?j">: "))))(SETQ Q??j(STRCAT Q??j": ")))(IF(=(SETQ Q@?j(STRCASE(GETSTRING Q??j)))"")(SETQ Q@?j Qj?j))Q@?j)(DEFUN F:AQD(Q%% Q??j QQ?j Ql?j / Q@?j)(IF Q%%(MENUCMD(STRCAT"s="Q%%)))(IF QQ?j(PROGN(SETQ Q??j(STRCAT Q??j" <"(RTOS QQ?j)">: "))(IF V:DINT(INITGET 2)))(PROGN(SETQ Q??j(STRCAT Q??j": "))(IF V:DINT(INITGET 3)(INITGET 1))))(IF Ql?j(SETQ Q@?j(GETDIST Ql?j Q??j))(SETQ Q@?j(GETDIST Q??j)))(IF(NULL Q@?j)(SETQ Q@?j QQ?j))Q@?j)(DEFUN F:AQI(Q%% Q??j Qj?j / Q@?j)(IF Q%%(MENUCMD(STRCAT"s="Q%%)))(IF(EQ(TYPE Qj?j)(quote INT))(SETQ Q??j(STRCAT Q??j" <"(ITOA Qj?j)">: "))(SETQ Q??j(STRCAT Q??j": ")))(IF(NULL(SETQ Q@?j(GETINT Q??j)))(SETQ Q@?j Qj?j))Q@?j)(DEFUN F:AQR(Q%% Q??j Qj?j / Q@?j)(IF Q%%(MENUCMD(STRCAT"s="Q%%)))(IF(EQ(TYPE Qj?j)(quote REAL))(SETQ Q@?j(GETREAL(STRCAT Q??j" <"(RTOS Qj?j 5 3)">: ")))(PROGN(INITGET 1)(SETQ Q@?j(GETREAL(STRCAT Q??j": ")))))(IF(NULL Q@?j)(SETQ Q@?j Qj?j))Q@?j)(DEFUN F:PRMP()(PROMPT"\n \n \nMake a selection from the screen menu. ")(F:MODR)(PRINC))(DEFUN F:CLS()(IF(NOT V:ERR)(PRINC"\n \n \n")(SETQ V:ERR NIL))(F:MODR)(PRINC))(DEFUN F:ERR()(SETQ V:ERR NIL)(PRINC))(DEFUN F:UNDO()(COMMAND"undo""end")(COMMAND"undo""mark")(SETQ V:UNDO T)(F:MODR)(SETVAR"cmdecho"0)(SETVAR"menuecho"1))(DEFUN F:DTR(Q&?j)(/(* Q&?j PI)180))(DEFUN F:RTD(Q1?j)(/(* Q1?j 180)PI))(DEFUN F:SORG(Q#?j)(IF(NOT V:UORG)(PROGN(SETQ V:UORG"_cur$$")(IF(TBLSEARCH"ucs""_cur$$")(COMMAND"ucs""s""_cur$$""y")(COMMAND"ucs""s""_cur$$"))))(COMMAND"ucs""o"(A:SBST(GETVAR"ucsorg")2 Q#?j)))(DEFUN A:SBST(Q0?j Q$?j QO?j / Q|?j Q%?j Q?jj Qjjj)(SETQ Q?jj 0)(WHILE(SETQ Q%?j(NTH Q?jj Q0?j))(IF(= Q?jj Q$?j)(SETQ Qjjj(APPEND Qjjj(LIST QO?j))Q|?j 1)(SETQ Qjjj(APPEND Qjjj(LIST Q%?j))))(SETQ Q?jj(1+ Q?jj)))(IF(NOT Q|?j)(SETQ Qjjj(APPEND Qjjj(LIST QO?j))))Qjjj)(DEFUN F:REPT(Q@jj / QQjj)(IF(=(CAR F:LIST)(quote F:INSR))(F:LODF"f:insr"))(SETQ QQjj 1)(WHILE QQjj(IF Q@jj(MENUCMD(STRCAT"S="Q@jj)))(F:UNDO)(F:ERR)(IF(NOT V:NREP)(EVAL F:LIST))(IF(OR V:NREP(NOT V:REPT))(SETQ QQjj NIL))(IF(AND(NOT V:NREP)(= V:REPT 2))(PROGN(INITGET"Yes No")(MENUCMD"s=au009s1")(IF(=(GETKWORD"\nDo you want to repeat this function? <Y>: ")"No")(SETQ QQjj NIL))))(IF V:DPMT(SETQ QQjj NIL)))(IF V:DPMT(PROGN(IF Q@jj(MENUCMD(STRCAT"S="Q@jj)))(IF(=(TYPE V:DPMT)(quote STR))(PRINC(STRCAT"\n \n \n"V:DPMT))(F:PRMP))(SETQ V:DPMT NIL V:NREP T)))(IF(NOT V:NREP)(PROGN(MENUCMD"s=s")(PRINC"\n \n \nProcessing completed.")))(SETQ V:NREP NIL)(PRINC))(APPLY(quote (LAMBDA(/ A Qljj Q&jj Q1jj Q#jj)(PROGN(PROMPT"\nCopyright (C) 1986, 1987, 1988, 1989 by Autodesk, Inc.")(PROMPT"\nCopyright (C) 1986, 1987, 1988 by Archsoft Corp.")(PROMPT"\nAutoCAD AEC Architectural serial number:  10-459608 ")(PRINC))(IF(SETQ A(OPEN(STRCAT(GETVAR"acadprefix")"aec-a.cfg")"r"))(SETQ Q#jj T)(SETQ Q#jj NIL))(COND((AND Q#jj(READ-LINE A))(READ-LINE A)(WHILE(SETQ Q1jj(READ-LINE A))(IF(=(TYPE(READ(SUBSTR Q1jj 13)))(quote SYM))(SET(READ Q1jj)(SUBSTR Q1jj 13))(SET(READ Q1jj)(READ(SUBSTR Q1jj 13))))))(T(SETQ Qljj(GETVAR"acadprefix"))(SETQ Q&jj(-(STRLEN Qljj)9))(IF(< Q&jj 0)(SETQ Q&jj 0))(SETQ V:ACAL(STRCAT(SUBSTR Qljj 1 Q&jj)"/aec/a/l/")V:ACAM(STRCAT(SUBSTR Qljj 1 Q&jj)"/aec/a/m/")V:ACAS(STRCAT(SUBSTR Qljj 1 Q&jj)"/aec/a/s/"))(IF Q#jj(CLOSE A))(SETQ A(OPEN(STRCAT(GETVAR"acadprefix")"aec-a.cfg")"w"))(PRINC"VAR. NAME   VALUE (Must begin in column 13)  Note: Do not erase this line!"A)(PRINC"\n"A)(PRINC"----------- -------------------------------  Note: Do not erase this line!"A)(PRINC"\n"A)(PRINC"V:ACAL      "A)(PRINC V:ACAL A)(PRINC"\n"A)(PRINC"V:ACAM      "A)(PRINC V:ACAM A)(PRINC"\n"A)(PRINC"V:ACAS      "A)(PRINC V:ACAS A)(PRINC"\n"A)(PRINC"V:2pt       "A)(PRINC V:2PT A)(PRINC"\n"A)(PRINC"v:dwd       "A)(PRINC V:DWD A)(PRINC"\n"A)(PRINC"v:ddwd      "A)(PRINC V:DDWD A)(PRINC"\n"A)(PRINC"v:cdwd      "A)(PRINC V:CDWD A)(PRINC"\n"A)(PRINC"v:sdwd      "A)(PRINC V:SDWD A)(PRINC"\n"A)(PRINC"v:gdwd      "A)(PRINC V:GDWD A)(PRINC"\n"A)(PRINC"v:pdwd      "A)(PRINC V:PDWD A)(PRINC"\n"A)(PRINC"v:bdwd      "A)(PRINC V:BDWD A)(PRINC"\n"A)(PRINC"v:wwd       "A)(PRINC V:WWD A)(PRINC"\n"A)(PRINC"v:dht       "A)(PRINC V:DHT A)(PRINC"\n"A)(PRINC"v:wht       "A)(PRINC V:WHT A)(PRINC"\n"A)(PRINC"v:dsht      "A)(PRINC V:DSHT A)(PRINC"\n"A)(PRINC"v:wsht      "A)(PRINC V:WSHT A)(PRINC"\n"A)(PRINC"v:d_tp      "A)(PRINC V:D_TP A)(PRINC"\n"A)(PRINC"v:d_sh      "A)(PRINC V:D_SH A)(PRINC"\n"A)(PRINC"v:d_wd      "A)(PRINC V:D_WD A)(PRINC"\n"A)(PRINC"v:d_ht      "A)(PRINC V:D_HT A)(PRINC"\n"A)(PRINC"v:d_os      "A)(PRINC V:D_OS A)(PRINC"\n"A)(PRINC"v:d_in      "A)(PRINC V:D_IN A)(PRINC"\n"A)(PRINC"v:d_nd      "A)(PRINC V:D_ND A)(PRINC"\n"A)(PRINC"v:d_of      "A)(PRINC V:D_OF A)(PRINC"\n"A)(PRINC"v:d_fd      "A)(PRINC V:D_FD A)(PRINC"\n"A)(PRINC"v:d_ri      "A)(PRINC V:D_RI A)(PRINC"\n"A)(PRINC"v:d_ro      "A)(PRINC V:D_RO A)(PRINC"\n"A)(PRINC"v:d_hs      "A)(PRINC V:D_HS A)(PRINC"\n"A)(PRINC"v:d_cv      "A)(PRINC V:D_CV A)(PRINC"\n"A)(PRINC"v:d_sw      "A)(PRINC V:D_SW A)(PRINC"\n"A)(PRINC"v:dosy      "A)(PRINC V:DOSY A)(PRINC"\n"A)(PRINC"v:dogy      "A)(PRINC V:DOGY A)(PRINC"\n"A)(PRINC"v:dopy      "A)(PRINC V:DOPY A)(PRINC"\n"A)(PRINC"v:dowy      "A)(PRINC V:DOWY A)(PRINC"\n"A)(PRINC"V:ccd       "A)(PRINC V:CCD A)(PRINC"\n"A)(PRINC"V:elec      "A)(PRINC V:ELEC A)(PRINC"\n"A)(PRINC"V:lflg      "A)(PRINC V:LFLG A)(PRINC"\n"A)(PRINC"V:lgt       "A)(PRINC V:LGT A)(PRINC"\n"A)(PRINC"V:pht       "A)(PRINC V:PHT A)(PRINC"\n"A)(PRINC"V:pnd       "A)(PRINC V:PND A)(PRINC"\n"A)(PRINC"V:pth       "A)(PRINC V:PTH A)(PRINC"\n"A)(PRINC"V:pwd       "A)(PRINC V:PWD A)(PRINC"\n"A)(PRINC"V:rfht      "A)(PRINC V:RFHT A)(PRINC"\n"A)(PRINC"V:unme      "A)(PRINC V:UNME A)(PRINC"\n"A)(PRINC"V:ze        "A)(PRINC V:ZE A)(PRINC"\n"A)(PRINC"V:zs        "A)(PRINC V:ZS A)(PRINC"\n"A)(PRINC"V:rept      "A)(PRINC V:REPT A)(PRINC"\n"A)(PRINC"V:expt      "A)(PRINC V:EXPT A)(PRINC"\n"A)(PRINC"V:soff      "A)(PRINC V:SOFF A)(PRINC"\n"A)(PRINC"V:plum      "A)(PRINC V:PLUM A)(PRINC"\n"A)(PRINC"V:faca      "A)(PRINC V:FACA A)(PRINC"\n"A)(PRINC"V:gctl      "A)(PRINC V:GCTL A)(PRINC"\n"A)(PRINC"V:eqbi      "A)(PRINC V:EQBI A)(PRINC"\n"A)(PRINC"V:dhdr      "A)(PRINC V:DHDR A)(PRINC"\n"A)))(CLOSE A)(IF(=(TYPE V:D_IN)(quote INT))(SETQ V:D_IN(ITOA V:D_IN)))(IF(=(TYPE V:D_SW)(quote INT))(SETQ V:D_SW(ITOA V:D_SW)))))(quote ()))(DEFUN S::STARTUP()(SETVAR"CMDECHO"0)(SETVAR"MENUECHO"1)(SETVAR"userr1"1.0)(SETVAR"userr2"0.0)(IF(GETVAR"flatland")(SETVAR"flatland"0))(IF(NOT(TBLSEARCH"layer""ARDCAB2D"))(PROGN(F:LODF"u:pgd1")(IF(A:NUPG)(PROGN(F:LODF"u:pgdw")(A:UPDW)))))(IF(NOT(TBLSEARCH"block""board"))(PROGN(IF(AND(TBLSEARCH"layer""STRF")(TBLSEARCH"layer""WNWL"))(SETQ V:UPDT"aecadd")(SETQ V:UPDT"aecarc"))(F:LODF"a:udat")(PROMPT"\n \n \nDrawing environment is being updated.")(A:UDAT)))(IF(AND(>(STRLEN(GETVAR"menuname"))4)(=(STRCASE(SUBSTR(GETVAR"menuname")(-(STRLEN(GETVAR"menuname"))4)5))"SETUP"))(PROGN(COMMAND"handles""on")(F:PRMP))(IF(ENTLAST)(IF(NOT(ASSOC 5(ENTGET(ENTLAST))))(PROGN(PRINC"\nProcessing -- Please wait")(COMMAND"handles""on")(PRINC"\n \n \nProcessing completed.")))(COMMAND"handles""on")))(IF(TBLSEARCH"layer""arheader")(IF(NOT V:DHDR)(IF(NOT(MINUSP(CDR(ASSOC 62(TBLSEARCH"layer""arheader")))))(COMMAND"layer""off""arheader"""))(IF(MINUSP(CDR(ASSOC 62(TBLSEARCH"layer""arheader"))))(COMMAND"layer""on""arheader"""))))(SETQ Q0jj(OPEN(STRCAT V:ACAS"curlib.txt")"r"))(IF Q0jj(PROGN(SETQ V:UNME(READ-LINE Q0jj))(CLOSE Q0jj))(SETQ V:UNME"USER"))(PRINC))