@REM 座標点を作図
@echo off
REM #jww
REM #cd
REM #h0
REM #c円の半径を入力してください(図寸)
REM #hc座標値を範囲選択してください
REM #0基準点を指示してください
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks 座標点作図.rb temp.txt %1 > jwc_temp.txt
○スクリプトファイル（ファイル名 座標点.rb）
# 座標点を作図
BEGIN{
$r=ARGV[1].to_f
while ARGV.length > 1
ARGV.pop
end
File.foreach("座標点.txt","r") do |line|
$foo=line.split(/\n/)
end
$by=Array.new
}
def main
while ARGF.gets
xy = split
if xy[0] =~ /^hs/
n=1;while (nend
if xy[0] =~ /^lg/;$lg=xy[0].delete("lg")
$zusun=$by[$lg.to_i]
end
if xy[0] =="hp1"
x1=xy[1].to_f
y1=xy[2].to_f
end
end
n=0
while (n<$foo.size)
zahyo=$foo[n].split("\s")
$x=(zahyo[0].to_f)
$y=(zahyo[1].to_f)
zahyoten($x,$y,$r*$zusun)
n +=1
printf("ch %e %e %e %e \"%s\n", $x,$y,1,0, n)
end
end
def zahyoten(x,y,r)
printf("ci %e %e %e\n", x, y, r)
printf("pt %e %e \n", x, y)
printf("%e %e %e %e\n", x-r, y, x+r, y)
printf("%e %e %e %e\n", x, y-r, x, y+r)
end
main()