home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY05.LSP < prev    next >
Encoding:
Text File  |  1988-02-25  |  573 b   |  18 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq w1 (getreal "╩Σ╚δ╞≡╩╝╡π╡─╛α└δ: "))
  4. (setq w2 (getreal "╩Σ╚δ╧▀╢╬╡─│ñ╢╚: "))
  5. (setq pt1 (getpoint "╩Σ╚δ╞≡╩╝╡π: "))
  6. (setq pt2 (getpoint "╩Σ╚δ╖╜╧≥╡π: "))
  7. (setq pt3 (getpoint "╩Σ╚δ╖╜╧≥╡π: "))
  8. (setq a (angle pt1 pt2))
  9. (setq u1 (angle pt2 pt3))
  10. (setq d (* w1 (cos a))) (setq q (* w2 (cos u1)))
  11. (setq q1 (* w1 (sin a))) (setq q2 (* w2 (sin u1)))
  12. (setq a1 (list (+ (car pt1) d) (+ (cadr pt1) q1)))
  13. (setq b1 (list (+ (car a1) q) (+ (cadr a1) q2)))
  14. (command "line" a1 b1 "")
  15. (setq a1 nil b1 nil w1 nil w2 nil u1 nil)
  16. )
  17. (hj01)
  18.