@REM 三斜面積計算
@REM 線結合点の誤差調整
@echo off
rem
rem ----------------------------------------------------------------
rem ※このファイルを編集した場合は上書き保存してください
rem
rem ----------------------------------------------------------------
rem ※概要
rem 1.この外部変形は線結合点の誤差を調整する為のRubyスクリプトと
rem 連携してJWW_SMPL.EXEの三斜計算を行うものです
rem
rem 2.オプションをコマンドラインに設定してありますので環境に応じ
rem て適宜修正して下さい。
rem
rem ※開発言語 mswin32ruby 1.8.7
rem
rem ----------------------------------------------------------------
REM #jww
REM #cd
REM #h1
REM #g0 書込みグループ対象
REM #hc 【 三 斜 計 算 】 三角形を選択(三角形の辺 200 まで)
REM #0 数値書き込み位置指示(書込みレイヤに設定済み)
REM #ht10
REM #ht20
REM #ht30
REM #ht40
REM #zc
REM #zw
REM #zz
REM #e
rem ---------------------------------------------------------------------------
rem ※JWW_SMPL.EXEオプション(JWW_SMPL.BATより抜粋)※
rem
rem 起動オプション(IME ON)
rem #f 敷 地 名 称 : /_$1" #このバッチファイルでは設定不可
rem 起動オプション(IME OFF)
rem #c 番号の前に追加する文字 : /_$2" #このバッチファイルでは設定不可
rem
rem オプション説明(指定レイヤに作図)
rem /N* :初期番号指定 「*」 は初期No[1〜8001] (無指定:1)
rem /L* :レイヤ指定 「*」 はレイヤNo[0〜F] (無指定:書込レイヤ)
rem /M* :文字種類を指定 「*」 は文字種類No[1〜10] (無指定:2)
rem /K* :小数点以下有効桁数を指定 「*」 は桁数No[1〜3] (無指定:2)
rem /T* :三角形頂点に点を作図 「*」 は点種類No[1〜6] (無指定:1)
rem /E*.*:三角形頂点に円を作図 「*.*」 は円半径[図寸 mm](無指定:1.0)
rem /H* :三角形の辺を作図 「*」 は線色No[1〜6] (無指定:1)
rem
rem /C :指定小数点以下桁数未満を切捨で寸法値作図 (無指定:四捨五入)
rem /S :敷地面積(小数点以下3桁を切捨)を作図
rem
rem ----------------------------------------------------------------------------
copy jwc_temp.txt temp1.txt > nul
ruby -x %~f0
rem pause
copy temp2.txt jwc_temp.txt > nul
JWW_SMPL.EXE /N1 /L /M3 /K3 /E1.5 /C /S
:END
####### 線データ丸め処理Rubyスクリプト #######
#!ruby -Ks
$stdin = File.open("./temp1.txt","r")
$stdout = File.open("./temp2.txt","w")
#$stderr = File.open("err_msg.log","w")
while gets
if $_ =~ /^hq/
puts "hd"
elsif $_ =~ /^\s[0-9-]/
puts (($_.split).collect!{|item| sprintf("%0.7f",item).to_f}).join("\s")
else
print
end
end
puts "h# 線データを小数点以下7桁で丸め処理しました"; exit
#############以上です
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/148.0.0.0 Safari/537.36@sni102-red.in.shared-server.net>