home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / v / vanelsp.zip / VANE.LSP < prev   
Lisp/Scheme  |  1991-12-13  |  686b  |  22 lines
  1. (DEFUN C:vane()
  2. (SETQ P1(OSNAP(GETPOINT "\nInside Corner: ")"quick,inter"))
  3. (SETQ P2(OSNAP(GETPOINT "\nOutside Corner: ")"quick,inter"))
  4. (SETQ D (DISTANCE P1 P2))
  5. (SETQ N (/ D 6))
  6. (SETQ N2 (/ N 3))
  7. (setq ang (angle p1 p2))
  8. (SETQ P7(POLAR P1 ANG N))
  9. (SETQ VA1 (+(* Pi 0.6)(ANGLE P1 P7)))
  10. (SETQ VA2 (+(* Pi 1.4)(ANGLE P1 P7)))
  11. (SETQ P8 (POLAR P7 VA1 N2))
  12. (SETQ P9 (POLAR P7 VA2 N2))
  13. (SETQ P10 (POLAR P1 ANG(* N 2)))
  14. (SETQ P11 (POLAR P1 ANG(* N 3)))
  15. (SETQ P12 (POLAR P1 ANG(* N 4)))
  16. (SETQ P13 (POLAR P1 ANG(* N 5)))
  17. (COMMAND "ARC" P8 P7 P9)
  18. (COMMAND "COPY" P7 "" P7 P10)
  19. (COMMAND "COPY" P10 "" P10 P11)
  20. (COMMAND "COPY" P11 "" P11 P12)
  21. (COMMAND "COPY" P12 "" P12 P13)
  22. )