コプトン光学設計(ロゴ)

レンズ設計・製作、技術・ノウハウ移転サポート

コプトン光学設計コプトン光学設計




設計者コラム

#037 ZEMAXマクロの作成(03)

本日から改元ですね。感慨深いです。
ZEMAXは西暦で日付を取得するマクロ関数が用意されていますが、元号で日付を表示するZEMAXマクロを作ってみました。
光学設計には直接関係ありません。

下記の『ここから』~『ここまで』の間をコピーしてマクロファイルとして保存し、実行すると新元号で実行時の日付が表示されます。

====== ここから ======
# 日付取得
ymd$ = $date()
year$  = $leftstring(ymd$, 4)
month$ = $leftstring(ymd$, 7)
month$ = $rightstring(month$, 2)
date$  = $rightstring(ymd$, 2)

# 令和判定
rflag  = 0
year   = sval(year$)
month  = sval(month$)
if((year >= 2019) & (month >= 5))
 rflag = 1
endif

# 令和変換
reiwa_year = year - 2018
format 02 int
year$ = $str(reiwa_year)

reiwa$ = "令和" + year$ + "年" + month$ + "月" + date$ + "日"
print reiwa$
====== ここまで ======

令和判定ルーチンを組み込んでいますが、使用していません。
サブルーチン化したり、このままマクロに組み込めば2019/05/01以降の条件で、正しく日付が表示されるはずです。