fc2ブログ

CODE00:図面情報を登録

2023年04月29日
AutoLISP サンプルコード公開Gallery

;図面作図情報
;+++++++++++++
(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

 AutoLispサンプルコード 一覧(インデックス)
関連記事
スポンサーサイト



Gallery担当:山野 ロザリア平久郎
Posted by Gallery担当:山野 ロザリア平久郎