home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 3.ddi / LPM / YSG.LSP < prev   
Encoding:
Text File  |  1991-09-18  |  743 b   |  22 lines
  1. (defun C:YSG();1989-2-24
  2. (setq a (getpoint "\nplease input first point:"))
  3. (setq b1 (getdist a "\nplease input DIST or second point:"))
  4. (if (= b1 nil) (setq b1 3000))
  5. (setq b (polar a (* pi -0.5) b1))
  6. (setq fab (angle a b))
  7. (setq fa1 (- fab 1.57079633))
  8. (setq dx (* 75 (cos fa1)))
  9. (setq dy (* 75 (sin fa1)))
  10. (setq a1 (list (+ (car a) dx) (+ (cadr a) dy)))
  11. (setq b1 (list (+ (car b) dx) (+ (cadr b) dy)))
  12. (setq fa1 (+ fab 1.57079633))
  13. (setq dx (* 75 (cos fa1)))
  14. (setq dy (* 75 (sin fa1)))
  15. (setq a2 (list (+ (car a) dx) (+ (cadr a) dy)))
  16. (setq b2 (list (+ (car b) dx) (+ (cadr b) dy)))
  17. (command "insert" (strcat "j2k" (chr 92) "ysg") a 1 1 0)
  18. (command "line" a1 b1 "")
  19. (command "line" a2 b2 "")
  20. (command "line" b1 b2 "")
  21. )
  22.