jw_cad 外部変形 - (785) rubyで2点間の勾配を計算する(ptslope) -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

rubyで2点間の勾配を計算する(ptslope)

:rubyで2点間の勾配を計算する(ptslope)
@echo off
ruby -x %0 jwc_temp.txt
goto:eof

REM #jww
REM #1-%d 始点を指示してください
REM #2%d 終点を指示してください
REM #e

#!ruby -Ks -an -i.bak
BEGIN { include Math }
case $_
  when /^hk/ then hk = $F[1].to_f
  when /^hp1/ then p1 = $F[1, 2].map{|x| x.to_f}
  when /^hp2/ then p2 = $F[1, 2].map{|x| x.to_f}
    x1, y1, x2, y2 = (p1 + p2)
    puts "h#2点間の勾配∠ = %.03f゚" % (atan2(y2 - y1, x2 - x1) * 180.0 / PI - hk)
end
__END__