;;; SLOT
;;; BY TG CHRISTMAN
;;; GENERATES A SLOTTED HOLE FROM DIAMETER AND OVERALL LENGTH
(DEFUN BEGINS ()
   (SETQ CNR (GETPOINT "\nCenter of Slotted Hole ? "))
   (SETQ TL (GETREAL "\nTotal Slot Length ? "))
   (SETQ DM (GETREAL "\nSlot Diameter ? "))
   (SETQ RA (GETREAL "\nRotation Angle ? (Hor=0,Ver=90) "))
)
(DEFUN CALCS ()
   (SETQ X (CAR CNR))                          ;   __
   (SETQ Y (CADR CNR))                         ; C/  \
   (SETQ A (- X (/ DM 2)))                     ;  |  |
   (SETQ B (+ X (/ DM 2)))                     ; D|  |
   (SETQ C (+ Y (- (/ TL 2) (/ DM 2))))        ;  \__/
   (SETQ D (- Y (- (/ TL 2) (/ DM 2))))        ;  A  B
   (SETQ RA (- RA 90))
)
(DEFUN POINTS ()
   (SETQ P1 (LIST A C))
   (SETQ P2 (LIST A D))
   (SETQ P3 (LIST B D))
   (SETQ P4 (LIST B C))
)
(DEFUN DRAW ()
   (COMMAND "PLINE" P1 P2 "A" P3 "L" P4 "A" "CL")
)
(DEFUN C:SLOT ()
   (SETQ PLWID (GETVAR "PLINEWID"))
   (SETQ OSM (GETVAR "OSMODE"))
   (SETVAR "OSMODE" 0)
   (SETVAR "PLINEWID" 0)
   (BEGINS)
   (CALCS)
   (POINTS)
   (DRAW)
   (COMMAND "ROTATE" "LAST" "" CNR RA)
   (SETVAR "OSMODE" OSM)
   (SETVAR "PLINEWID" PLWID)
)