home *** CD-ROM | disk | FTP | other *** search
- (PRINC"\nParaDraft Shareware Version, Copyright (c) 1991 ParaWare Systems.,India")(PRINC"\nLoading PGRUN Runtime system. Please wait...")(SETVAR"cmdecho"0)(DEFUN EVAL-VALUES(/ QRj QR@ QRQ QRl QR& QR1)(IF(NOT *PGPG-EXPERT*)(QR#))(SETQ QR& *PGPG-CALMODE* QR1(="BASIC"*PGPG-CALMODE*))(SETQ *ALL-VALUES* NIL)(IF QR&(PROGN(QR0"pgpgtmp.out")(IF(NOT QR1)(COMMAND"shell"(STRCAT *PGPG-DIR*"PGCAL "*PGPG-DIR*" "*PG-NAME*(IF *PGPG-DEMO*".dem "".cal ")"pgpgtmp.out")))(SETQ QRj(OPEN(STRCAT *PGPG-DIR*"pgpgtmp.out")"r"))(IF QRj(PROGN(WHILE(SETQ QR@(READ-LINE QRj))(SETQ QRQ(READ(READ-LINE QRj)))(SETQ *ALL-VALUES*(CONS(CONS QR@ QRQ)*ALL-VALUES*)))(CLOSE QRj))))))(DEFUN C:PGEDIT()(QR$)(COMMAND"EDIT"(STRCAT *PGPG-DIR* *PG-NAME*".cal")))(DEFUN QR#(/ QR&)(COMMAND"shell"(STRCAT"type "*PGPG-DIR*"pgrun.msg"))(INITGET 1"Yes No")(SETQ QR&(="Yes"(GETKWORD"\nDo you want to use the PGCAL program (Y/N) : ")))(IF QR&(PROGN(SETQ *PGPG-CALMODE*"CALC"))(SETQ *PGPG-CALMODE* NIL)))(DEFUN INIT(QRO)(COMMAND"POINT"QRO)(SETQ _EN(ENTLAST)))(DEFUN ROTATE-IT(REFPT QR| / QR% QR?j)(IF(/= QR| 0.0)(PROGN(SETQ QR%(QRjj *EN*))(COMMAND"rotate"QR%""REFPT QR|))))(DEFUN C:PGSHOW()(SETQ *PG-NAME*(QR$))(COMMAND"vslide"(STRCAT *PGPG-DIR* *PG-NAME*))(QR@j *PG-NAME*)(GETPOINT"\nPress return to continue.... ")(COMMAND"redraw")(PRINC))(DEFUN C:PGMSLIDE()(QR$)(COMMAND"mslide"(STRCAT *PGPG-DIR* *PG-NAME*)))(DEFUN QRQj(QRO)(COMMAND"insert"(STRCAT *PGPG-DIR*"explain")QRO 1.0 1.0 0.0))(DEFUN INSERT-PARENT(QRO)(COMMAND"insert"(STRCAT *PGPG-DIR*"help\\"*PG-NAME*)QRO 1.0 1.0 0.0))(DEFUN MAKE-COPIES(/ QR% QR?j)(IF(QRlj)(PROGN(SETQ QR%(GETSET))(WHILE(SETQ QR?j(QR&j QR1j))(COMMAND"COPY"QR%""REFPT QR?j)))))(DEFUN MAKE_LAYER(QR#j QR0j / QR$j)(COMMAND"Layer""M"QR#j""))(DEFUN HIGHLIGHT-LAST()(COMMAND"CHANGE""l""""P""COLOR""YELLOW"""))(DEFUN DRAW-CLINE(QROj QR|j QR%j)(SETQ QR|j(/ QR|j 2))(COMMAND"line"(POLAR QROj QR%j(- QR|j))(POLAR QROj QR%j QR|j)"")(COMMAND"change""l""""LAYER"*CEN-LAYER*))(DEFUN MAKE-CLINE(QROj QR?@ / QR|j QRj@)(COND((LISTP QR?@)(SETQ QR|j(*(DISTANCE QROj QR?@)1.25)))(T(SETQ QR|j(* QR?@ 1.25))))(COMMAND"point"QROj)(SETQ QRj@(ENTLAST))(COMMAND"line"(DELTA QROj 0.0(- QR|j))QROj(DELTA QROj 0.0 QR|j)"")(COMMAND"line"(DELTA QROj(- QR|j)0.0)QROj(DELTA QROj QR|j 0.0)"")(COMMAND"change"(QRjj QRj@)"""LAYER"*CEN-LAYER*))(DEFUN QR@@()(COMMAND"vslide"(STRCAT *PGPG-DIR* *PG-NAME*)))(DEFUN QRQ@(QRl@)(PRINC QRl@)(MODE 0)(PRINC))(SETQ *ERROR* QRQ@)(DEFUN MODE(QR&@ / QR1@)(IF(NOT QR#@)(SETQ QR#@(quote ("highlight""blipmode""osmode""snapmode""cmdecho""attdia""filletrad"))))(IF(ZEROP QR&@)(PROGN(IF(NOT QR0@)(SETQ QR0@(MAPCAR(quote GETVAR)QR#@)))(FOREACH QR1@ QR#@(IF(EQ(TYPE(GETVAR QR1@))(quote INT))(SETVAR QR1@ 0)))(SETVAR"filletrad"0.0))(PROGN(IF QR0@(MAPCAR(quote SETVAR)QR#@ QR0@))(SETQ QR0@ NIL))))(DEFUN DELTA(QRO QR$@ QRO@)(LIST(+ QR$@(CAR QRO))(+ QRO@(CADR QRO))))(DEFUN GETVAL(QRl@ QR|@ / QR%@)(PRINC QRl@)(PRINC"<")(PRINC QR|@)(PRINC"> : ")(SETQ QR?Q(TYPE QR|@))(COND((= QR?Q(quote STR))(SETQ QR%@(GETSTRING))(IF(= QR%@"")(SETQ QR%@ NIL)))((= QR?Q(quote INT))(SETQ QR%@(GETINT)))((= QR?Q(quote REAL))(SETQ QR%@(GETREAL))))(IF QR%@(SETQ QR%@ QR%@)(SETQ QR%@ QR|@)))(DEFUN D2R(QRjQ)(/ QRjQ 57.2957795))(DEFUN R2D(QRjQ)(* QRjQ 57.2957795))(DEFUN QR@Q(QR%j)(/(SIN QR%j)(COS QR%j)))(DEFUN QRQQ(QR|@)(IF(=(ABS QR|@)1.0)(SETQ QR|@(/ PI 2.0))(ATAN(/ QR|@(SQRT(- 1.0(* QR|@ QR|@)))))))(DEFUN QRlQ(QR|@)(IF(=(ABS QR|@)0.0)(SETQ QR|@(/ PI 2.0))(ATAN(/(SQRT(- 1.0(* QR|@ QR|@)))QR|@))))(DEFUN CALC-ANGLE(QR&Q QR1Q / QR%j)(IF(>=(SETQ QR%j(ANGLE QR&Q QR1Q))PI)(SETQ QR%j(- QR%j PI)))(SETQ QR%j QR%j))(DEFUN CHG-QUAD(QR%j)(IF(> 0.0 QR%j)(SETQ QR%j(+ PI QR%j))(SETQ QR%j QR%j))(IF(< PI QR%j)(SETQ QR%j(- QR%j PI))(SETQ QR%j QR%j)))(DEFUN X-OF(QRO)(-(CAR QRO)(CAR REFPT)))(DEFUN Y-OF(QRO)(-(CADR QRO)(CADR REFPT)))(DEFUN MIDPT(QR&Q QR1Q)(LIST(/(+(CAR QR&Q)(CAR QR1Q))2.0)(/(+(CADR QR&Q)(CADR QR1Q))2.0)))(DEFUN QR#Q(QR0Q QR$Q)(+(D2R QR0Q)QR$Q))(DEFUN QROQ(QR|Q)(=(CAR QR|Q)"line"))(DEFUN QR%Q(QR|Q)(=(CAR QR|Q)"arc"))(DEFUN MAKE-ARC(QR?l QRO)(LIST"arc"QR?l(DISTANCE QR?l QRO)))(DEFUN QRjl(QR@l)(CADR QR@l))(DEFUN QRQl(QR@l)(CADDR QR@l))(DEFUN MAKE-LINE(QRO QR%j / QRll)(COND((> 0.001(ABS(- QR%j(/ PI 2.0))))(LIST"line""vert"(CAR QRO)))(T(SETQ QRll(QR@Q QR%j))(LIST"line"QRll(-(CADR QRO)(* QRll(CAR QRO)))))))(DEFUN QR&l(QR1l)(CADDR QR1l))(DEFUN QR#l(QR1l)(IF(QR0l QR1l)100000.0(CADR QR1l)))(DEFUN QR0l(QR1l)(=(CADR QR1l)"vert"))(DEFUN QR$l(QR1l)(=(CADR QR1l)0.0))(DEFUN QROl(QR1l)(CADDR QR1l))(DEFUN QR|l(QR1l)(IF(QR0l QR1l)(LIST(QROl QR1l)0.0)(LIST 0.0(QR&l QR1l))))(DEFUN QR%l(QR1l)(IF(QR0l QR1l)(LIST(QROl QR1l)10.0)(IF(QR$l QR1l)(LIST 10.0(QR&l QR1l))(LIST(-(/(QR&l QR1l)(QR#l QR1l)))0.0))))(DEFUN INTER-X(QR&@ QR|Q QR?&)(SETQ QR&@(+(CAR REFPT)QR&@))(INTERSECT(MAKE-LINE(LIST QR&@ 0.0)(/ PI 2.0))QR|Q QR?&))(DEFUN INTER-Y(QRj& QR|Q QR?&)(SETQ QRj&(+(CAR REFPT)QRj&))(INTERSECT(MAKE-LINE(LIST 0.0 QRj&)0.0)QR|Q QR?&))(DEFUN INTERSECT(QR@& QRQ& QR?& / QRO)(COND((AND(QR%Q QR@&)(QR%Q QRQ&))(SETQ QRO(QRl& QR@& QRQ& QR?&)))((AND(QROQ QR@&)(QR%Q QRQ&))(SETQ QRO(QR&& QR@& QRQ& QR?&)))((AND(QROQ QRQ&)(QR%Q QR@&))(SETQ QRO(QR&& QRQ& QR@& QR?&)))((AND(QROQ QR@&)(QROQ QRQ&))(SETQ QRO(QR1& QR@& QRQ& QR?&))))(SETQ QRO QRO))(DEFUN QR1&(QR#& QR0& QR?& / QR&Q QR1Q QR$& QRO&)(SETQ QR&Q(QR|l QR#&))(SETQ QR1Q(QR%l QR#&))(SETQ QR$&(QR|l QR0&))(SETQ QRO&(QR%l QR0&))(INTERS QR&Q QR1Q QR$& QRO& NIL))(DEFUN QR&&(QR1l QR@l QR?& / QR|& QR%& QR?1 QRj1 QR%j QR@1 QRQ1)(SETQ QR%&(QRQl QR@l))(SETQ QR?1(QRjl QR@l))(COND((QR0l QR1l)(SETQ QRl1(QROl QR1l))(SETQ QR|&(APPLY QR?&(LIST(CADR QR?1)(SQRT(-(* QR%& QR%&)(*(- QRl1(CAR QR?1))(- QRl1(CAR QR?1))))))))(LIST QRl1 QR|&))((QR$l QR1l)(SETQ QR|&(QR&l QR1l))(SETQ QRl1(APPLY QR?&(LIST(CAR QR?1)(SQRT(-(* QR%& QR%&)(*(- QR|&(CADR QR?1))(- QR|&(CADR QR?1))))))))(LIST QRl1 QR|&))(T(SETQ QRj1(QR1&(MAKE-LINE QR?1(+(/ PI 2.0)(ATAN(QR#l QR1l))))QR1l NIL))(IF(<(SETQ QRQ1(DISTANCE QRj1 QR?1))0.1)(POLAR QR?1(ATAN(QR#l QR1l))(*(APPLY QR?&(LIST 1.0))QR%&))(PROGN(SETQ QR@1(QRlQ(/ QRQ1 QR%&)))(SETQ QR%j(ANGLE QR?1 QRj1))(SETQ QR%j(APPLY QR?&(LIST QR%j QR@1)))(POLAR QR?1 QR%j QR%&))))))(DEFUN QRl&(QR&1 QR11 QR?&)(CAR QR&1))(DEFUN TANGENCY(QR1l QR@l)(COND((QR0l QR1l)(LIST(QROl QR1l)(CADR(QRjl QR@l))))((QR$l QR1l)(LIST(CAR(QRjl QR@l))(QR&l QR1l)))(T(QR1&(MAKE-LINE(QRjl QR@l)(+(/ PI 2.0)(ATAN(QR#l QR1l))))QR1l NIL))))(DEFUN QR#1(/ QR01)(SETQ QR1j(GETVAL"\nEnter the part code: ""411001"))(SETQ QR01(GETVAL"\nEnter how many parameters : "0))(QR$1 QR01)(QR&j QR1j))(DEFUN QR$1(QR01 / QRO1 QR|1 QR%1 QR0Q)(SETQ QRO1(quote ()))(SETQ QR%1 1)(REPEAT QR01(SETQ QRO1(CONS(SETQ QR|1(QR?# QR%1 QRO1))QRO1))(SETQ QR0Q(GETVAL"\nEnter the value:"0.0))(PRINC QR|1)(PRINC" initialised\n")(SET QR|1 QR0Q)(SETQ QR%1(1+ QR%1))))(SETQ QRj#(quote ()))(DEFUN QR@#(QR1j QRQ# / QRl#)(SETQ QRl#(ASSOC QR1j QRj#))(IF QRl#(SETQ QRj#(SUBST(CONS QR1j(CONS QRQ#(CDR QRl#)))QRl# QRj#))(SETQ QRj#(CONS(CONS QR1j(LIST QRQ#))QRj#))))(DEFUN GETSET()(QRjj _EN))(DEFUN QRjj(QR&# / QR1# QR##)(SETQ QR1#(SSADD))(SETQ QR## QR&#)(WHILE(SETQ QR##(ENTNEXT QR##))(SSADD QR## QR1#))(SSADD QR&# QR1#))(DEFUN QRlj()(SETQ QR0#(ASSOC QR1j QRj#))(NOT(NULL QR0#)))(DEFUN QR&j(QR1j / QR0#)(SETQ QR0#(ASSOC QR1j QRj#))(IF QR0#(PROGN(SETQ REFPT(CADR QR0#))(SETQ QRj#(SUBST(CONS QR1j(CDDR QR0#))QR0# QRj#)))(PROGN(INITGET 1)(SETQ REFPT(GETPOINT"\nShow the reference point: "))))(SETQ REFPT REFPT))(DEFUN QR?#(QR%1 QRO1 / QR|1)(SETQ QR|1(READ(GETVAL"\nEnter the name:"(STRCAT"L"(ITOA QR%1)))))(IF(MEMBER QR|1 QRO1)(PROGN(PRINC"\nVariable already initiailised. Give another one")(QR?# QR%1 QRO1))(SETQ QR|1 QR|1)))(DEFUN TAKE-VALUE(QR|1 QR$# QRO# / QR0Q)(SETQ QR$#(STRCASE QR$#))(IF(NOT(SETQ QR0Q(ASSOC QR$# *ALL-VALUES*)))(SET QR|1(GETVAL(QR|# QR$#)QRO#))(SET QR|1(CDR QR0Q))))(DEFUN QR|#(QR|1 / QR%#)(SETQ QR%#(STRCASE(SUBSTR QR|1 1 1)))(STRCAT"\nEnter the value of "(COND((= QR%#"L")"dimension ")((= QR%#"A")"angle ")((= QR%#"R")"radius ")((= QR%#"D")"diameter ")((= QR%#"X")"X coordinate ")((= QR%#"Y")"Y coordinate "))QR|1))(DEFUN QR?0(/ QR|@ QR|j QRj0)(SETQ QR|j 0)(GRAPHSCR)(FOREACH QR|@ *ALL-VALUES*(PRINC(CAR QR|@))(SETQ QR|j(+ QR|j(STRLEN(CAR QR|@))))(PRINC"(")(SETQ QR|j(+ 3 QR|j))(SETQ QRj0(RTOS(CDR QR|@)2 2))(SETQ QR|j(+ QR|j(STRLEN QRj0)))(PRINC QRj0)(PRINC") ")(IF(< 65 QR|j)(PROGN(GETPOINT" Return:")(PRINC"\n")(SETQ QR|j 0))))(IF(< 0 QR|j)(PRINC"\n"))(PRINC))(DEFUN EXPLAINS(QRO QR@0 QRQ0 / QR%1)(QRQj QRO)(COMMAND QR@0)(SETQ QR%1 0)(WHILE(AND QRQ0(> 8 QR%1))(SETQ QRl0(CAR QRQ0))(SETQ QRQ0(CDR QRQ0))(IF(/= QRl0"")(PROGN(COMMAND QRl0)(SETQ QR%1(1+ QR%1)))))(WHILE(> 8 QR%1)(COMMAND"")(SETQ QR%1(1+ QR%1))))(DEFUN GET-KEY-INPUT(QR&0 QR10 QRj / QR|@)(PRINC QR&0 QRj)(PRINC"\n"QRj)(PRINC(SETQ QR|@(GETVAL QR10 0.0))QRj)(PRINC"\n"QRj)(SETQ QR|@ QR|@))(DEFUN QR0(QR#0 / QRj QR00)(SETQ QRj(OPEN(STRCAT *PGPG-DIR* QR#0)"w"))(SETQ QR00(READ(STRCAT"input-"*PG-NAME*)))(IF(EVAL QR00)(APPLY QR00(LIST QRj)))(CLOSE QRj))(SETQ *PGPG-RUN* T)(SETQ INS_PATH(STRCAT *PGPG-DIR*"BLOCKS\\"))(SETQ *PG-NAME*(GETVAR"dwgname"))(DEFUN QR$0()(COND((= *PGPG-DEMOMODE*"TRIAL")(PRINC"\nYou can create such applications with this version.")(INITGET 1"Abolt Baseplt Pipebend Tblock")(PRINC"\nSelect the sample: ")(GETKWORD"Abolt/Baseplt/Pipebend/Tblock: "))((= *PGPG-DEMOMODE*"PROF")(PRINC"\nYou require ParaDraft Professional to create such applications.")(INITGET 1"Hexbolt ABaseplt Flange Round Pulley ATblock")(PRINC"\nSelect the sample: ")(GETKWORD"Hex bolt/ABaseplt/Flange/Round Plate/Pulley/ATblock: "))))(DEFUN TO-EVAL()(IF(AND *PGPG-DEMO* *PGPG-CALMODE*)(PROGN(COMMAND"shell"(STRCAT"type "*PGPG-DIR* *PG-NAME*".dem"))(PRINC"\nThese equations calculate the values for the dimensions. ")(QR@@)(GETPOINT"\nPress F1 to toggle screens. Press return to continue"))(QR@@))(EVAL-VALUES))(DEFUN QR$()(IF *PGPG-DEMO*(SETQ *PG-NAME*(QR$0))(SETQ *PG-NAME*(GETVAL"\Enter geometry name: "*PG-NAME*))))(DEFUN C:PGRUN()(SETQ *PGPG-DEMO* NIL *PGPG-EXPERT* NIL *PGPG-CALMODE* NIL)(PRINC"\nPGRUN - ParaDraft Run Time Module is already loaded")(PRINC))(DEFUN C:PGDEMO()(SETQ *PGPG-DEMO* T *PGPG-EXPERT* T *PGPG-CALMODE*"CALC")(MENUCMD"P7=P7b")(PRINC"\nTo run a sample application, use DEMO menu options.")(PRINC))(DEFUN C:PGCUSTOM()(QR$)(COMMAND"shell"(STRCAT *PGPG-DIR*"pgcustom "*PGPG-DIR*" "*PG-NAME*" pgcustom.lsp"))(LOAD(STRCAT *PGPG-DIR*"pgcustom"))(PRINC))(DEFUN C:PGCAL(/ QRl# QRO0)(SETQ QRl# *PGPG-EXPERT* QRO0 *PGPG-CALMODE*)(SETQ *PG-NAME*(QR$)*PGPG-EXPERT* T)(INITGET 1"Basic Pgcal")(IF(="Pgcal"(GETKWORD"\nBasic or PGCAL (B/P) : "))(SETQ *PGPG-CALMODE*"CALC")(SETQ *PGPG-CALMODE*"BASIC"))(TO-EVAL)(QR?0)(SETQ *PGPG-EXPERT* QRl# *PGPG-CALMODE* QRO0)(GETPOINT"Press return to continue")(COMMAND"redraw")(PRINC))(DEFUN C:PGDEBUG()(LOAD(STRCAT *PGPG-DIR*"help/"(SETQ *PG-NAME*(QR$)))))(DEFUN C:PGDATA()(QR$)(COMMAND"EDIT"(STRCAT *PGPG-DIR* *PG-NAME*".dat")))(DEFUN TELL-PG-SETTING(QR@)(GC)(TEXTSCR)(PRINC"\n")(PRINC QR@)(PRINC"PGRUN runtime settings: ")(REPEAT(STRLEN QR@)(PRINC" "))(PRINC"\n Automatic Mode : ")(IF *PGPG-EXPERT*(PROGN(PRINC"ON")(IF *PGPG-CALMODE*(PROGN(PRINC"\nProgram used for calculating dimensions: ")(PRINC(COND((= *PGPG-CALMODE*"CALC")"PGCAL program")((= *PGPG-CALMODE*"BASIC")"BASIC program")(T"Executable program"))))(PRINC"\nYou must give all dimensions values.")))(PRINC"OFF"))(PRINC))(DEFUN C:LETMETRY()(SETQ *PGPG-CALMODE* NIL *PGPG-EXPERT* T)(PRINC"\nNow you can give your own values.")(C:PGDRAW)(PRINC))(DEFUN C:USEDEFAULT()(SETQ *PGPG-CALMODE*"CALC"*PGPG-EXPERT* T)(PRINC"\nNow default values will be used.")(C:PGDRAW)(PRINC))(DEFUN C:TRIALDEMO()(SETQ *PGPG-DEMOMODE*"TRIAL")(PRINC"\nParaDraft Trial version demo")(C:PGDRAW)(PRINC))(SETQ *PGPG-DEMOMODE*"PROF")(DEFUN C:PROFDEMO()(SETQ *PGPG-DEMOMODE*"PROF")(PRINC"\nParaDraft Professional demo")(C:PGDRAW)(PRINC))(DEFUN QR|0()(PRINC"\nWhat is Automatic Mode?")(PRINC"\n Each ParaDraft application draws the geometry after taking")(PRINC"\n the required dimension values from you. You can give these")(PRINC"\n values individually, or get them computed from the specified")(PRINC"\n formulae using PGCAL formula calculator. By default, every")(PRINC"\n time you run a ParaDraft application, you have to make the")(PRINC"\n choice between the two options.")(PRINC"\n By setting the automatic mode ON, you can ")(PRINC"\n select one of the two choices for the rest of the session."))(DEFUN C:PGSET(/ QR%0)(PRINC"\nPGRUN settings: ")(TELL-PG-SETTING"Current")(PRINC"\nPlease give new PGRUN setting: ")(SETQ QR%0"Help")(WHILE(= QR%0"Help")(INITGET 1"Yes No Help")(SETQ QR%0(GETKWORD"\nDo you want to set Automatic mode ON (Yes/No/Help) : "))(IF(= QR%0"Help")(QR|0)))(SETQ *PGPG-EXPERT*(="Yes"QR%0))(IF *PGPG-EXPERT*(QR#))(TELL-PG-SETTING"New"))(DEFUN C:PGDRAW()(SETQ *PG-NAME*(QR$))(TO-EVAL)(LOAD(STRCAT *PGPG-DIR* *PG-NAME*)))(DEFUN C:PGDIR(/ QRl#)(SETQ QRl#(GETVAL"\nGeometry name: "*PG-NAME*))(COMMAND"shell"(STRCAT"dir "*PGPG-DIR* QRl#".lsp/p/w"))(PRINC))(DEFUN C:PGINSERT(/ QR?j)(SETQ *PG-NAME*(QR$))(INITGET 1)(SETQ QR?j(GETPOINT"\nInsertion point: "))(INSERT-PARENT QR?j))(DEFUN C:PGMANAGE(/ QR@ QR?$)(SETQ QR@(QR$))(INITGET 1"Copy Delete Rename")(SETQ QRj$(GETKWORD"Copy/Delete/Rename: "))(COND((= QRj$"Copy")(SETQ QR?$(GETSTRING"\nTo be copied as: "))(COMMAND"shell"(STRCAT *PGPG-DIR*"copapp"" "QR@" "QR?$" "*PGPG-DIR*)))((= QRj$"Delete")(COMMAND"shell"(STRCAT *PGPG-DIR*"remapp"" "QR@" "*PGPG-DIR*)))((= QRj$"Rename")(SETQ QR?$(GETSTRING"\nTo be renamed as: "))(COMMAND"shell"(STRCAT *PGPG-DIR*"renapp"" "QR@" "QR?$" "*PGPG-DIR*)))))(DEFUN QR@j(QR@)(IF(FINDFILE(STRCAT *PGPG-DIR* QR@".lsp"))(PROGN(TERPRI)(SETQ QRj(OPEN(STRCAT *PGPG-DIR* QR@".lsp")"r"))(REPEAT 4(READ-LINE QRj))(PRINC(READ-LINE QRj))(CLOSE QRj))(PRINC"\nLISP PgProgram not found")))(DEFUN C:PGHELP()(IF *PGPG-DEMO*(PROGN(COMMAND"shell"(STRCAT"type "*PGPG-DIR*"pgdemo.msg"))(GETPOINT"\nPress return to continue.... ")))(PRINC"\nEnter command PGDRAW to run an application ,")(PRINC"\n PGSHOW to view the slide")(IF *PGPG-DEMO*(PRINC"\n LETMETRY to give your own values to dimensions.")(PROGN(PRINC"\n PGDEBUG to run the debug program")(PRINC"\n PGEVAL to calculate the parameters")(PRINC"\n and, PGSET to change the parameter calculation method.")))(PRINC))(IF(/=(STRCASE(GETVAR"MENUNAME"))(STRCASE(STRCAT *PGPG-DIR*"pgmenu")))(C:PGHELP))(PRINC)
-
