三角ソリッド
連続線の応用で三角ソリッドを作図するバッチファイルです。
外形線も同時に作図します。
<三角ソリッドデータ>
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
| 固定リンク
コメント