home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD70.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.4 KB  |  37 lines
  1. (defun hdd70 ()
  2. (setvar "CMDECHO" 0) (setvar "lunits" 2) (setvar "luprec" 2)
  3. (command "vslide" "\\house1\\sld\\s70")
  4.               (setq a1 (getstring "\n╤í╘±╝╞╦π╧ε<1-4>╗≥ <.>╜ß╩°: "))
  5.               (cond ((= a1 "1") (ty))
  6.                     ((= a1 "2") (check 'hdd89 "hdd89"))
  7.                     ((= a1 "3") (check 'hdd88 "hdd88"))
  8.                     ((= a1 "4") (check 'hdd87 "hdd87"))
  9.                     ((= a1 ".") (progn (command "redraw") (print "end")))
  10.                                                                    
  11.               )
  12. (setvar "lunits" 4) (setvar "luprec" 4)
  13. )
  14. (defun ty()
  15. (command "vslide" "\\house1\\sld\\s701")
  16.        (command "layer" "On" "B" "s" "B" "off" "A" "")
  17.              (setq AA (getstring "\n╤í╘±▓Θ▒φ╖¿<T>╗≥╝╞╦π╖¿<C>: "))
  18.        (cond ((or (= AA "c") (= AA "C")) (CHECK 'HDD83 "HDD83"))
  19.              ((or (= AA "t") (= AA "T")) (table))
  20.              )
  21. )
  22. (defun table ()
  23. (setq ad "a")
  24. (while (and (/= ad "s") (/= ad "S"))
  25. (setq ac (getstring "\n╩Σ╚δ╤í╘±╧ε<1-5>: "))
  26. (cond ((= ac "1") (command "vslide" "\\house1\\sld\\s707"))
  27.       ((= ac "2") (command "vslide" "\\house1\\sld\\s708"))
  28.       ((= ac "3") (command "vslide" "\\house1\\sld\\s709"))
  29.       ((= ac "4") (command "vslide" "\\house1\\sld\\s7010"))
  30.       ((= ac "5") (command "vslide" "\\house1\\sld\\s7011"))
  31. )
  32. (setq ad (getstring "\n═╦│÷┤╦╧ε╝╞╦π<S>╗≥╝╠╨°╝╞╦π<C>: "))
  33. )
  34. (hdd70)
  35. )
  36. (hdd70)
  37.