;恾柺嶌恾忣曬
;+++++++++++++
(defun C:CODE00 ()
;+++++++++++++
    ;------ 嶌恾扨埵搊榐
    (setq 嶌恾扨埵m (getstring (strcat "\n嶌恾扨埵 [ M:儊乕僩儖/MM:儈儕儊乕僩儖 ]:")))
    (if (equal (strcase 嶌恾扨埵m T) "m")
        (setq 嶌恾扨埵 1
                學悢 1
                柺愊學悢 1
                嶌恾 "m丗儊乕僩儖")
        (setq 嶌恾扨埵 1000
                學悢 0.001
                柺愊學悢 0.000001
                嶌恾 "mm丗儈儕儊乕僩儖")
    )
    ;------ 恾柺弅広搊榐
    (setq 恾柺弅広 (getstring (strcat "\n恾柺弅広 1 / <  >:")))
    ;------ 暥帤崅搊榐
    (setq 暥帤崅 (getstring (strcat "\n暥帤崅(mm) <  >:")))
    ;------ TextSize傪寁嶼
    (setq 攞棪 (* 嶌恾扨埵 (atof 恾柺弅広)  0.001))
    (setvar "TextSize" (* 攞棪 (atof 暥帤崅)))
    ;------ Msg
    (alert (strcat "嶌恾扨埵丗[ " 嶌恾 " ]"
                      "\n恾柺弅広 S=1丗[ " 恾柺弅広 " ]"
                      "\n暥帤崅丗[ " 暥帤崅 " ] mm"))	
    ;------
    (Princ)
);End

