home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / LP / LMDAT.LSP < prev    next >
Encoding:
Text File  |  1987-08-28  |  920 b   |  48 lines
  1. (defun C:LMDAT ( )
  2. (setq f (open "LIM.DAT" "w"))
  3. (setq h0 (getreal "please input floor level<H0>:"))
  4. (prin1 gg0 f)
  5. (setq zs "1*1")
  6. (setq zs1 "1*1")
  7. (setq gg "2700")
  8. (setq gg1 "2700")
  9. (setq ggi "900")
  10. (setq ggi1 "900")
  11. (while (/= zs "-1")
  12. (setq zs (getstring (strcat "please input floor<" zs ">:")))
  13. (if (= zs "") (progn
  14.           (setq zs zs1)
  15.           (print zs f)
  16.           )
  17.           (progn
  18.           (print zs f)
  19.           (setq zs1 zs)
  20.           )
  21. )
  22. (if (/= zs "-1") (progn
  23.           (setq gg (getstring (strcat "please input height of the floor<" gg ">:")))
  24. (if (= gg "") (progn
  25.         (setq gg gg1)
  26.         (print gg f)
  27.                  )
  28.         (progn
  29.         (print gg f)
  30.         (setq gg1 gg)
  31.         )
  32. )
  33.           (setq ggi (getstring (strcat "please input start height of the window<" ggi ":>")))
  34. (if (= ggi "") (progn
  35.         (setq ggi ggi1)
  36.         (print ggi f)
  37.         )
  38.         (progn
  39.         (print ggi f)
  40.         (setq ggi1 ggi)
  41.         )
  42. )
  43.           )
  44. )
  45. )
  46. (close f)
  47. )
  48.