Jw_cad 使い方.com

エクセルで自動作図をする流れは、以下になります。

 

１　元になるDXFデータをワークシートに取り込む
２　作図したい図に関するDXFデータを追加する
３　テキストデータ（DXFデータ）に戻す

 

そこで、１のDXFデータをワークシートに取り込む方法を解説します。

DXFデータをワークシートに取り込むマクロ

今回は、簡単にするため、１行目と２行目だけ取り込む方法です。

 

Sub test()
Dim buf

Open "D:\LINE.dxf" For Input As #1
Line Input #1, buf
Debug.Print buf
Line Input #1, buf
Debug.Print buf
Close #1

End Sub

 

コードの解説

ポイントは、OPENステートメントと、LINE INPUT #1　ステートメントです。
LINE　INPUT　＃１　で、１行読み込みます。
これを今回は、Debug.Printで、イミディエイトウィンドウに書き出しました。
Open・・・は、パス名＋ファイル名のところだけ変えれば、あとは共通で使えます。

動画解説

動画で解説しましたので、参考にして下さい。

 

 

　ツイート