□投稿者/ 田舎の土建屋 (1回)-(2015/04/17(Fri) 04:51:04)
| 当方現場にてXP使用。Ho cad ver2.70 gwawkは所定の位置にあり。御指導賜ったsomemに謝意。
@REM 中間高 【HO_CAD用に変更】 * @echo off REM #jw REM #h0 REM #cd REM #1起点指示 REM #2端点指示 REM #3中間点・延長点指示 REM #1ch 起点高さ指示【TXT読み込み】 REM #2ch 端点高さ指示【TXT読み込み】 REM #e copy jwc_temp.txt test.txt > nul gawk.exe -f 中間高.awk test.txt > jwc_temp.txt del test.txt end
# 中間高.awk
## データ取得 /^hp1/{X1=$2;Y1=$3} /^hp2/{X2=$2;Y2=$3} /^hp3/{X3=$2;Y3=$3} /^hhp4/{n=1} /^hhp5/{n=2} /^ch/{ if(n==1){H1=substr($6,2)*10^3} if(n==2){H2=substr($6,2)*10^3} } ## 出力データ END{ L1=sqrt((X1-X2)^2+(Y1-Y2)^2);L2=sqrt((X1-X3)^2+(Y1-Y3)^2) Y3=Y3+10 chr=int((H2-H1)/L1*L2+H1)/1000 printf "%s %e %e %e %e \"%s\n","ch",X3,Y3,10,0,chr }
|
|