« 円中心線 | トップページ | 動作確認の前に »

2007年4月30日 (月)

中心線の再作図

外形から、複線で円の中心線を作図する場合がよくあります。
円を作図後、中心線を一点鎖線に再作図する外変を考えてみました。

作図方法は、矩形選択⇒左AM0時「確定 基点(free)」

注)1.円だけの場合でも、中心線は作図されます。
2.円/中心線以外の選択図形は、実行後消去されるので注意。

070430_1

---------------
@REM 中心線再作図
@echo off
goto %1
REM #jww
REM #cd
REM #hm|垂直(L)|水平(R)|
REM #:1
REM #h2 範囲を指定してください。(矩形)
REM #hr
REM #e
REM #:2
REM #h2 範囲を指定してください。(矩形)
REM #hr
REM #e
:1
:2
echo hd>temp.txt
jgawk '/^^ci/{print}' jwc_temp.txt>>temp.txt
goto %1
:1
echo lt5 線種5>>temp.txt
echo lc1 線色1>>temp.txt
jgawk '/^^ci/{S=2.5;print $2 " " $3-$4-S " " $2 " " $3+$4+S}' jwc_temp.txt>>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:2
echo lt5 線種5>>temp.txt
echo lc1 線色1>>temp.txt
jgawk '/^^ci/{S=2.5;print $2-$4-S " " $3 " " $2+$4+S " " $3}' jwc_temp.txt>>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end
---------------

|

« 円中心線 | トップページ | 動作確認の前に »

コメント

コメントを書く



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




トラックバック


この記事へのトラックバック一覧です: 中心線の再作図:

« 円中心線 | トップページ | 動作確認の前に »