jw_cad 外部変形 - (824) rubyで指示線を確認する(ln) -

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

 

rubyで指示線を確認する(ln)

:rubyで指示線を確認する(ln)
@echo off
ruby -x %0 jwc_temp.txt
goto:eof

REM #jww
REM #1%dln 線を指示してください
REM #99#
REM #e

#!ruby -Ks -an -i.bak
def lnlength(ln) #線長を返す
  x1, y1, x2, y2 = *ln
  return hypot(x2 - x1, y2 - y1)
end
BEGIN {
  include Math
  ln = []
}
case $_
  when /^hhp([1-9][0-9]?)ln/
    lnn = $1.to_i
  when /^[ ]/
    if $F.size == 4
      ln[lnn] = $F.map { |x| x.to_f }
      x1, y1, x2, y2 = ln[lnn]
      r = lnlength(ln[lnn]) / 2
      puts "ci %.15f %.15f %.15f" % [(x1 + x2) / 2, (y1 + y2) / 2, r]
    end
end
__END__