jw_cad 外部変形－ (1549) jw.rbで線データと指示点の距離を得る(ln_hpdist) －

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

ln_hpdist(ln, hp) は線データと指示点の距離を返します。
ln は線データあるいは２点
hp は指示点の位置

使用例

:jw.rbで線データと指示点の距離を得る(ln_hpdist)
@echo off
ruby -x %0
goto:eof

REM #jww
REM #hc 線データと指示点の距離
REM #hm | 線・点 | ２点・点 |
REM #:1
REM #1ln 線を指示して下さい
REM #2 位置を指示して下さい
REM #e
REM #:2
REM #1- 始点を指示して下さい
REM #2 終点を指示して下さい
REM #3 位置を指示して下さい
REM #e

#!ruby -Ks -rjw
run
case hm
when 1
plot ci 2.hp, 20
plot msg suisens(1.ln, 2.hp)
plot "h#%.1f" % ln_hpdist(1.ln, 2.hp)
when 2
plot ci 3.hp, 20
plot msg suisens(hp(1, 2), 3.hp)
plot "h#%.1f" % ln_hpdist(hp(1, 2), 3.hp)
end
__END__

○| 線・点 | hm = 1