jw_cad 外部変形 - (586) なでしこで指示線を確認する(ln) -

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

 

なでしこで指示線を確認する

/* なでしこで指示線を確認する(ln)
@cls & echo off
type jwc_temp.txt
pause
path C:\nadesiko_1_589;%path%
copy jwc_temp.txt myfiles > nul
cnako %0 > jwc_temp.txt
type jwc_temp.txt
pause
goto:eof

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

●SPLIT(s)
  sを「 」で区切ったものを戻す
●LNLENGTH(線)
  Fとは配列 = SPLIT(線)
  HYPOT(F[2] - F[0], F[3] - F[1])を戻す

「myfiles」を毎行読んで反復
  もし(対象を「^hq」で正規表現マッチ)ならば
    「hd」を表示
  もし、(対象を「^hp(\d+)ln-?\s+(\S+ \S+)」で正規表現マッチ)ならば
    hp[抽出文字列[0]] = 抽出文字列[1]
    続ける
  もし、(対象を「^hhp(\d+)ln」で正規表現マッチ)ならば
    i = 抽出文字列[0]
    続ける
  もし、(対象を「^\s+(\S+ \S+ \S+ \S+)」で正規表現マッチ)ならば
    ln[i] = 抽出文字列[0]
    r = LNLENGTH(ln[i])/2
    F = SPLIT(ln[i])
    x1 = F[0]; y1 = F[1]; x2 = F[2]; y2 = F[3]
    「ci {(x1 + x2) / 2} {(y1 + y2) / 2} {r}」と表示
    続ける

 

 

 

 

指示線をそれを直径とする円に置き換えています。