« 三角ソリッド | トップページ | 円ソリッド »

2010年12月15日 (水)

文字種変更

作図済の文字を指定して、文字種を変更するバッチファイルです。
行処理で、文字データを二次元配列 ch[i,j]に取込み、
END部で文字種(フォント)指定の後に文字データを書出します。

@REM 文字種変更
@echo off
REM #jww
REM #cd
REM #h3 範囲内の「文字」データのみを選択
REM #hc 範囲選択から文字を選択してください
REM #1ch 文字を指定してください
REM #e
type jwc_temp.txt
pause
jgawk 'BEGIN{OFMT="%%.15g";n=0}/^^lg/{culg=$1}/^^ly/{culy=$1}/^^cn/{if($1=="cn0"){cucn=$1 " " $2 " " $3 " " $4 " " $5;next}if(substr($1,4,1)=="$"){cuft=$1 " " $2}else{cucn=$1}}/^^ch/{n=n+1;ne=n;for(j=1;j^<=6;j++){ch[n,j]=$(j);ly[n]=culy}}END{print "hd";print cuft;;print cucn;for(i=1;i^<=ne-1;i++){print ly[i];print ch[i,1],ch[i,2],ch[i,3],ch[i,4],ch[i,5],ch[i,6]}print culg;print culy;print ch[ne,1],ch[ne,2],ch[ne,3],ch[ne,4],ch[ne,5],ch[ne,6]}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
type jwc_temp.txt
pause
del temp.txt
goto end
#####
範囲選択から左AM0時「確定 基点(free)」で文字選択
文字種(ユーザー文字)を指定する文字を(L)クリック
:end

◇/^^lg/{culg=$1}/^^ly/{culy=$1}
指定した文字のレイヤグループとレイヤを取得
◇/^^cn/{if($1=="cn0"){cucn=$1 " " $2 " " $3 " " $4 " " $5;next}
指定した文字が任意サイズの場合、幅/高さ/間隔/文字色を文字列として取得
◇if(substr($1,4,1)=="$"){cuft=$1 " " $2}
指定した文字のフォント名を文字列として取得
◇else{cucn=$1}}
"cn"にパターンマッチングした文字種を取得
◇/^^ch/{n=n+1;ne=n;for(j=1;j^<=6;j++){ch[n,j]=$(j)}}
行処理で範囲選択した文字データをn行、j列として二次元配列に取込
◇print ch[i,1],ch[i,2],ch[i,3],ch[i,4],ch[i,5],ch[i,6]
for文で列番号は指定して文字データを書出し

<レイヤグループ>
lg%x
<レイヤ>
ly%x
<文字種 1~10>
cn%d
<任意サイズ>
cn0 %lg %lg %lg %d  (幅 高さ 間隔 ペン番号)
<文字フォント>
cn"$<フォント名>

|

« 三角ソリッド | トップページ | 円ソリッド »

コメント

初めての投稿で、不作法な点がありましたら、お許し下さい。
「レイヤ間移動/複写」「引出線&バルーン」「文字基準点変更」等で大変お世話に
なっております。ありがとうございます。
さて、表題外変にて変更の際の基点が「左下」固定のようですが、「中中」等に
書き換えは可能でしょうか。また、「左下~右上」の中から選択指定できると大変
うれしいのですが。不躾な質問とお願いでした。また、こちらに誤認がありましたらお許しならびにご指摘下さい。プログラムには、まったく疎い素人です。宜しく
お願い致します。

投稿: デジタル難民 | 2011年1月27日 (木) 02時36分

デジタル難民さん、はじめまして。
コメントは大歓迎ですので、ご遠慮なくどうぞ。

>表題外変にて

"文字種変更"のバッチファイルのことですよね。
ご指摘の様に、文字基点は「左下」です。
AWKのサンプルなので、実用的なことはあまり
考えておりませんでした。(^^ゞ
ご要望の件、ちょっと検討してみますが、
一行スプリクトでは、実現できないので、
少し時間がかかるかもしれません。m(__)m
気長にお待ちいただけますか。

投稿: somem | 2011年1月27日 (木) 22時36分

コメントを書く



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




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/94529/50311446

この記事へのトラックバック一覧です: 文字種変更:

« 三角ソリッド | トップページ | 円ソリッド »