法勾配

法勾配を作図する外部変形。
斜面に法勾配と線長を作図します。

※範囲選択で、水平/垂直線、
円、文字が含まれても除外します。

------バッチファイル-----
@REM 法勾配
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ・範囲内外に跨る線データを選択
REM #hc 線を範囲選択してください
REM #e
jgawk -f ngrad.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
type jwc_temp.txt
pause
del temp.txt
goto end
範囲選択→左AM0時 確定 基点(free）
:end

##### ngrad.awk

BEGIN{

dq="\"" #ダブルコーテーション

k=100 #小数点以下桁数2

ntp="1:";ned=""

ltp="";led="m" }

##

/^ /{

#始点座標変換(左→右）

if($1>$3){

xs=$3;ys=$4;xe=$1;ye=$2;dir=-1}

else{xs=$1;ys=$2;xe=$3;ye=$4;dir=1}

if(xs==xe || ys==ye){} #水平/垂直線除外

else{

dx=xe-xs;dy=ye-ys

n=dx/dy #法勾配

if(n<0){n=-1*n}else{} #負→正

l=sqrt(dx^2+dy^2)/1000 #線長(m)

#四捨五入

n=int(n*k+0.5)/k

l=int(l*k+0.5)/k

#文字データ

n=dq ntp n ned

l=dq ttp l led

#作図

xc=(xs+xe)/2;yc=(ys+ye)/2 #文字基点

print "cc1" #文字基点(中下）

print "ch",xc,yc,dx,dy,n

print "cc7" #文字基点(中上

print "ch",xc,yc,dx,dy,l}

}