home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / LSP2 / HM30.LSP < prev    next >
Encoding:
Text File  |  1990-03-12  |  1.8 KB  |  47 lines
  1. (defun CR()
  2. (setvar "cmdecho" 0)
  3. (setvar "blipmode" 0)
  4. (MENUCMD "S=IN1")
  5. (setq w1 (getreal "\n╟δ╩Σ╚δ╘▓═╖╛╪╨╬╦«╞╜╖╜╧≥╡─┐φ╢╚: "))
  6. (while(/= w1 nil)
  7.  (setq w2 (getreal "\n╟δ╩Σ╚δ╘▓═╖╛╪╨╬┤╣╓▒╖╜╧≥╡─┐φ╢╚: "))
  8.  (SETQ W1 (/ W1 2) W2 (/ W2 2))
  9.  (SETQ W1 (* W1 S) W2 (* W2 S))
  10. ; (SETQ R1 (GETREAL "\n╟δ╩Σ╚δ╘▓═╖░δ╛╢: "))
  11.  (setq pt0 (getpoint "\n╟δ╩Σ╚δ╘▓═╖╛╪╨╬╡─╓╨╨─╡π: "))
  12.  (SETQ PT2 (LIST (- (CAR PT0) (- W1 W2)) (+ (CADR PT0) W2)))
  13.  (SETQ PT6 (LIST (- (CAR PT0) (- W1 W2)) (- (CADR PT0) W2)))
  14.  (SETQ PT3 (LIST (CAR PT0) (CADR PT2)))
  15.  (SETQ PT5 (LIST (CAR PT0) (CADR PT6)))
  16.  (SETQ PT1 (LIST (- (CAR PT0) W1) (CADR PT0)))
  17.  (COMMAND "LAYER" "S" "1" "")
  18.  (COMMAND "LINE" (LIST (- (CAR PT1) 2) (CADR PT1)) PT0 "")
  19.  (COMMAND "LINE" (LIST (CAR PT2) (+ (CADR PT2) 2)) (LIST (CAR PT2) (- (CADR PT6) 2)) "")
  20.  (COMMAND "LAYER" "S" "0" "")
  21.  (COMMAND "PLINE" PT5 "W" 0.6 "" PT6 "A" PT2 "L" PT3 "")
  22.  (SETQ LB (LIST (- (CAR PT1) 3) (- (CADR PT6) 3)))
  23.  (SETQ RT (LIST (+ (CAR PT3) 3) (+ (CADR PT3) 3)))
  24.  (COMMAND "MIRROR" "W" LB RT "" PT3 PT5 "N")
  25.  (SETQ PT4 (LIST (+ (CAR PT0) W1) (CADR PT0)))
  26.  (SETQ PT5 (GETPOINT "\n╟δ╩Σ╦«╞╜│▀╧▀╡─╬╗╓├: "))
  27.  (SETQ LX (RTOS (/ (* W1 2) S) 2 0))
  28.  (COMMAND "DIM" "DIMTXT" 0.2 "HOR" PT1 PT4 PT5 LX "EXIT")
  29.  (SETQ PT3 (GETPOINT "\n╟δ╩Σ┤╣╓▒│▀╧▀╡─╬╗╓├: "))
  30.  (SETQ LY (RTOS (/ (* W2 2) S) 2 0))
  31.  (COMMAND "DIM" "DIMTXT" 0.2 "VERT" PT2 PT6 PT3 LY "EXIT")
  32.  (SETQ HD (GETREAL "\n╟δ╩Σ╚δ░σ╡─║±╢╚: "))
  33.  (COND ((/= HD NIL)
  34.   (SETQ PT6 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π1: "))
  35.   (SETQ PT7 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π2: "))
  36.   (COMMAND "LINE" PT6 PT7 "")
  37.   (COMMAND "STYLE" "HZ" "" "" "" "" "" "")
  38.   (SETQ BJ (STRCAT "%%U" "░σ║±=" (RTOS HD 2 0)))
  39.   (COMMAND "TEXT" PT7 7 0 BJ)
  40.   (COMMAND "STYLE" "STANDARD" "" "" "" "" "" "" "")
  41.  ))
  42.  (setq w1 (getreal "\n╝╠╨°╩Σ╚δ╛╪╨╬X╖╜╧≥╡─┐φ╢╚, ╗≥╗╪│╡╜ß╩°: "))
  43.  )
  44. (MENUCMD "S=BAN")
  45. )
  46. (CR)
  47.