動作確認用に、Shape で描画します。(2017/11/02 追加）
※文字位置は、かなりずれます。（特に回転した文字列）
※テストボタンは BricsCAD 用のため、動かないようにコメントアウトしています。
BricsCAD_Db ... 、BricsCAD_App ... TypeLibrary を参照設定に追加し、コメントを外すと動くようになります。
他のCADの場合、若干の修正が必要です。CAD 上に図形が作成されるようになります。
■ダウンロード
DxfReader3.xlsm
Excel DXF Reader (2017/10/24～2017/11/03)
Excel VBA で DXF ファイルを読むサンプルです。
・取得図形は、LINE、LWPOLYLINE、CIRCLE、ARC、INSERT、ATTRIB、ELIPPSE のみ
・LWPOLYLINE を、LINE、ARC に変換
・INSERT の内部図形を、LINE、CIRCLE、ARC、TEXT に変換
※ファイルの読み込みは、"ADODB.Stream"を使っています。
2017/11/03
・背景を描く範囲の指定が間違っていたのを手直し。
・描画速度を若干高速に。
2017/11/02
・ELLIPSE を追加。
・3D 回転された図形に対応
・テスト用に Shape での描画を追加。
動作確認用に、Shape で描画します。(2017/11/02 追加）
※文字位置は、かなりずれます。（特に回転した文字列）
※テストボタンは BricsCAD 用のため、動かないようにコメントアウトしています。
BricsCAD_Db ... 、BricsCAD_App ... TypeLibrary を参照設定に追加し、コメントを外すと動くようになります。
他のCADの場合、若干の修正が必要です。CAD 上に図形が作成されるようになります。
■ダウンロード
DxfReader3.xlsm