home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY02.LSP next >
Encoding:
Text File  |  1988-01-04  |  202 b   |  9 lines
  1. (defun HJ02 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (getpoint "╩Σ╚δ╧▀╢╬╡─╞≡╩╝╡π: "))
  4. (setq w (getreal "╩Σ╚δ╛α└δ: "))
  5. (setq pt2 (list (+ (car pt1) w) (cadr pt1)))
  6. (command "line" pt1 pt2 "")
  7. )
  8. (hj02)
  9.