(defun c:ccc()(princ "\nSelect objects to copy continuously: ")(command "select" "auto" pause)(setq bgroup (ssget "p"))
 (initget 1)(setq ang (getangle "\Angle for copy: "))(initget 1)(setq dist (getdist "\Distance to copy: "))(setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4)))
 (while (/= temp "E")(setq ent (entlast))(command "copy" bgroup "" "0,0" temp)(initget "E")(setq temp (getdist (strcat "\nDistance to Copy/Exit <"(rtos dist)">: ")))
 (if (and temp (/= temp "E"))(setq dist temp))(if (/= temp "E")(progn (setq temp (strcat "@" (rtos dist 2 6) "<" (angtos ang 0 4)) bgroup (ssadd))
 (while (setq ent (entnext ent))(if ent (setq bgroup (ssadd ent bgroup)))))))(setq bgroup nil temp nil ang nil dist nil ent nil)(princ)
)

(defun c:s0()(command "snap" "r" "0,0" "0")(setvar "snapmode" 0)(princ))
(defun c:s160()(command "snap" "r" "0,0" "160")(setvar "snapmode" 0)(princ))
(defun c:s20()(command "snap" "r" "0,0" "20")(setvar "snapmode" 0)(princ))
(defun c:s30()(command "snap" "r" "0,0" "30")(setvar "snapmode" 0)(princ))
(defun c:s45()(command "snap" "r" "0,0" "45")(setvar "snapmode" 0)(princ))
(defun c:s60()(command "snap" "r" "0,0" "60")(setvar "snapmode" 0)(princ))
(defun c:s15()(command "snap" "r" "0,0" "15")(setvar "snapmode" 0)(princ))
(defun c:s75()(command "snap" "r" "0,0" "75")(setvar "snapmode" 0)(princ))

(defun c:on()(command "layer" "on" "*" "")(princ))
(defun c:off()(command "layer" "off" "*" "" "")(princ))

(load "midpick")
(load "match")