home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / 9 / 90lsp.zip / 90.LSP next >
Text File  |  1991-10-22  |  650b  |  20 lines
  1. (DEFUN C:90()
  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 W (/ D 1.414))
  6. (SETQ W1(* W 2))
  7. (SETQ A(+(/ Pi 2)(ANGLE P1 P2)))
  8. (SETQ P3(POLAR P1 A(DISTANCE P1 P2)))
  9. (SETQ A1(+(* Pi 0.75)(ANGLE P1 P2)))
  10. (SETQ P4(POLAR P1 A1 W))
  11. (SETQ A2(+(* Pi 1.5)(ANGLE P1 P2)))
  12. (SETQ P5(POLAR P1 A2(DISTANCE P1 P2)))
  13. (SETQ A3(+(* Pi 1.25)(ANGLE P1 P2)))
  14. (SETQ P6(POLAR P1 A3 W))
  15. (COMMAND "FILLET" "R" W1  "FILLET" P3 P5)
  16. (COMMAND "FILLET" "R" W  "FILLET" P4 P6)
  17. (COMMAND "LINE" P3 P4 "")
  18. (COMMAND "LINE" P5 P6 "")
  19. (COMMAND "FILLET" "R" 0))
  20.