;funcion dtr para convertir grados a radianes
;funcion rtd para convertir radianes a grados
(vmon) ;esto no hace falta.
(defun gar (a)
(* pi (/ a 180.0))
)
;
(defun rag (a)
(/ (* a 180.0) pi)
)
;
(defun c:7 ()
(setvar "cmdecho" 0)
(command "_style" "_STANDARD" "ARIAL"  0.1 0.7 0 "" "")  
(princ "\n\tESTILO STANDARD ARIAL 0.10")
(princ)
)
;
(defun c:8 ()
(setvar "cmdecho" 0)
(command "_style" "_STANDARD" "ARIAL"  0.15 0.7 0 "" "")  
(princ "\n\tESTILO STANDARD ARIAL 0.25")
(princ)
)

;
(defun c:9 ()
(setvar "cmdecho" 0)
(command "_style" "_STANDARD" "ARIAL"  0.4 0.7 0 "" "")
(princ "\n\tESTILO STANDARD ARIAL 0.40")
(princ)
)
(defun c:10 ()
(setvar "cmdecho" 0)
(command "_style" "corte" "ARIAL BLACK"  0.4 0.7 0 "" "")
(princ "\n\tESTILO CORTE VINETA BT 0.40")
(princ)
)
;
(defun c:T0 ()
(setvar "cmdecho" 0)
(command "_style" "_STANDARD" "ARIAL"  0.0 "" "" "" "")
(princ "\n\tESTILO sTANDARD ARIAL 0.00")
)
;
(defun c:Tw ()
(setvar "cmdecho" 0)
(command "style" "FLECHA" "WINGDINGS 3"  1.0 "" "" "" "")
(princ "\n\tESTILO sTANDARD ARIAL 0.00")
)
;
(defun c:0 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.00 0.00 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.00")
(menucmd "S=PLINE")
(COMMAND "_PLINE")
(princ)
)
;
(defun c:1 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.01 0.01 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.01")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)
;
(defun c:2 ()
(setvar "cmdecho" 0)
(command "_PLINE"  "0,0" "_W" 0.02 0.02 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.02")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)

;
(defun c:3 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.03 0.03 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.03")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)
;
(defun c:4 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.04 0.04 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.04")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)
;
(defun c:5 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.05 0.05 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.05")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)
;
(defun c:6 ()
(setvar "cmdecho" 0)
(command "_PLINE" "0,0" "_W" 0.06 0.06 "1,0" "")
(COMMAND "_erase" "1,0" "")
(princ "\n\tPOLILINEA 0.06")
(menucmd "S=PLINE")
(Command "_pline")   
(princ)
)
;

(defun c:W ()
(setvar "cmdecho" 0)
(command "_UCS" "")
(Command "_Plan" "")
(Command "_Shademode" 2) 
)
;
(defun c:F ()
(Setvar "OSMODE" 161)
)