線_文字色一括変更
Jw_cad情報交換室から、線色と文字色を指定線色で一括変更する外変です。
任意のファイル名でバッチファイルとして保存してください。
@REM 線_文字色一括変更
@echo off
REM #jww
REM #cd
REM #h1 範囲内データ選択
REM #hc 線、文字を範囲選択してください
REM #g1 全レイヤグループ対象
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #hr
REM #e
jgawk 'BEGIN{lc="lc3";cc=substr(lc,3,1)}/hq/{print "hd";next}/^^hcw/{for(i=0;i^<=9;i++)cw[i+1]=$(i+2)}/^^hch/{for(i=0;i^<=9;i++)ch[i+1]=$(i+2)}/^^hcd/{for(i=0;i^<=9;i++)cd[i+1]=$(i+2)}/^^lc/{m=m+1;if(m==1){culc=$0;print lc;next}{next}}/^^cn/{n=n+1;cnn=substr($1,3,1);if(n==1){cucn=$0}if(n==1 ^|^| n^>=3){if(cnn==0){$5=cc;print $0;next}else{print "cn0",cw[cnn],ch[cnn],cd[cnn],cc;next}}}{print}END{print culc;print cucn}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
##
# 選択した全レイヤグループの線、文字に適用
# 範囲選択から左AM0時「確定 基点(free)」を実行
# 指定線色を変更する場合は、lc="lc3"を変更 ⇒ 線色5の場合 lc5
# 2014.5.24 by somem
:end
| 固定リンク | コメント (15) | トラックバック (0)
最近のコメント