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