@REM 線座標と直近の文字の関連付け
@echo off
REM #jww
REM #cd
REM #c文字と線の垂直離隔(図寸) 無指定:5mm以内/_/a
REM #c座標値の小数点以下有効桁数 無指定:3/_/b
REM #h1
REM #0原点を指示してください free(L) Read(R)
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1 %2 > jwc_temp.txt
exit
#!ruby -Ks
include Math
hanare=5.0;keta=3
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
hanare=argument[2..-1].to_f
when /\/b/
keta=argument[2..-1].to_i
end
end
sen=[];by=[];moji_a=[]
while ARGF.gets
xy=split
if xy[0]=~/^hs/
xy[1..-1].each{|item|by< end
if xy[0]=~/^lg/
lg=xy[0][2,1]
zusun=by[lg.hex]
end
if xy[0]=~/^\d|^-/
xy.collect!{|item|item.to_f}
sen< end
if xy[0]=~/^ch/
moji=$'.chomp if $_=~/\"/
moji_a<<[xy[1].to_f,xy[2].to_f,moji]
end
end
henkaku2=arg2_2-arg1_2
yy=l2_2*sin(henkaku2)
xx=l2_2*cos(henkaku2)
y.abs }
if a
f.printf("%s\t%.#{keta}f\t%.#{keta}f\t%.#{keta}f\t%.#{keta}f\n",item[2],a[0],a[1],a[2],a[3])
sen.delete_if{|item3|item3==a}
end
}
}