国土基本図郭【ターミヤ】

遅ればせながら令和2年3月版のCIMガイドラインを見てますと電線共同溝に関する記述が登場していました。
電線共同溝とCIMとなれば協進エンジニアリング！
電共チームとDEチームががっちりタッグを組んで対応致します！(よね？)


AutoCADで1点をクリックすると地域メッシュコードを割り出して図郭を作図するというツールパレットを以前に作成しました。
同じ要領で国土基本図郭も作図できるなぁ。　と思いながら早3年。
ようやく作成しました。



国土基本図図郭とは？
という方はこちらがとても参考になります。
国土基本図図郭とは？

3文字目と4文字目のアルファベットはこんなコードで取得してみました。
Dim XStr As String = Chr(74 - Int(Px / 30000))
Dim YStr As String = Chr(69 + Int(Py / 40000))
Chr(74)が"J" Chr(69)が"E" を知っていると単純なコードで済みますね。
それではまた。