CODE00：図面情報を登録
2023年04月29日
;図面作図情報
;+++++++++++++
(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
