« レイヤ名設定その2 | トップページ | 微小傾き補正 »

2022年12月12日 (月)

レイヤ名書出し/設定

環境設定ファイル jw_win.jwf で設定したレイヤグループ/レイヤ名を
テキストデータに書出すと同時に、ファイルのレイヤ名を再設定します。
※長い文字列のレイヤ名を設定している場合に有効

@if(0==1) //レイヤ名書出し/設定
@echo off
REM #jww
REM #cd
REM #h0
REM #gn
REM #e
del jwc_temp.txt
cscript //nologo //e:jscript "%~f0" %*
copy lyn.txt jwc_temp.txt
echo lg0 11 >>jwc_temp.txt
echo ly0 11 >>jwc_temp.txt
echo h#書出し終了 >>jwc_temp.txt
goto:eof
@end
//ファイルオープン
fs=new ActiveXObject( "Scripting.FileSystemObject" )
r=fs.OpenTextFile("jw_win.jwf")
w=fs.CreateTextFile("lyn.txt")
//初期設定
i=0
//"jw_win.jwf"読込み
while (!r.AtEndOfLine){
line=r.ReadLine()
if(/LAYNAM/.test(line)){
lyer=line.split("=")
lg=lyer[0];ly=lyer[1]
lg=lg.substr(7,1)
lyn=ly.split(",")
if(lg=="N"){}
else{
//レイヤグループ名
lg="lg"+lg
w.WriteLine(lg)
lgnm="lgn"+lyn[0]
w.WriteLine(lgnm)
//連想配列
as_arr={10:'a',11:'b',12:'c',13:'d',14:'e',15:'f'}
//レイヤ名
for(i=0;i<=15;i++){
if(i<=9){lynr=i}else{lynr=as_arr[i]}
lynr="ly"+lynr
w.WriteLine(lynr)
lynm="lyn"+lyn[i+1]
w.WriteLine(lynm)}
}//else
}//LAYNAM
else{}}
//ファイルクローズ
w.Close();r.Close()

|

« レイヤ名設定その2 | トップページ | 微小傾き補正 »

コメント

コメントを書く



(ウェブ上には掲載しません)




« レイヤ名設定その2 | トップページ | 微小傾き補正 »