home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY30.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  325 b   |  12 lines
  1. (DEFUN HJ01 ()
  2.  (SETVAR "CMDECHO" 0)
  3.  (SETQ PT1 (OSNAP (GETPOINT "╤í╘±╒Γ╠⌡╧▀╔╧╡─╥╗╡π: ") "nea"))
  4.  (SETQ PT2 (OSNAP (GETPOINT "╤í╘±╒Γ╠⌡╧▀╔╧╡─┴φ╥╗╡π: ") "mid"))
  5.  (SETQ L (GETREAL "╩Σ╚δ╧▀╢╬╡─│ñ╢╚: "))
  6.  (SETQ A (ANGLE PT1 PT2))
  7.  (SETQ A (+ A 1.5708))
  8.  (SETQ PT3 (POLAR PT2 A L))
  9.  (COMMAND "LINE" PT2 PT3 "")
  10. )
  11. (hJ01)
  12.