jw_cad 外部変形 - (1530) jw.rbで2点間の距離を得る(ptlength) -

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

 

ptlength(x, y) は 2点間の最短距離を返します。
  x, y は 始点と終点

ptdist(x, y) は別名(エイリアス)

 

使用例

:jw.rbで2点間の距離を得る(ptlength)
@echo off
ruby -x %0
goto:eof

REM #jww
REM #1- 始点を指示して下さい
REM #2 終点を指示して下さい
REM #e

#!ruby -Ks -rjw
jww
plot msg hp 1, 2
plot "h#%.1f" % (ptlength hp 1, 2)
__END__

 

 

ptdist hp 1, 2 や hp(1, 2).lr でも2点間の最短距離を返します。