;
;    Generic Cadd Commands for AutoCAD R14
;    Author Alan James Wooldridge
;    (c) 2000
;
;    Date of Last Revision 23rd January 2000
;

(defun C:DN () (command "DIST" "NEAREST") (PRIN1))

(defun C:MP () (command "MULTIPLE POINT") (PRIN1))

(defun C:NP () (command "NPURGE") (PRIN1))

(defun C:RD () (command "REDRAW") (PRIN1))

;
;    DRAW
;

;    AutoCAD Command Alias + Extras

;    Alias L = LINE

(defun C:LC () (command "LINE" "CENTER") (PRIN1))

;   (defun C:LE () (command "line" "endpoint") (prin1))
;   (defun C:LI () (command "LINE" "INTERSECTION") (PRIN1))

(defun C:LIN () (command "LINE" "INSERT") (PRIN1))
(defun C:LM () (command "LINE" "MIDPOINT" ) (PRIN1))
(defun C:LN () (command "LINE" "NEAREST") (PRIN1))
(defun C:LP () (command "LINE" "PER") (PRIN1))
(defun C:LQ () (command "LINE" "QUAD" ) (PRIN1))
  
;
;    SNAPS
;

;    Generic Cadd Commands ( Snaps with Line )

(defun C:SN () (command "LINE" "CENTER") (PRIN1))
(defun C:SC () (command "line" "endpoint") (prin1))

(defun C:NP () (command "LINE" "NEAREST") (PRIN1))

;    Generic Cadd SG Snap to Grid no command at moment

(defun C:SI () (command "LINE" "INTERSECTION") (PRIN1))

(defun C:SM () (command "LINE" "MIDPOINT" ) (PRIN1))

;    Generic CADD SP = Snap Perpendicular
;    AutoCAD Alias already defined for SP = SPELL

(defun C:PERP () (command "LINE" "PER") (PRIN1))

;    AutoCAD Like Alias SQ = Snap to Quadrent

(defun C:SQ () (command "LINE" "QUAD" ) (PRIN1))

(defun C:RP () (command "POLYGON") (PRIN1))

;
;    TRIMS
;

(defun C:FC () (command "FILLET" "C") (PRIN1))
(defun C:FR () (command "FILLET" "R") (PRIN1))

(defun C:CF () (command "CHAMFER") (PRIN1))
(defun C:RM () (command "TRIM") (PRIN1))
(defun C:TL () (command "TRIM" "L") (PRIN1))
(defun C:TC () (command "TRIM" "C") (PRIN1))

;
;    CONSTRAINTS
;

;
;    EDIT2S
;

(defun C:CHC () (command "CHANGE" "C") (PRIN1))
(defun C:CHL () (command "CHANGE" "L") (PRIN1))
(defun C:CHP () (command "CHANGE" "P") (PRIN1))
(defun C:CHTL () (command "CHANGE" "L" "" "" "" "" "" "") (PRIN1))
(defun C:CHTP () (command "CHANGE" "P" "" "" "" "" "" "") (PRIN1))

(defun C:CC () (command "COPY" "C") (PRIN1))
(defun C:CW () (command "COPY" "W") (PRIN1))
(defun C:CL () (command "COPY" "L") (PRIN1))

(defun C:EC () (command "ERASE" "C") (PRIN1))
;  (defun C:EL () (command "ERASE" "L") (PRIN1))


(defun C:MIC () (command "MIRROR" "C") (PRIN1))
(defun C:MIW () (command "MIRROR" "W") (PRIN1))

(defun C:MC () (command "MOVE" "C") (PRIN1))
;  (defun C:ML () (command "MOVE" "L") (PRIN1))
(defun C:MW () (command "MOVE" "W") (PRIN1))

(defun C:RT () (command "ROTATE") (PRIN1))
(defun C:RL () (command "ROTATE" "L") (PRIN1))

;
;    SHORTCUTS
;

(defun C:WG () (command "CHANGE" "W") (PRIN1))
(defun C:WC () (command "COPY" "W") (PRIN1))
(defun C:WM () (command "MOVE" "W") (PRIN1))
(defun C:WR () (command "ROTATE" "W") (PRIN1))
(defun C:WZ () (command "SCALE" "W") (PRIN1))

;  Note Alias WE already assigned for WEDGE
;  Use EW Erase Window

(defun C:EW () (command "ERASE" "W") (PRIN1))

;
;    TEXT
;

;    AutoCAD Hidden Commands

(defun C:TE () (command "TEXT") (PRIN1))
(defun C:TC () (command "TEXT" "C") (PRIN1))
(defun C:TM () (command "TEXT" "M") (PRIN1))

;
;    ATTRIBUTES
;

;
;    COMPONENTS
;

;
;    ZOOMS
;

;    Generic Cadd Commands 

(defun C:ZA () (command "ZOOM" "A") (PRIN1))
(defun C:ZI () (command "ZOOM" "1.34X") (PRIN1))
(defun C:ZL () (command "ZOOM" "E") (PRIN1))
(defun C:ZO () (command "ZOOM" ".75X") (PRIN1))
(defun C:ZP () (command "ZOOM" "P") (PRIN1))
(defun C:ZW () (command "ZOOM" "W") (PRIN1))
(defun C:ZX () (command "ZOOM" ".75X") (PRIN1))

;    AutoCAD Command Alias

(defun C:ZC () (command "ZOOM" "C") (PRIN1))
(defun C:ZE () (command "ZOOM" "E") (PRIN1))
(defun C:ZEX () (command "ZOOM" "E" "ZOOM" ".75X") (PRIN1))

;
;    DIMENSIONS
;

;
;    LAYERS
;

(defun C:OFF () (command  "LAYER" "OFF") (PRIN1))
(defun C:ON () (command  "LAYER" "ON") (PRIN1))
(defun C:LL () (command "LAYER" "?" "" "") (PRIN1))

;
;    HATCH / FILL
;

;
;    DISPLAY
;

;
;    UTILITIES
;

;
;    FILE
;

(defun C:QS () (command "_QSAVE") (PRIN1))
(defun C:SV () (command "SAVE" "") (PRIN1))

;
;    MENUS
;

;
;    CONVERT
;