まず解ったこと

目　次

（ 初めて受講される方は検証順にお進み下さい ）

検証1------------バッチファイルを通してJWWが自らのデータを書き出す事を検証。
検証2------------バッチファイルを通してJWWがデータを取込、自動で作図する事を検証。
検証3------------エクセルのVBAを使って外部変形プログラムが動作する事を検証。
検証3の解説-----検証3で利用したエクセルVBAのソースを解説。
検証4------------プログラミング環境において便利なバッチファイルを紹介。

外部変形関連BBS---ご質問などはこちらへ、管理人は無能ですが達人様のお答えが期待出来るかも。

検証1
　

-105.674157303371 0 94.3258426966292 0

■　良くみると、半角スベースをはさんだ4ブロックに分かれています。
■　左から2ブロックが今作画した線データの開始点座標XY、右2ブロックが終点座標XYです。
■　左から2ブロック目の数値 [ 0 ] と、最後の数値 [ 0 ] が同じ数値です。これはY座標が同じ、すなわち水平線であることが解ります。
■　金公の場合、偶然 [ 0 ] になりましたが、貴方の場合はもっと複雑な数値かもしれません。
■　左から1ブロック目と3ブロック目の数値、すなわち水平線の開始X座標と、終点座標Xとの差はちょうど [ 200mm ] で水平線作画時に指定した数値ときっちり一緒です。
■　これでJw_cadが自らのデータをテキストファイルとして書き出したことの検証は確認出来たと思います。
■　次はJw_cadの読込を検証してみます。

検証2
　

と云うわけでエクセルで動作する役に立たない外部変形を次の検証3で紹介します。
　

検証3
　

REM 金公の超初心者外変検証3
@echo off
REM #jww
REM #cd
REM #h4
REM #e
start /MIN /WAIT EXCEL.EXE no3.xls

--------------------------------------------

Option Explicit

Private Sub Workbook_Open()
　　　　start
　　　　Application.Quit
End Sub

----- 標準マクロ -----------------------------------------------------------

Option Explicit

Sub start()
　　Dim TmpFile As String
　　Dim FileNo As Integer
　　Dim x1(3) As Double
　　Dim x2(3) As Double
　　Dim y1(3) As Double
　　Dim y2(3) As Double
　　Dim moji() As String
　　Dim moji2 As String
　　Dim i As Integer
　　Dim j As Integer
　　Dim Dchck As Boolean

　　TmpFile = ThisWorkbook.Path & "\JWC_TEMP.TXT"
　　If Dir(TmpFile, vbNormal) <> vbNullString Then
　　　　i = 0
　　　　FileNo = FreeFile
　　　　Open TmpFile For Input As #FileNo
　　　　Dchck = False
　　　　Do While Not EOF(1)
　　　　　　Line Input #FileNo, moji2
　　　　　　If Dchck = True Then i = i + 1
　　　　　　If moji2 = "#" Then Dchck = True
　　　　Loop
　　　　Close FileNo
　　　　If i = 0 Then Exit Sub
　　　　ReDim moji(i - 1)
　　　　j = 0
　　　　Dchck = False
　　　　Open TmpFile For Input As #FileNo
　　　　Do While Not EOF(1)
　　　　　　Line Input #FileNo, moji2
　　　　　　If Dchck = True Then
　　　　　　　　moji2 = Trim(moji2)
　　　　　　　　x1(0) = Val(Left(moji2, InStr(moji2, " ") - 1))
　　　　　　　　moji2 = Mid(moji2, InStr(moji2, " ") + 1)
　　　　　　　　y1(0) = Val(Left(moji2, InStr(moji2, " ") - 1))
　　　　　　　　moji2 = Mid(moji2, InStr(moji2, " ") + 1)
　　　　　　　　x2(0) = Val(Left(moji2, InStr(moji2, " ") - 1))
　　　　　　　　y2(0) = Mid(moji2, InStr(moji2, " ") + 1)

　　　　　　　　x1(1) = x1(0)
　　　　　　　　y1(1) = y1(0)
　　　　　　　　x2(1) = x1(0) + y1(0) - y2(0)
　　　　　　　　y2(1) = y1(0) + x2(0) - x1(0)
　　　　　　　　moji(j) = x1(1) & " " & y1(1) & " " & x2(1) & " " & y2(1)

　　　　　　　　x1(2) = x2(0) + y1(0) - y2(0)
　　　　　　　　y1(2) = y2(0) + x2(0) - x1(0)
　　　　　　　　x2(2) = x2(0)
　　　　　　　　y2(2) = y2(0)
　　　　　　　　moji(j) = moji(j) & vbCrLf & x1(2) & " " & y1(2) & " " & x2(2) & " " & y2(2)

　　　　　　　　x1(3) = x2(1)
　　　　　　　　y1(3) = y2(1)
　　　　　　　　x2(3) = x1(2)
　　　　　　　　y2(3) = y1(2)
　　　　　　　　moji(j) = moji(j) & vbCrLf & x1(3) & " " & y1(3) & " " & x2(3) & " " & y2(3)
　　　　　　　　j = j + 1
　　　　　　End If
　　　　　　If moji2 = "#" Then Dchck = True
　　　　Loop

　　　　Close FileNo
　　　　
　　　　Open TmpFile For Output As #FileNo
　　　　For j = 0 To i - 1
　　　　　　Print #FileNo, moji(j)
　　　　Next j

　　　　Close #FileNo

　　End If

End Sub

--------------------------------------------------------------------------
　

エクセルでの外部変形プログラムに関心のある方は　検証3の解説　へどうぞ。

VBスクリプト版も作ってみました。金公も初めて挑戦してみましたがこちらの方が動きは軽いですね。 これからプログラムの勉強をされる方はこちらの方がいいです。ネットでの情報が豊富、こちらもただ、メモ帳でもプログラム出来る、いいことだらけです。

検証4

開発環境でチョットしたアイデア発見

--- あとがき ---

エクセルで外部変形は速度は遅いし、他のスクリプト言語よりスマートさに欠けるように思われますが、応用は結構効くんじゃないかな〜、ワークシートのおまけも付いているしワークシート関数だって使えるモンね。
VBAは使えるけど他の言語は知らないっていう金公と似たような人はVBAでの外部変形もいいんじゃないでしょうか？

エクセルで気軽に作られた外部変形プログラムの作品がより多く世の中に出来てくることを密かに願っています。