(defun c:c4 () (command "chamfer" "d" "4.573" "4.573" "chamfer"))
(defun c:zw () (command "zoom" "w"))
(defun c:ze () (command "zoom" "e"))
(defun c:za () (command "zoom" "a"))
(defun c:f () (command "fillet" "r" "0" "fillet"))
(defun c:r () (command "rotate"))
(defun c:o () (command "offset"))
(defun c:t () (command "trim" ))
(defun c:jk () (command "insert" "jkchop"))
(defun c:et () (command "extend"))
(defun c:x () (command "explode"))
(defun c:p () (command "pan"))
(defun c:i () (command "insert"))
(defun c:w () (command "wblock"))
(defun c:b () (command "block"))
(defun c:v () (command "view"))
(defun c:l () (command "line"))
(defun c:d () (command "dtext"))
(defun c:ci () (command "circle"))
(defun c:a () (command "array"))
(defun c:br () (command "break"))
(defun c:n () (command "change"))
(defun c:e () (command "erase"))
(defun c:mi () (command "mirror"))
(defun c:ar () (command "area"))
(defun c:di () (command "dist"))
(defun c:li () (command "list"))
(defun c:mi () (command "mirror"))
(defun c:sc () (command "scale"))
(defun c:ch () (command "chamfer"))
(defun c:m () (command "move"))
(defun c:la () (command "layer"))
(defun c:c () (command "copy"))
(defun c:zc () (command "zoom" "c"))
(defun c:ug () (command "insert" "ugchop"))
(defun c:neo () (command "insert" "neochop"))
(defun c:zana () (command "insert" "zanachop"))
(defun c:cp1z () (command "insert" "cp1_zana"))
(defun c:cp2z () (command "insert" "cp2_zana"))
(defun c:cpfz () (command "insert" "cpf_zana"))
(defun c:cppz () (command "insert" "cpp_zana"))
(defun c:cp1n () (command "insert" "cp1_neo"))
(defun c:cppn () (command "insert" "cpp_neo"))
(defun c:cpfn () (command "insert" "cpf_neo"))
(defun c:tez () (command " insert" "tegak_z"))
(defun c:taz () (command " insert" "tapak_z"))
(defun c:laz () (command " insert" "lantai_z"))
(defun c:o1 () (command "offset" ".792"))
(defun c:o2 () (command "offset" "1.584"))
(defun c:o4 () (command "offset" "3.168"))
(defun c:o1000 () (command "offset" "1"))
(defun c:o500 () (command "offset" ".5"))
(defun c:o400 () (command "offset" ".4"))
(defun c:o300 () (command "offset" ".3"))
(defun c:o200 () (command "offset" ".2"))
(defun c:o250 () (command "offset" ".25"))
(defun c:o100 () (command "offset" ".1"))
(defun c:o2000 () (command "offset" "2"))
(defun c:o3000 () (command "offset" "3"))
(defun c:o750 () (command "offset" ".75"))
(defun c:dd () (command "dtext" "c"))
(defun c:arrow () (command "insert" "arrow"))
(defun c:z () (command "zoom"))