jw_cad 外部変形 - (595) なでしこで円環ソリッドを確認する(sg:楕円同一幅) -

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

 

なでしこで円環ソリッドを確認する(sg)

/* なでしこで円環ソリッドを確認する(sg:楕円同一幅)
@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 #h1
REM #hc 円環ソリッド(so:同一扁平率)を選択してください
REM #e
*/

i = 0
「myfiles」を毎行読んで反復
  もし(対象を「^hq」で正規表現マッチ)ならば
    「hd」を表示
  もし、(対象を「^(sg \S+ \S+ \S+ \S+ \S+ \S+ \S+ \S+)$」で正規表現マッチ)ならば
    i = i + 1
    sl[i] = 抽出文字列[0]
    続ける

m = i
"# i={i}"を表示
Iで1からmまで繰り返す
  "lc{6+I}"を表示
  sl[I]を表示