jw_cad 外部変形 - (554) なでしこでソリッド図形の矩形を描く -

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

 

なでしこでソリッド図形の矩形を描く

/* なでしこでソリッド図形の矩形を描く
@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」を毎行読んで反復
  もし(対象を「^hk\s+(\S+)」で正規表現マッチ)ならば
    hk = 抽出文字列[0]
    続ける
  もし(対象を「^hp(1)-?\s+(\S+) (\S+)」で正規表現マッチ)ならば
    x1 = 抽出文字列[1]
    y1 = 抽出文字列[2]
    続ける
  もし(対象を「^hp(2)-?\s+(\S+) (\S+)」で正規表現マッチ)ならば
    d = hkをラジアン変換
    x2 = 抽出文字列[1]
    y2 = 抽出文字列[2]
    co = COS(d)
    si = SIN(d)
    ww = (x2 - x1) * co + (y2 - y1) * si
    hh =-(x2 - x1) * si + (y2 - y1) * co
    x3 = x1 - hh * si
    y3 = y1 + hh * co
    x4 = x1 + ww * co
    y4 = y1 + ww * si
#    「lc10 {0+255*256+0*256*256}」と表示
    「sl {x1} {y1} {x3} {y3} {x2} {y2} {x4} {y4}」と表示

 

 

 

塗りつぶし色は jw_cadで線色を指定しておいてください。