jw_cad 外部変形 - (789) rubyで構築線を引く(xline) -

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

 

rubyで構築線を引く(xline)

:rubyで構築線を引く(xline)
@echo off
ruby -x %0 jwc_temp.txt
goto:eof

REM #jww
REM #0 基準点を指示して下さい
REM #e

#!ruby -Ks -an -i.bak
BEGIN { include Math }
case $_
  when /^hk/ then hk = $F[1].to_f * PI / 180
    x = cos(hk) * 1e+10
    y = sin(hk) * 1e+10
    puts "%s %s %s %s" % [-x, -y, x, y]
    puts "%s %s %s %s" % [-y, x, y, -x] #直交軸
end
__END__