home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY14.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  396 b   |  15 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq d (getreal "╩Σ╚δ╝Σ╕⌠: "))
  4. (setq pt1 (getpoint "╩Σ╚δ╞≡╩╝╡π: "))
  5. (setq pt2 (getpoint "╩Σ╚δ╓╒╡π: "))
  6. (setq a (angle pt1 pt2))
  7. (setq q (* d (sin a)))
  8. (setq q1 (* d (cos a)))
  9. (setq pt3 (list (- (car pt1) q) (+ (cadr pt1) q1)))
  10. (setq pt4 (list (- (car pt2) q) (+ (cadr pt2) q1)))
  11. (command "line" pt1 pt2 "")
  12. (command "line" pt3 pt4 "")
  13. )
  14. (hj01)
  15.