jw_cad 外部変形 - (783) rubyで線角を計算する(lnslope) -

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

 

rubyで線角を計算する(lnslope)

:rubyで線角を計算する(lnslope)
@echo off
ruby -x %0 jwc_temp.txt
goto:eof

REM #jww
REM #1ln 基準線を指示してください
REM #e

#!ruby -Ks -an -i.bak
BEGIN { include Math }
case $_
  when /^hk/ then hk = $F[1].to_f
  when /^[ ]/
    if $F.size == 4
      x1, y1, x2, y2 = $F[0..3].map{|x| x.to_f}
      puts "h#∠ = %.03f゚" % (atan2(y2 - y1, x2 - x1) * 180.0 / PI - hk)
    end
end
__END__