@REM 三 斜 計 算(円枠対応)
@echo off
goto do%1
REM #jww
REM #cd
REM #hm |三 斜 計 算|出力設定|BAT 編集|
REM #:1
REM #h1
REM #hc 【 三 斜 計 算 】 三角形を選択(三角形の辺 200 まで)
REM #g0 #g1 全 レイヤグループ選択
REM #0 数値書き込み位置指示 (L)free (R)Read
REM #c 文字種類指定(1〜10 無指定:2): /_/M
REM #c 初期番号指定( 1〜8001 無指定:1 ) : /_/N
REM #c レイヤ指定( 0〜F 無指定:書込レイヤ ) : /_/L
REM #c 小数点以下有効桁数(0〜3 無指定:2): /_/K
REM #ht10
REM #ht20
REM #ht40
REM #hr
REM #e
REM
REM 三斜計算の場合の追加オプション(指定レイヤに作図)
REM /T* :三角形頂点に点を作図、 「*」 は 点種類 No (無指定:1)
REM /E*.*:三角形頂点に円を作図、 「*.*」 は円半径 mm (無指定:1.0)
REM /H* :三角形の辺を作図、 「*」 は 線色 No (無指定:1)
REM
REM /S :敷地面積(小数点以下3桁を切り捨て)を作図
REM
REM #:2
REM #:3
REM #h0
REM #hr
REM #e
:do1
JWW_SMPL.EXE /S /E2.0 %1 %2 %3 %4 %5 %6 %7 %8
ruby -Ks en_filter.rb jwc_temp.txt > temp.txt
del jwc_temp.txt
rename temp.txt jwc_temp.txt
rem pause
goto END
:do2
start /w notepad.exe en_filter.rb > jwc_temp.txt
goto END
:do3
start /w notepad.exe SMPLen.bat > jwc_temp.txt
:END
while ARGF.gets
if $_ =~ /^ci/
data = $_.split
if data.size == 8 && data[6].to_f != 1
data[6] = "1"
en_kazari = data.join("\s")+"\n"
if waku_lc != "0"
print "lc"+waku_lc+"\n"
end
if waku_en == "en"
print en_kazari
else
print
end
else
print
end
elsif $_ =~ /^lc/
if line_lc == "0"
print
else
print "lc"+line_lc+"\n"
end
else
print
end
end