« 指定レイヤ図形消去 | トップページ | ユーザー定義線種変更 »

2024年5月 8日 (水)

水路中間点標高

水路の中間点の標高、区間距離を作図する外部変形。

2024.5.20 AWKスクリプト修正

※区間距離、作図位置変更
2_20240520184501

@REM 水路標高作図
@echo off
REM #jww
REM #cd
REM #1ch 起点の標高を指示 (L)クリック
REM #2ch 終点の標高を指示 (L)クリック
REM #3 起点→各中間点→終点を指示してください (R)クリック
REM #99#
REM #e
jgawk -f suiro.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

2024.5.20 修正
##### suiro.awk
BEGIN{ dq="\""
i=0;j=0
cc=1
cma=","
pd="."
todis=0
k=1000
##ユーザー設定(文字種)
cn1="cn5"
cn2="cn4"}
##変化点座標取得
/^hp/{ x[i]=$2;y[i]=$3
if(i>=3){
dx=(x[i]-x[i-1])/1000;dy=(y[i]-y[i-1])/1000
xc=(x[i]+x[i-1])/2;yc=(y[i]+y[i-1])/2
secdis=sqrt(dx^2+dy^2)
secdis=int(secdis*k+0.5)/k
#起点-中間点距離
todis=todis+secdis
hdis[i]=todis
##区間距離作図
#カンマに変更
dis=secdis
split(dis,ma,pd)
dis=ma[1] cma ma[2]
dis=dq dis
if(dx<0){dx=-dx;dy=-dy}else{}
if(cc==1){print "cc1";print cn1}else{}
print "ch",xc,yc,dx,dy,dis
cc=0}
i=i+1}
##標高(起点、終点)
/^ch/{ h[j]=substr($6,2)
j=j+1 }
END{ altdif=h[1]-h[0] #標高差
grad=altdif/todis #勾配
print "cc0" #文字基点(左下)
print cn2 #文字種指定
##区間点標高作図
for(m=3;m<i-1;m++){
alti=(h[0]+grad*hdis[m])
alti=dq alti 
print "ch",x[m],y[m],5,0,alti
}}

|

« 指定レイヤ図形消去 | トップページ | ユーザー定義線種変更 »

コメント

somem様
お世話になっております

いつも私の勝手な意向を
お聞き頂き感謝します

本当に有難うございます!

投稿: a.fujii | 2024年5月 9日 (木) 07時11分

somem様
お世話になっております

素晴らしいにつきます
お手数をおかけしました
本当に有難うございました

投稿: a.fujii | 2024年5月21日 (火) 11時19分

コメントを書く



(ウェブ上には掲載しません)




« 指定レイヤ図形消去 | トップページ | ユーザー定義線種変更 »