jw_cad 外部変形 - (551) なでしこで構築線を引く(xline) -

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

 

なでしこで構築線を引く

/* なでしこで構築線を引く(xline)
@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 #0 位置を指示して下さい
REM #e
*/

「myfiles」を毎行読んで反復
  もし(対象を「^hk\s+(\S+)」で正規表現マッチ)ならば
    hk = 抽出文字列[0]
    d = hkをラジアン変換
    x = COS(d) * 1e+10
    y = SIN(d) * 1e+10
    "{-x} {-y} {x} {y}"を表示
    "{-y} {x} {y} {-x}"を表示