jw_cad 外部変形 - (546) なでしこで2点間の距離を計算する(ptdist) -

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

 

なでしこで2点間の距離を計算する

/* なでしこで2点間の距離を計算する(ptdist)
@cls & echo off
path C:\nadesiko_1_589;%path%
copy jwc_temp.txt myfiles > nul
cnako %0 > jwc_temp.txt
goto:eof

REM #jww
REM #1-%d 点を指示して下さい
REM #2%d 点を指示して下さい
REM #e
*/

「myfiles」を毎行読んで反復
  もし(対象を「^hp(1)-?\s+(\S+) (\S+)」で正規表現マッチ)ならば
    x1 = 抽出文字列[1]
    y1 = 抽出文字列[2]
  もし(対象を「^hp(2)-?\s+(\S+) (\S+)」で正規表現マッチ)ならば
    x2 = 抽出文字列[1]
    y2 = 抽出文字列[2]
    D = HYPOT(x2  - x1, y2 - y1)
    Dを"h#Dist = %.03f"で形式指定して表示