Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

679 / 1498 ←次へ　｜　前へ→

動かない外部変形を動かしたい。

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
【発言者】コジマ

より、抜粋しています。