jw_cad 外部変形 - (559) なでしこで円に+を記入する -

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

 

なでしこで円に+を記入する

/* なでしこで円に+を記入する
@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 #h1
REM #g1
REM #hc 円を選択してください
REM #bz
REM #e
*/

●SPLIT(s)
  sを「 」で区切ったものを戻す
●CHOP(s)
  sを空白除去して戻す

「myfiles」を毎行読んで反復
  もし(対象を「^hq」で正規表現マッチ)ならば
    「bz」と表示
    続ける
  もし(対象を「^ci\s+\S+ \S+ \S+」で正規表現マッチ)ならば
    F = SPLIT(CHOP(対象))
    NF = Fの配列要素数
    x = F[1]
    y = F[2]
    r = F[3]
    もし(NF > 4)ならば
      w = F[6]
      d = F[7]
    違えば、
      w = 1
      d = 0
    d = dをラジアン変換
    co = COS(d)
    si = SIN(d)
    bai = 0.5
    l = r * bai
    mx = r + l
    my = r * w + l
    「{x-mx*co} {y-mx*si} {x+mx*co} {y+mx*si}{改行}{x+my*si} {y-my*co} {x-my*si} {y+my*co}」を表示