２月も終わりですのでとりあえず
現在作成中のおりぢなる2D-ドローイングツール「AFD」の途中経過です。
中途半端状態なので実行プログラムのみです。
興味のある方のみ自由に触ってみて下さい。
20220228a
http://afsoft.jp/test/afd_test.zip
ZIP圧縮 3.6MB
Delphi 10.3.3 FMX で作っています。

設定メニューにローカル座標関連、属性取得関連、を追加しました。
このツールでは、各レイヤーに色・線種・線幅を設定し、要素データの色、線種、線幅で、レイヤー色、レイヤー線種、レイヤー線幅、という指定が可能ですが（AutoCAD の ByLayerみたいなもの）、属性取得の結果、レイヤー何ちゃらの場合、レイヤーが違うことにより見え方が違う、ということが有り得ますのでご注意下さい。

触ってみて　笑って頂ければ幸いです。