« 最大値 | トップページ | 円周分割点 »

2013年11月 8日 (金)

実点に円(拡張版)

"実点に円(改)" に実点を円に変換を追加しました。
実点を円は、外変実行後、実点を消去します。
※円は、実点と同一レイヤに書込み線色/線種で作図
※寸法線端点にも適用されますので注意してください

----------
@REM 実点に円(拡張版)
@echo off
goto %1
REM #jww
REM #cd
REM #hm|実点に円|実点を円|
REM #:1
REM #:2
REM #h1 範囲内データ選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #c 半径を入力してください |前回値/スキップ|
REM #e
:1
:2
jgawk -vR=%2 'BEGIN{if(R!=""){print "rad",R;exit}}{print $0}' rad.txt>trad.txt
copy trad.txt rad.txt
copy trad.txt+jwc_temp.txt
jgawk -vT=%1 -vR=%2 '/hq/{if(NR==1){print "he 半径を入力してください";exit}if(T==2){print "hd";next}}/rad/{if(R==""){if($2==""){print "he 半径を入力してください";exit}{R=$2}}next}/ly/{ly=$1;cnt=0;if(T==1){p=0;next}}/lc/{m=m+1;if(m==1){lc=$1;next}}/lt/{n=n+1;if(n==1){lt=$1;next}}/pn/{next}/pt/{p=p+1;if(T==1 ^&^& cnt==0 ^&^& p==1){print ly}if(T==2 ^&^& p==1){print lc;print lt};$1="ci";$4=R;print;next}{if(T==2){print}}' trad.txt>jwc_temp.txt
del trad.txt
goto end
# 対象図形は、同一レイヤグループのみ
# 範囲選択 ⇒ 左AM0時「確定 基点(free)」 ⇒ 半径入力
# 実点以外の図形(ブロック図形を除く)を選択しても可
# 注)寸法線端点の実点にも適用
# 書込み線色/線種で作図
# 実点と同一レイヤに円を作図
# 右クリックで再実行
# 2013.11.8    by somem
:end

|

« 最大値 | トップページ | 円周分割点 »

コメント

コメントを書く



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




トラックバック


この記事へのトラックバック一覧です: 実点に円(拡張版):

« 最大値 | トップページ | 円周分割点 »