Скачать или смотреть エクセルで自動作図 その７【Jw_cad 使い方.com】

前回、直線２本のデータをワークシートに書き込みました。
これをテキストファイルに書き込みます。
このファイルが、DXFデータとしてJw_cadで読み込むことができます。

■ワークシート上のDXFデータをテキストファイルに書き込コード

前回のコードに追加します。

Sub test7()
Dim i As Long, j As Long
Dim RowEnd As Long
Dim Row_Enti As Long
Dim Xcod_S, Ycod_S
Dim Xcod_E, Ycod_E
Dim cnt As Long

RowEnd = Range("A1").End(xlDown).Row
For j = 1 To RowEnd
If Cells(j, 1) = "ENTITIES" Then
Row_Enti = j
Exit For
End If
Next j

With Worksheets("座標と番号")
For i = 1 To 3
X(i) = .Cells(i, "A").Value
Y(i) = .Cells(i, "B").Value
Next i

For i = 1 To 2
Xcod_S = X(.Cells(i, "D").Value)
Ycod_S = Y(.Cells(i, "D").Value)
Xcod_E = X(.Cells(i, "E").Value)
Ycod_E = Y(.Cells(i, "E").Value)
Call LineDraw(RowEnd, Row_Enti, Xcod_S, Ycod_S, Xcod_E, Ycod_E)
RowEnd = Range("A1").End(xlDown).Row
Next i
End With

Open "D:test.dxf" For Output As #1
For i = 1 To RowEnd
Print #1, Worksheets("原紙").Cells(i, 1).Value
Next i
Close #1
End Sub

OPEN ・・・・・　以降の部分を追加しました。
Print #1 ・・・で、テキストファイルに１行書き込みます。
書き込むデータは、前回ワークシートに作ったデータです。
これを１行目から最終行まで、１行づつ書き込んでいきます。


HP:http://jwcad-tsukaikata.com/