home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY26.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  295 b   |  12 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq c (getpoint "╩Σ╚δ╘▓╨─╡π: "))
  4. (setq r1 (getreal "╩Σ╚δ═Γ╘▓░δ╛╢: "))
  5. (setq r2 (getreal "╩Σ╚δ─┌╘▓░δ╛╢: "))
  6. (setq a (getangle "╩Σ╚δ╜╟╢╚: "))
  7. (setq a1 (* a (/ 180 pi)))
  8. (command "insert" "yu" c r1 r2 a1)
  9. (setq r1 nil r2 nil c nil a1 nil)
  10. )
  11. (hj01)
  12.