home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / acadtut.arj / LESS3.EXE / TEST3.LSP < prev   
Encoding:
Lisp/Scheme  |  1990-05-07  |  3.8 KB  |  112 lines
  1. ;lesson3 lisp routine to check answers to CAD lesson #3
  2.  
  3. (defun C:ANSWERS (/ set1 n na text blk an1 )
  4. (prompt "\nPLEASE READ QUESTION #1 BEFORE ANSWERING")
  5. (setq ans1 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #1 <T/F>")))
  6. (if (= ans1 "F") (PROGN(command "text" "1,5.1" "" "F" )
  7.           (command "insert" "ok" "8.08,6.5" "" "" ""))   
  8.            (PROGN(command "text" "1,5.1" "" "T" )
  9.            (command "insert" "bad" "8.08,6.5" "" "" "")))
  10. (redraw)
  11. (Q2)
  12. )
  13.  
  14. (defun q2 ()
  15. (prompt "\nPLEASE READ QUESTION #2 BEFORE ANSWERING")
  16. (setq ans2 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #2 <T/F>")))
  17. (if (= ans2 "F") (PROGN(command "text" "1,4.5" "" "F" )
  18.           (command "insert" "ok" "8.08,6" "" "" ""))   
  19.            (PROGN(command "text" "1,4.5" "" "T" )
  20.            (command "insert" "bad" "8.08,6" "" "" "")))
  21. (REDRAW)
  22. (Q3)
  23. );end defunQ2
  24.  
  25. (defun q3 ()
  26. (prompt "\nPLEASE READ QUESTION #3 BEFORE ANSWERING")
  27. (setq ans3 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #3 <T/F>")))
  28. (if (= ans3 "F") (PROGN(command "text" "1,3.9" "" "F" )
  29.           (command "insert" "ok" "8.08,5.5" "" "" ""))   
  30.            (PROGN(command "text" "1,3.9" "" "T" )
  31.            (command "insert" "bad" "8.08,5.5" "" "" "")))
  32. (REDRAW)
  33. (q4)
  34. );end defunQ3
  35.  
  36. (defun q4 ()
  37. (prompt "\nPLEASE READ QUESTION #4 BEFORE ANSWERING")
  38. (setq ans4 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #4 <T/F>")))
  39. (if (= ans4 "F") (PROGN(command "text" "1,3.2" "" "F" )
  40.           (command "insert" "ok" "8.08,5" "" "" ""))   
  41.            (PROGN(command "text" "1,3.2" "" "T" )
  42.            (command "insert" "bad" "8.08,5" "" "" "")))
  43. (REDRAW)
  44. (q5)
  45. );end defunQ4
  46.  
  47.  
  48. (defun q5 ()
  49. (prompt "\nPLEASE READ QUESTION #5 BEFORE ANSWERING")
  50. (setq ans5 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #5 ")))
  51. (if (= ans5 "E") (PROGN(command "text" "4.8,5.9" "" ans5 )
  52.           (command "insert" "ok" "8.08,4.5" "" "" ""))   
  53.            (PROGN(command "text" "4.8,5.9" "" ans5 )
  54.            (command "insert" "bad" "8.08,4.5" "" "" "")))
  55. (REDRAW)
  56. (PROMPT "\nPLEASE COMPLETE TASK IN QUESTION #6")
  57. (PROMPT "\nTHEN TYPE <CONT6> WHEN INSTRUCTED TO DO SO IN THE INSTRUCTIONS")
  58. );end defunQ5
  59.  
  60. (defun c:cont6 ()
  61. (prompt "\nPLEASE READ QUESTION #6 BEFORE ANSWERING")
  62. (setq ans6 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #6 ")))
  63. (if (= ans6 "8") (PROGN(command "text" "4.8,4.4" "" ans6 )
  64.           (command "insert" "ok" "8.08,4" "" "" ""))   
  65.            (PROGN(command "text" "4.8,4.4" "" ans6 )
  66.            (command "insert" "bad" "8.08,4" "" "" "")))
  67. (REDRAW)
  68. (q7)
  69. );end defun6
  70.  
  71. (defun q7 ()
  72. (prompt "\nPLEASE READ QUESTION #7 BEFORE ANSWERING")
  73. (setq ans7 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #7 <T/F>")))
  74. (if (= ans7 "F") (PROGN(command "text" "4.8,3.5" "" "F" )
  75.           (command "insert" "ok" "8.08,3.5" "" "" ""))   
  76.            (PROGN(command "text" "4.8,3.5" "" "T" )
  77.            (command "insert" "bad" "8.08,3.5" "" "" "")))
  78. (REDRAW)
  79. (q8)
  80. );end defunQ7
  81.  
  82. (defun q8 ()
  83. (prompt "\nPLEASE READ QUESTION #8 BEFORE ANSWERING")
  84. (setq ans8 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #8 ")))
  85. (if (= ans8 "A") (PROGN(command "text" "4.8,2.7" "" ans8 )
  86.           (command "insert" "ok" "8.08,3" "" "" ""))   
  87.            (PROGN(command "text" "4.8,2.7" "" ans8 )
  88.            (command "insert" "bad" "8.08,3" "" "" "")))
  89. (REDRAW)
  90. (q9)
  91. );end 8 
  92.  
  93. (defun q9 ()
  94. (prompt "\nPLEASE READ QUESTION #9 BEFORE ANSWERING")
  95. (setq ans11 (strcase(getstring "\nENTER YOUR ANSWER TO QUESTION #9" )))
  96. (if (OR (= ans11 "A")
  97.         (= ans11 "B")
  98.         (= ans11 "C")
  99.     )    
  100. (command "insert" "closing" "5.23,1.47" "" "" ""))   
  101. (REDRAW)
  102. (command "end" )
  103. );end defun9
  104. ;______________________________________________________
  105.  
  106. (defun c:ldl ()
  107. (load"lesson3")
  108. )
  109. (defun c:el ()
  110. (command "blue" "lesson3.lsp" )
  111. )
  112.