Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

　Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言は過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

1145 / 1496 ←次へ　｜　前へ→

Re:外変作成のお願い

卯之介 - 23/6/5(月) 17:49 -

間違いがあったら教えてください。

【kenpei.bat】
@REM 建ぺい率
@echo off

REM #jww
REM #cd
REM #h0
REM #g1
REM #0 数値書き込み位置指示 (L)free (R)Read
REM #1ch 建築面積を指示してください
REM #2ch 敷地面積を指示してください
REM #e

if exist dummy del dummy
ren jwc_temp.txt dummy
jgawk.exe -f kenpei.awk dummy>jwc_temp.txt

【kenpei.awk】
BEGIN{c=0}

/^ch/{
area[c]=substr($0,match($0,/\"[^\"]*$/)+1)
gsub(/\,/,"",area[c])
gsub(/ｍ\^u2/,"",area[c])
c++
}

END{
kenpei=roundup(area[0]/area[1],4)
printf("ch 0 0 10 0 \"%.2f\%\n",kenpei*100)
print "h\# できました。"
}

function roundup(a,d, i ){
i=int((a+0.00000001)*(10^d))/(10^d)
if(a!=i){i=i+10^-d}
return i
}