« PDFページ編集ソフト | トップページ | 一括伸縮(水平線/垂直線) »

2013年8月22日 (木)

半径変更(円)

久しぶりに外部変形を作ってみました。
選択した円の半径を変更する、ただそれだけの外変です。  download
※円弧には適用されません。

円消去 からの続編のつもりです。

◇/^^ci/{if(NF==4){$4=R;print $0;next}else{}}
円データのフィールド数は4、円弧は8なので、if(NF==4)で円/円弧の条件分岐
$4=R;print $0 ⇒ 半径入力の数値を$4に入れ替え、座標データはそのまま出力

-------------------------------
@REM 半径変更(円)
@echo off
goto %1
REM #jww
REM #cd
REM #hm|半径入力|円指示|
REM #:1
REM #h1 範囲内のデータを選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #c 半径を入力してください  スキップ(再入力)
REM #hr
REM #e
REM #:2
REM #h1 範囲内のデータを選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #1ci 円を指定してください
REM #hr
REM #e
:1
jgawk -vR=%2 'BEGIN{if(R=="" ^|^| R^<0){print "he 半径を入力してください";exit}}/^^hq/{print "hd";next}/^^ci/{if(NF==4){$4=R;print $0;next}else{}}{print $0}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:2
jgawk '/^^hhp1ci/{chk=1}/^^ci/{if(chk==1){print "chrad",$4}}' jwc_temp.txt>rad.txt
copy rad.txt+jwc_temp.txt
jgawk '/^^chrad/{r=$2;next}/^^hq/{print "hd";next}/^^ci/{if(NF==4){$4=r;print $0;next}else{}}/^^hhp1ci/{next}{print $0}' rad.txt>jwc_temp.txt
del rad.txt
goto end
# 選択図形は、同一レイヤグループが対象
# 範囲選択から左AM0時「確定 基点(free)」
# ⇒ 半径入力 or 円指定
##
# ※ 円弧は、修正できません。
# ※ 円以外の図形を選択しても再作図します。
# ※ 半径入力時、スキップすると再入力になります。
##
# 2013.8.22  v1.0 公開  by somem
:end

|

« PDFページ編集ソフト | トップページ | 一括伸縮(水平線/垂直線) »

コメント

コメントを書く



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




トラックバック

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

この記事へのトラックバック一覧です: 半径変更(円):

« PDFページ編集ソフト | トップページ | 一括伸縮(水平線/垂直線) »