home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / autocad / geomtol.arj / TAPHOLE.LSP < prev    next >
Text File  |  1993-06-11  |  1KB  |  34 lines
  1. ; CREATED BY ANTONE M. SILVIA - 06/10/93
  2.  
  3. (DEFUN C:TAPHOLE(/ DIA DEEP ANGLE INP P1 P2 P3 P4 P5 P6 P7 P8
  4.             P9 P10 P11)
  5.     (SETQ DIA (GETREAL "PLEASE ENTER DIAMETER: "))
  6.     (SETQ DEEP (GETREAL "PLEASE ENTER HOLE DEPTH: "))
  7.     (SETQ ANGLE (GETREAL "PLEASE ENTER ROTATION ANGLE: "))
  8.     (SETQ INP (GETPOINT "PLEASE PICK INSERTION POINT: "))
  9.     (SETQ ANGLE (/ (* ANGLE PI) 180))
  10.     (SETQ P1 (POLAR INP (- ANGLE (/ PI 2)) (/ DIA 2)))
  11.     (SETQ P2 (POLAR P1 ANGLE DEEP))
  12.     (SETQ P3 (POLAR P2 (+ ANGLE (* (/ PI 6) 2)) (* DIA 0.57735)))
  13.     (SETQ P4 (POLAR P2 (+ ANGLE (/ PI 2)) DIA))
  14.     (SETQ P5 (POLAR P4 (+ ANGLE PI) DEEP))
  15.     (SETQ P6 (POLAR P1 (+ ANGLE (/ PI 2)) 0.06))
  16.     (SETQ P7 (POLAR P2 (+ ANGLE (/ PI 2)) 0.06))
  17.     (SETQ P8 (POLAR P4 (- ANGLE (/ PI 2)) 0.06))
  18.     (SETQ P9 (POLAR P5 (- ANGLE (/ PI 2)) 0.06))
  19.     (SETQ P10 (POLAR INP (+ ANGLE PI) 0.25))
  20.     (SETQ P11 (POLAR INP ANGLE (+ DEEP (+ 0.25 (* DIA 0.29)))))
  21.     (COMMAND "LINE" P1 P2 P4 P5 "")
  22.     (COMMAND "LINE" P2 P3 P4 "")
  23.     (COMMAND "LINE" P6 P7 "")
  24.     (COMMAND "LINE" P8 P9 "")
  25.     (COMMAND "LINE" P10 P11 "")
  26.     (COMMAND "CHANGE" "L" "" "P" "LA" "CEN" ""))
  27.  
  28. (DEFUN C:PTHOLE(/ INP NOM)
  29.     (SETQ NOM (GETREAL "PLEASE ENTER THE NOMINAL SIZE: "))
  30.     (SETQ INP (GETPOINT "PLEASE PICK THE CENTER POINT: "))
  31.     (COMMAND "CIRCLE" INP "D" (- NOM 0.09))
  32.     (COMMAND "CIRCLE" INP "D" NOM)
  33.     (COMMAND "CHANGE" "L" "" "P" "LA" "HID" ""))
  34.