home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY28.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  308 b   |  13 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq c(getpoint "╩Σ╚δ╓╨╨─╡π: "))
  4. (setq m(getint "╩Σ╚δ╩²: "))
  5. (setq r1(getreal "╩Σ╚δ│ñ░δ╛╢: "))
  6. (setq r2(getreal "╩Σ╚δ╢╠░δ╛╢: "))
  7. (setq n(/ 180 m))
  8. (command "insert" "yu" c r1 r2 "")
  9. (command "array" "l" "" "c" c n m "Y")
  10.  (setq r1 nil r2 nil c nil)
  11. )
  12. (hj01)
  13.