Jw_cad 相談室−その2 New

 Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室 をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください

2009年9月以前の発言過去ログのページからご覧ください。

それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。


新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム
195 / 1492     ←次へ | 前へ→

動かない外部変形を動かしたい。
 hide  - 23/12/7(木) 21:00 -
こんな外部変形を発見しましたが、動きません。使えるようにしたいです。お願いします。
作成者 コジマ 様


◎バッチファイル(ファイル名 ‰.bat)
コピペ後、全角スペースを半角スペースに一括置換してください。

REM 勾配を‰表示
echo off
REM #jww
REM #cd
REM #h0
REM #c小数点以下有効桁数 無指定:2 /_/b
REM #0測定値の記入位置を指示してください free(L)
REM #1ln線を指示してください free(L)
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks ‰.rb temp.txt %1 > jwc_temp.txt


◎スプリプトファイル(ファイル名 ‰.rb)
コピペ後、全角スペースを半角スペースに一括置換してください。

include Math
$keta=2
while ARGV.size>1
    case argument=ARGV.pop
        when /\/b/
            $keta=argument[2..-1].to_i
    end
end
def ika(x)
    a=((x.to_f*10**$keta).round).to_f/(10**$keta)
    a=a.to_i if a.to_s =~/^0\.0$/
    return a
end
while ARGF.gets
    xy=split
    if xy[0]=~/^\d|^-/
        xy.collect!{|item|item.to_f}
        if xy[0]>xy[2]
            xy[2],xy[0],xy[3],xy[1]=xy[0],xy[2],xy[1],xy[3]
        elsif xy[0]==xy[2]
            xy[3],xy[1]=xy[1],xy[3] if xy[3]        end
        x,y=xy[2]-xy[0],xy[3]-xy[1]
        l=sqrt(y**2+x**2)
        kakudo=atan2(y,x)
        koubai=y/x*1000

        if koubai<0
            koubai_moji= "i=#{ika(koubai).abs}‰ 右下り"

        elsif koubai==0
            koubai_moji= "i=#{ika(koubai).abs}‰"
        else
            koubai_moji= "i=#{ika(koubai).abs}‰ 右上り"
        end
        printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
    end
end
printf("h##{koubai_moji}\n")

data=[]
open($0,"r"){|f|
    while line=f.gets
        data<    end
}

data.collect!{|item|item=~/^\$keta=/ ? item=$&+$keta.to_s : item=item}
open($0,"w"){|f|data.each{|item|f.puts item};}

data=[]
open("‰.bat","r"){|f|
    while line=f.gets
        data<    end
}

data.collect!{|item|
    if item=~/^REM #c小数点以下有効桁数 無指定:/
        item=$&+$'.gsub(/^\d+/,$keta.to_s)
    else
        item
    end
}
open("‰.bat","w"){|f|data.each{|item|f.puts item};}


以下のようなエラーが出ます。


C:\JWW\外変寸法\勾配を‰表示>echo off
‰.rb:30: syntax error, unexpected tIDENTIFIER, expecting kEND
‰.rb:52: syntax error, unexpected kEND
‰.rb:71: syntax error, unexpected kEND
‰.rb:85: syntax error, unexpected $end, expecting kEND
open("‰.bat","w"){|f|data.each{|item|f.puts item};}
^
続行するには何かキーを押してください . . .

私の環境では、その他の外部変形は、ほぼ動作しています。

※【タイトル】Re(4):測定で角度を%表示(追伸)
【記事番号】 8634 (8615)
【 日時 】06/02/17 09:02
【 発言者 】コジマ

より、抜粋しています。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:120.0) Gecko/20100101 Firefox/120.0@133088090235.mcat.ne.jp>
・ツリー全体表示

動かない外部変形を動かしたい。 hide 23/12/7(木) 21:00
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 5:57
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 8:01
Re:動かない外部変形を動かしたい。 R.N 23/12/9(土) 8:05
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 9:53
Re:動かない外部変形を動かしたい。 R.N 23/12/9(土) 12:55
Re:動かない外部変形を動かしたい。 sugi 23/12/9(土) 18:27
Re:動かない外部変形を動かしたい。 ban 23/12/9(土) 21:39
Re:動かない外部変形を動かしたい。 sugi 23/12/10(日) 5:45
Re:動かない外部変形を動かしたい。 hide 23/12/9(土) 16:50
Re:動かない外部変形を動かしたい。 sugi 23/12/10(日) 5:53
Re:動かない外部変形を動かしたい。 hide 23/12/10(日) 16:40
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 6:13
Re:動かない外部変形を動かしたい。 hide 23/12/11(月) 12:12
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 13:34
Re:動かない外部変形を動かしたい。 sugi 23/12/11(月) 15:30
Re:動かない外部変形を動かしたい。 hide 23/12/11(月) 22:14
Re:動かない外部変形を動かしたい。 sugi 23/12/13(水) 8:54
Re:動かない外部変形を動かしたい。 ban 23/12/13(水) 10:38
Re:動かない外部変形を動かしたい。 sugi 23/12/13(水) 11:03
Re:動かない外部変形を動かしたい。 hide 23/12/13(水) 21:10

195 / 1492     ←次へ | 前へ→
新規投稿 ┃ツリー表示 ┃スレッド表示 ┃一覧表示 ┃トピック表示 ┃番号順表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム
 1115511
ページ:  ┃  記事番号:  

C-BOARD Moyuku v1.03b5
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka