Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

1309 / 1500 ←次へ　｜　前へ→

Re:座標面積計算結果について

kojima - 21/5/26(水) 11:41 -

▼R.Nさん：
>[Ｘn(m)]列と[Ｙn(m)]列の列幅を揃えたくて
>278行目（gyo=(moji_h+cl*2)*zusun の前の行）あたりに
>
>l2=l3 if l2<l3
>l3=l2 if l2>=l3
>
>を追記してみましたが？

そのほうが見栄えいいですね。
あと、文字位置も微妙にズレていました。

#後半分
puts "cc1",cn
zukei=loop_renzoku(sen_a)
unless zukei
printf("h#データが不適当です\n")
exit
end
ten_a=[]
zukei.each{|item|
l=hypot(item[3]-item[1],item[2]-item[0])
arg=atan2(item[3]-item[1],item[2]-item[0])
x=item[0]+l/2*cos(arg)
y=item[1]+l/2*sin(arg)
puts "z3" if ki==1 && hpx !=nil
printf("cs %.11f %.11f %.11f %.11f\"%.3f\n",
x+cl2*cos(arg+PI/2),y+cl2*sin(arg+PI/2),cos(arg),sin(arg),l/1000) if ki==1 && hpx !=nil
ten_a<<[item[0],item[1]]
}
array=[]
0.upto(ten_a.size-1){|i|
x,y=ten_a[i]
moji_a=ch_a.find{|item|(x-item[0]).abs<cl3 && (y-item[1]).abs<cl3}
moji_a != nil ? no2= moji_a[2] : no2="#{pre_moji}#{no}"
array<<[no2,keta_f(x/1000,keta),keta_f(y/1000,keta),nil]
if i==ten_a.size-1
x2,y2=ten_a[0]
else
x2,y2=ten_a[i+1]
end
arg=atan2(y2-y,x2-x)
l=hypot(y2-y,x2-x)
if i==0
x1,y1=ten_a[-1]
else
x1,y1=ten_a[i-1]
end
arg2=atan2(y1-y,x1-x)
x1=x+l*cos(arg2)
y1=y+l*sin(arg2)
l=hypot(y2-y1,x2-x1)
arg2=atan2(y2-y1,x2-x1)
x3=x1+l/2*cos(arg2)
y3=y1+l/2*sin(arg2)
arg=atan2(y3-y,x3-x)
if ki==1
unless moji_a
printf("ch %.11f %.11f %.11f %.11f \"%s\n",
x-cl2*cos(arg),y-cl2*sin(arg),cos(arg+PI/2),sin(arg+PI/2),no2)
end
end
no += 1
}
unless hpx
file="ztemp.txt"
f=open(file,"w")
if f_t==1
f.printf("#座標値\t[XY座標］\n")
array.each{|item|f.printf("%s\t%s\t\"%s\"\n",item[1],item[2],item[0])}
f.printf("%s\t%s\t\n",array[0][1],array[0][2])
else
f.printf("#座標値\t[YX座標］\n")
array.each{|item|f.printf("%s\t%s\t\"%s\"\n",item[2],item[1],item[0])}
f.printf("%s\t%s\t\n",array[0][2],array[0][1])
end
f.close
system("start notepad #{file}")
exit
end
0.upto(array.size-1){|i|
i==0 ? x1=array[-1][1].to_f : x1=array[i-1][1].to_f
i==array.size-1 ? x2=array[0][1].to_f : x2=array[i+1][1].to_f
y=array[i][2].to_f
array[i][3]=keta_f((x2-x1)*y,6)
}
t_s=0
0.upto(array.size-1){|i|
t_s += array[i][-1].to_f
}
array2=["敷地面積","Ｘn(m)","Ｙn(m)","(Ｘn+1-Ｘn-1)・Ｙn"]
l1=str_l(array2[0],moji_w,moji_d,zusun)
l2=str_l(array2[1],moji_w,moji_d,zusun)
l3=str_l(array2[2],moji_w,moji_d,zusun)
l4=str_l(array2[3],moji_w,moji_d,zusun)
array.each{|item|
ll2=str_l(item[1],moji_w,moji_d,zusun)
ll3=str_l(item[2],moji_w,moji_d,zusun)
ll4=str_l(item[3],moji_w,moji_d,zusun)
l2 = ll2 if l2<ll2
l3 = ll3 if l3<ll3
l4 = ll4 if l4<ll4
}
ll2=str_l("#{keta_f(t_s.abs/2,2)} m2",moji_w,moji_d,zusun)
l2 = ll2 if l2<ll2

l2 = l3 if l2<l3
l3 = l2 if l2>l3

gyo=(moji_h+cl*2)*zusun
x1=hpx
x2=hpx+l1+l2+l3+l4+8*cl*zusun
y=hpy
printf(" %.11f %.11f %.11f %.11f\n",x1,y,x2,y)
y -= gyo
0.upto(array.size+2){|i|
printf(" %.11f %.11f %.11f %.11f\n",x1,y,x2,y)
y -= gyo
}
x=hpx
x_array=[x,x +=l1+2*cl*zusun,x +=l2+2*cl*zusun,x +=l3+2*cl*zusun,x +=l4+2*cl*zusun]
x_array.each{|item|printf(" %.11f %.11f %.11f %.11f\n",item,hpy,item,y+gyo)}
x=hpx+l1/2+cl*zusun
x_array=[l1,l2,l3,l4]
ch_array=["座標点","Ｘ^dn(m)","Ｙ^dn(m)","(Ｘ^dn^d+^d1-Ｘ^dn^d-^d1)・Ｙ^dn"]
y=hpy-gyo/2
puts "cc4"
0.upto(x_array.size-1){|i|
printf("ch %.11f %.11f 1 0 \"%s\n",x,y,ch_array[i])
x+=x_array[i]/2+x_array[i+1]/2+2*cl*zusun if i<x_array.size-1
}
x1=hpx+l1/2+cl*zusun
x2=x1+l1/2+cl*zusun+l2+cl*zusun
x3=x2+cl*zusun+l3+cl*zusun
x4=x3+cl*zusun+l4+cl*zusun
x_array=[x1,x2,x3,x4]
y -= gyo
array.each{|item|
0.upto(x_array.size-1){|i|
if i==0
puts "cc4"
else
puts "cc5"
end
printf("ch %.11f %.11f 1 0 \"%s\n",x_array[i],y,item[i])
}
y -= gyo
}
puts "cc4"
printf("ch %.11f %.11f 1 0 \"倍面積\n",x3-l3/2,y)
puts "cc5"
printf("ch %.11f %.11f 1 0 \"%s\n",x_array[3],y,keta_f(t_s.abs,6))
y -= gyo
ts2=sprintf("%.2f",(t_s.abs/2*100).floor/100.0)
x_array=[x1,x2,x3-l3/2,x4]
ch_array=["敷地面積",ts2+" m^u2","面　積\n",keta_f(t_s.abs/2,6)]
0.upto(x_array.size-1){|i|
if i==0 or i==2
puts "cc4"
else
puts "cc5"
end
printf("ch %.11f %.11f 1 0 \"%s\n",x_array[i],y,ch_array[i])
}
puts "cc0"
printf("ch %.11f %.11f 1 0 \"座標面積計算表\n",hpx,hpy+cl*zusun)
__END__
:end