親記事 / 返信無し
□投稿者/ 田舎の土建屋 (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
}
|
|
