Autocad Slot Command

Autocad Slot Command
Autocad Slot Command Tool

Feel free to download any of the AutoCAD LISP routines, AutoCAD blocks, AutoCAD details, text styles or AutoCAD hatch patterns. We have a great range of DWG files, we know you will love. They're all great drafting resources and they are all free! Learn AutoCAD LT hotkeys and commands with the AutoCAD LT Shortcut Keyboard guide to help you work faster and be more efficient while using AutoCAD LT software. OOPS command 16. Will close the two lines with a semicircle. Handy for drawing slots. ERASE and enter selected object and hit enter Docked Tool Bar Array Command Fillet two parrallel lines 17. A connected sequence of of line and arc segments that is treated by AutoCAD as a single object. Mirror Polyline (Pline) MIRRTEXT= 1 Polygon 18.

slot routine

Autocad Slot Command

slot routine

Autocad Slot Command Tool

i have been trying to create a lisp program that will draw a slot but am having problems with it not sure where the problem is
it will not draw the slot to correct size
any help would be appricated
thanks
(defun C:SLOT (/ A B B1 B2 C D PW)
(setq PW (getvar'PLINEWID'))
(initget 1)
(setq B1 (getdist 'nLength of slot: '))
(setq B2 (/ B1 2.0))
(setq B (list B2 0.0))
(initget 1)
(setq C (list 0.0 (getdist 'nWidth of slot: ')))
(initget 1)
(while
(setq A (getpoint 'nInsertion point: '))
(setq D (list (- (car A) (/ (car B) 2)) (- (cadr A) (/ (cadr C) 2))))
(setvar 'PLINEWID' 0)
(command '_.pline'
D
(mapcar '+ D B)
'_a'
(mapcar '+ D B C)
'_l'
(mapcar '+ D C)
'_a'
'_cl')
);while
(setvar 'PLINEWID' PW)
(princ)
)