home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY36.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  245 b   |  10 lines
  1. (DEFUN hj01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (getpoint "╩Σ╚δ╡┌╥╗╡π: "))
  4. (setq a (getreal "╩Σ╚δX╓ß╖╜╧≥╡─╛α└δ: "))
  5. (setq b (getreal "╩Σ╚δY╓ß╖╜╧≥╡─╛α└δ: "))
  6. (setq pt (list (+ (car pt1) a) (+ (cadr pt1) b)))
  7. (command "point" pt)
  8. )
  9. (hj01)
  10.