« 連続線作図 | トップページ | 文字種変更 »

2010年12月12日 (日)

三角ソリッド

連続線の応用で三角ソリッドを作図するバッチファイルです。
外形線も同時に作図します。

<三角ソリッドデータ>
sl %lg %lg %lg %lg %lg %lg  (sl x1 y1 x2 y2 x3 y3)

@REM 三角ソリッド
@echo off
REM #jww
REM #cd
REM #1- 位置を指示してください (L)free (R)Read
REM #3#
REM #hr
REM #e
jgawk 'BEGIN{OFMT="%%.15g";n=0}/^^hp/{n=n+1;x[n]=$2;y[n]=$3}END{for(i=1;i^<=2;i++){print x[i],y[i],x[i+1],y[i+1]};print x[1],y[1],x[3],y[3];print "sl",x[1],y[1],x[2],y[2],x[3],y[3]}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
#####
#3# を記述すると、3番目までの点を指定
:end

|

« 連続線作図 | トップページ | 文字種変更 »

コメント

コメントを書く



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




トラックバック

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

この記事へのトラックバック一覧です: 三角ソリッド:

« 連続線作図 | トップページ | 文字種変更 »