REM 全レイヤの線色を一括変更する。
echo off
goto do%1
REM #jww
REM #cd
rem #hm |1)読込(L) |2)線色設定(R) |
rem #:1
rem #mc
REM #ht10
REM #ht30
REM #ht40
REM #zz
REM #zc
REM #zw
REM #h1
rem #c
REM #e
:do1
copy jwc_temp.txt temp.txt > nul
del jwc_temp.txt
ruby -Ks レイヤ線色変更.rb temp.txt > jwc_temp.txt
goto end
:do2
notepad c:\jww\レイヤ線色変更.txt
echo h#設定完了>jwc_temp.txt
goto end
:end
open("レイヤ線色変更.txt","r"){|f|
while line=f.gets
word=line.split("\s")
lc_array<<"lc"+word[0].to_s
end
}
while ARGF.gets
xy=split
if xy[0]=~/^hq|^lc\d$/
elsif xy[0]=~/^ly\d$|^ly[a-f]$/
print $_
index=xy[0][2,1].hex
puts lc_array[index]
else
print $_
end
end
REM 全レイヤの線色を一括変更する。
echo off
goto do%1
REM #jww
REM #cd
rem #hm |1)読込(L) |2)線色設定(R) |
rem #:1
rem #mc
REM #ht10
REM #ht30
REM #ht40
REM #zz
REM #zc
REM #zw
REM #h1
rem #c
REM #e
:do1
copy jwc_temp.txt temp.txt > nul
del jwc_temp.txt
ruby -Ks レイヤ線色変更.rb temp.txt > jwc_temp.txt
goto end
:do2
notepad レイヤ線色変更.txt
echo h#設定完了>jwc_temp.txt
goto end
:end