@REM 別レイヤへデータを一括移動する。
@echo off
REM #jww
REM #cd
REM #zz
REM #zc
REM #zw
REM #bz
REM #ht10
REM #h1
REM #hc移動するデータを範囲選択してください
REM #k 名称移動(データとレイヤ名の移動) 名称移動無(データのみ移動)|名称移動|名称移動無|/_/a
REM #gn
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks レイヤ変更.rb %1
pause
◎スクリプトファイル（ファイル名 レイヤ変更.rb）
$by=[];$ly=[]
while ARGV.size>0
case argument=ARGV.pop
when/\/a/
$lyn=argument[2..-1]
end
end
open("temp.txt","r"){|f|
while line=f.gets
if line=~/^hs/
xy=line.split
xy[1..-1].each{|item|$by< end
if line=~/^lg\d$|^lg\d[a-f]$/
$lg_o=line.chomp
$lg_i=$lg_o[2,1].hex
end
if line=~/^ly[\d]\s+\d\d|^ly[a-f]\s+\d\d/
ly=line.chomp
end
if line=~/^lyn/
if ly=~/^ly0/;$ly0n=line.chomp;$ly<<[ly,$ly0n];end
if ly=~/^ly1/;$ly1n=line.chomp;$ly<<[ly,$ly1n];end
if ly=~/^ly2/;$ly2n=line.chomp;$ly<<[ly,$ly2n];end
if ly=~/^ly3/;$ly3n=line.chomp;$ly<<[ly,$ly3n];end
if ly=~/^ly4/;$ly4n=line.chomp;$ly<<[ly,$ly4n];end
if ly=~/^ly5/;$ly5n=line.chomp;$ly<<[ly,$ly5n];end
if ly=~/^ly6/;$ly6n=line.chomp;$ly<<[ly,$ly6n];end
if ly=~/^ly7/;$ly7n=line.chomp;$ly<<[ly,$ly7n];end
if ly=~/^ly8/;$ly8n=line.chomp;$ly<<[ly,$ly8n];end
if ly=~/^ly9/;$ly9n=line.chomp;$ly<<[ly,$ly9n];end
if ly=~/^lya/;$lyan=line.chomp;$ly<<[ly,$lyan];end
if ly=~/^lyb/;$lybn=line.chomp;$ly<<[ly,$lybn];end
if ly=~/^lyc/;$lycn=line.chomp;$ly<<[ly,$lycn];end
if ly=~/^lyd/;$lydn=line.chomp;$ly<<[ly,$lydn];end
if ly=~/^lye/;$lyen=line.chomp;$ly<<[ly,$lyen];end
if ly=~/^lyf/;$lyfn=line.chomp;$ly<<[ly,$lyfn];end
end
end
}
$deta=[];$ly_a=[];;$ly_c=[]
$deta << "hd\n"
begin
puts "↓データ移動先のグループレイヤ番号を入力してください（変更無:ENTER 中止:10）"
lg_s=gets
if lg_s=="\n";$lg=$lg_o;else;$lg="lg"+lg_s;end
if $by[$lg_i] != $by[lg_s.chomp.hex] && lg_s.chomp !="10"
puts "縮尺が違います。次のいずれか入力してください"
puts "図寸固定で移動 : 0 再入力 : 0以外"
select=gets
break if select.chomp=="0"
end
if lg_s.chomp=="10"
break
open("jwc_temp.txt","w"){|f|f.puts "hq"}
end
end while ($by[$lg_i] != $by[lg_s.chomp.hex])
if lg_s.chomp!="10"
puts "↓レイヤ0のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly0=gets
if ly0=="\n";ly0c="ly0";else;ly0c="ly"+ly0;end
puts "↓レイヤ1のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly1=gets
if ly1=="\n";ly1c="ly1";else;ly1c="ly"+ly1;end
puts "↓レイヤ2のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly2=gets
if ly2=="\n";ly2c="ly2";else;ly2c="ly"+ly2;end
puts "↓レイヤ3のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly3=gets
if ly3=="\n";ly3c="ly3";else;ly3c="ly"+ly3;end
puts "↓レイヤ4のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly4=gets
if ly4=="\n";ly4c="ly4";else;ly4c="ly"+ly4;end
puts "↓レイヤ5のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly5=gets
if ly5=="\n";ly5c="ly5";else;ly5c="ly"+ly5;end
puts "↓レイヤ6のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly6=gets
if ly6=="\n";ly6c="ly6";else;ly6c="ly"+ly6;end
puts "↓レイヤ7のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly7=gets
if ly7=="\n";ly7c="ly7";else;ly7c="ly"+ly7;end
puts "↓レイヤ8のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly8=gets
if ly8=="\n";ly8c="ly8";else;ly8c="ly"+ly8;end
puts "↓レイヤ9のデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
ly9=gets
if ly9=="\n";ly9c="ly9";else;ly9c="ly"+ly9;end
puts "↓レイヤaのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lya=gets
if lya=="\n";lyac="lya";else;lyac="ly"+lya;end
puts "↓レイヤbのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lyb=gets
if lyb=="\n";lybc="lyb";else;lybc="ly"+lyb;end
puts "↓レイヤcのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lyc=gets
if lyc=="\n";lycc="lyc";else;lycc="ly"+lyc;end
puts "↓レイヤdのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lyd=gets
if lyd=="\n";lydc="lyd";else;lydc="ly"+lyd;end
puts "↓レイヤeのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lye=gets
if lye=="\n";lyec="lye";else;lyec="ly"+lye;end
puts "↓レイヤfのデータを移動するレイヤ番号を入力してください（変更無:ENTER）"
lyf=gets
if lyf=="\n";lyfc="lyf";else;lyfc="ly"+lyf;end
open("temp.txt","r") { |f|
while line=f.gets