Jw_cad 相談室−その２
Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室 をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
Jw_cad Copyright (C)1997-2021 Jiro Shimizu & Yoshifumi Tanaka
Jw_cad についての相談の場としてお使いください
情報の交換には Jw_cad 情報交換室 をご利用ください
なお、情報交換室と相談室の両方に同じ内容を投稿するのはご遠慮ください
2009年9月以前の発言は 過去ログのページからご覧ください。
それ以降の過去ログは消失しています。
申し訳ありませんが、復活の予定はありません。
 |
 |
動かない外部変形を動かしたい。 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 |
|
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
【 発言者 】コジマ
より、抜粋しています。
作成者 コジマ 様
◎バッチファイル（ファイル名 ‰.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
|
sugi - 23/12/9(土) 5:57 - |
スクリプトの意図はだいたい読み取れたように思います
うちの環境でも動くように修正してみました
インデントが崩れてしまったらごめんなさい
REM 勾配を‰表示.bat
CHCP 932
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 -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペースに一括置換してください。
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
puts "he 垂直線が選ばれたようです"
exit
end
end
open("temp.txt").readlines.each{|e|
puts e unless /^hq/=~e
xy=e.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,keta).abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{ika(koubai,keta).abs}‰"
else
koubai_moji= "i=#{ika(koubai,keta).abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
end
}
puts "h##{koubai_moji}"
__END__
:END
うちの環境でも動くように修正してみました
インデントが崩れてしまったらごめんなさい
REM 勾配を‰表示.bat
CHCP 932
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 -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペースに一括置換してください。
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
puts "he 垂直線が選ばれたようです"
exit
end
end
open("temp.txt").readlines.each{|e|
puts e unless /^hq/=~e
xy=e.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,keta).abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{ika(koubai,keta).abs}‰"
else
koubai_moji= "i=#{ika(koubai,keta).abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
end
}
puts "h##{koubai_moji}"
__END__
:END
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
sugi - 23/12/9(土) 8:01 - |
わたしの場合 cmd は標準で文字コード utf-8 を使ってるんですが
外部変形の場合は sjis なので「CHCP 932」と教えてやらないと
うまく動作してくれません
インデントが崩れる問題について
半角スペースのままだとインデントが崩れるから
アップするときに全角スペースに直してるって
ことに気が付きませんでした
ということでやり直し
REM 勾配を‰表示.bat
CHCP 932
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 -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください。
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
puts "he 垂直線が選ばれたようです"
exit
end
end
open("temp.txt").readlines.each{|e|
puts e unless /^hq/=~e
xy=e.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,keta).abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{ika(koubai,keta).abs}‰"
else
koubai_moji= "i=#{ika(koubai,keta).abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
end
}
puts "h##{koubai_moji}"
__END__
:END
外部変形の場合は sjis なので「CHCP 932」と教えてやらないと
うまく動作してくれません
インデントが崩れる問題について
半角スペースのままだとインデントが崩れるから
アップするときに全角スペースに直してるって
ことに気が付きませんでした
ということでやり直し
REM 勾配を‰表示.bat
CHCP 932
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 -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください。
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
puts "he 垂直線が選ばれたようです"
exit
end
end
open("temp.txt").readlines.each{|e|
puts e unless /^hq/=~e
xy=e.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,keta).abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{ika(koubai,keta).abs}‰"
else
koubai_moji= "i=#{ika(koubai,keta).abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
end
}
puts "h##{koubai_moji}"
__END__
:END
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
R.N - 23/12/9(土) 8:05 - |
▼sugiさん：こんにちは
スクリプトの提供、ありがとうございます。
>puts "h##{koubai_moji}"
koubai_moji ⇒ $koubai_moji
に、全て置換してみましたが？
スクリプトの提供、ありがとうございます。
>puts "h##{koubai_moji}"
koubai_moji ⇒ $koubai_moji
に、全て置換してみましたが？
<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:120.0) Gecko/20100101 Firefox/120.0
|
sugi - 23/12/9(土) 9:53 - |
>> koubai_moji ⇒ $koubai_moji
>> に、全て置換してみましたが？
うまく動作しなかったということでしょうか？
この部分についてはグローバル変数は極力使うなって
以前に聞いた覚えがあってローカル変数にしてみました
rubyもバージョンにより以前は認められてた書き方が
許されなくなったとかいうこともあって
今回のもそんな一例のようで
できるだけどのバージョンでも通用するように
書き直したつもりですがうまくいってないようなら
「tmp_err.txt」にエラー内容が書き込まれてるかもしれないので
それを貼ってもらえればなんとかできるかもしれません
>> に、全て置換してみましたが？
うまく動作しなかったということでしょうか？
この部分についてはグローバル変数は極力使うなって
以前に聞いた覚えがあってローカル変数にしてみました
rubyもバージョンにより以前は認められてた書き方が
許されなくなったとかいうこともあって
今回のもそんな一例のようで
できるだけどのバージョンでも通用するように
書き直したつもりですがうまくいってないようなら
「tmp_err.txt」にエラー内容が書き込まれてるかもしれないので
それを貼ってもらえればなんとかできるかもしれません
<Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
R.N - 23/12/9(土) 12:55 - |
▼sugiさん：すみません
>>> koubai_moji ⇒ $koubai_moji
>>> に、全て置換してみましたが？
それが---動作は問題ないのですが、コメント文が表示されなくて
なぜ---と思いつつ
＜エラー出力内容＞
‰_sugi.rb:46: undefined local variable or method `koubai_moji' for main:Object (NameError)
win11_64 jww8.25a
ruby 1.8.7 (2013-06-27 patchlevel 374) [i386-mingw32]
>うまく動作しなかったということでしょうか？
>この部分についてはグローバル変数は極力使うなって
>以前に聞いた覚えがあってローカル変数にしてみました
>
>rubyもバージョンにより以前は認められてた書き方が
>許されなくなったとかいうこともあって
>今回のもそんな一例のようで
>できるだけどのバージョンでも通用するように
>書き直したつもりですがうまくいってないようなら
>「tmp_err.txt」にエラー内容が書き込まれてるかもしれないので
>それを貼ってもらえればなんとかできるかもしれません
>>> koubai_moji ⇒ $koubai_moji
>>> に、全て置換してみましたが？
それが---動作は問題ないのですが、コメント文が表示されなくて
なぜ---と思いつつ
＜エラー出力内容＞
‰_sugi.rb:46: undefined local variable or method `koubai_moji' for main:Object (NameError)
win11_64 jww8.25a
ruby 1.8.7 (2013-06-27 patchlevel 374) [i386-mingw32]
>うまく動作しなかったということでしょうか？
>この部分についてはグローバル変数は極力使うなって
>以前に聞いた覚えがあってローカル変数にしてみました
>
>rubyもバージョンにより以前は認められてた書き方が
>許されなくなったとかいうこともあって
>今回のもそんな一例のようで
>できるだけどのバージョンでも通用するように
>書き直したつもりですがうまくいってないようなら
>「tmp_err.txt」にエラー内容が書き込まれてるかもしれないので
>それを貼ってもらえればなんとかできるかもしれません
<Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:120.0) Gecko/20100101 Firefox/120.0
|
hide - 23/12/9(土) 16:50 - |
R.Nさん、sugiさん：こんにちは
質問者のhideです。
返信ありがとうございます。
外変のほううまく動作しました。
R.Nさん、sugiさんの意見を参考にして、元のスクリプトのエラー部分を削除してみたところ、
コジマ さんのスクリプトも動くようになりました。
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.collect!{|item|
if item=~/^REM #c小数点以下有効桁数 無指定:/
item=$&+$'.gsub(/^\d+/,$keta.to_s)
else
item
end
}
しかし、勾配を‰表示の一括記入の外部変形は、いまだうまく動きません。
厚かましいお願いですが、線上に平行で一括で線上側には勾配（1:n,％）、線下側には線長(m)、
が記入できる外部変形があれば、ありがたいです。計画図面、施工図のチェックに使います。
よろしくお願いします。
※過去ログ抜粋
【タイトル】Re(6):一括記入なら
【記事番号】 8686 (8683)
【 日時 】06/02/17 20:47
【 発言者 】コジマ
線上に一括記入するなら、以下の外変のほうが速いです。
(線を寸法線に見立てて、寸法値のように記述します。)
◎バッチファイル（ファイル名 ‰2.bat）
以下の文をコピペ後、全角スペースを半角スペースに一括置換。
REM 勾配を‰表示の一括記入
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c小数点以下有効桁数 無指定:2 /_/b
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks ‰2.rb temp.txt %1 %2 > jwc_temp.txt
◎スクリプトファイル（ファイル名 ‰2.rb）
以下の文をコピペ後、全角スペースを半角スペースに一括置換。
include Math;by=[]
hanare=1.0
$keta=2
puts "cc1"
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
hanare=argument[2..-1].to_f
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]=~/^hs/
xy[1..-1].each{|item|by< end
if xy[0]=~/^lg/
lg=xy[0][2,1];zusun=by[lg.hex]
end
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",
xy[0]+l/2*cos(kakudo)-hanare*zusun*sin(kakudo),
xy[1]+l/2*sin(kakudo)+hanare*zusun*cos(kakudo),
l*cos(kakudo),l*sin(kakudo),koubai_moji)
end
end
data=[]
open($0,"r"){|f|
while line=f.gets
data< end
}
data.collect!{|item|
if item=~/^hanare=/
item=$&+hanare.to_s
elsif item=~/^\$keta=/
item=$&+$keta.to_s
else
item
end
}
open($0,"w"){|f|data.each{|item|f.puts item};}
data=[]
open("‰2.bat","r"){|f|
while line=f.gets
data< end
}
data.collect!{|item|
if item=~/^REM #c線と文字の離れ\(図寸\) 無指定:/
item=$&+$'.gsub(/\d+\.*\d*/,hanare.to_s)
elsif item=~/^REM #c小数点以下有効桁数 無指定:/
item=$&+$'.gsub(/\d+/,$keta.to_s)
else
item
end
}
open("‰2.bat","w"){|f|data.each{|item|f.puts item};}
質問者のhideです。
返信ありがとうございます。
外変のほううまく動作しました。
R.Nさん、sugiさんの意見を参考にして、元のスクリプトのエラー部分を削除してみたところ、
コジマ さんのスクリプトも動くようになりました。
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.collect!{|item|
if item=~/^REM #c小数点以下有効桁数 無指定:/
item=$&+$'.gsub(/^\d+/,$keta.to_s)
else
item
end
}
しかし、勾配を‰表示の一括記入の外部変形は、いまだうまく動きません。
厚かましいお願いですが、線上に平行で一括で線上側には勾配（1:n,％）、線下側には線長(m)、
が記入できる外部変形があれば、ありがたいです。計画図面、施工図のチェックに使います。
よろしくお願いします。
※過去ログ抜粋
【タイトル】Re(6):一括記入なら
【記事番号】 8686 (8683)
【 日時 】06/02/17 20:47
【 発言者 】コジマ
線上に一括記入するなら、以下の外変のほうが速いです。
(線を寸法線に見立てて、寸法値のように記述します。)
◎バッチファイル（ファイル名 ‰2.bat）
以下の文をコピペ後、全角スペースを半角スペースに一括置換。
REM 勾配を‰表示の一括記入
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c小数点以下有効桁数 無指定:2 /_/b
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks ‰2.rb temp.txt %1 %2 > jwc_temp.txt
◎スクリプトファイル（ファイル名 ‰2.rb）
以下の文をコピペ後、全角スペースを半角スペースに一括置換。
include Math;by=[]
hanare=1.0
$keta=2
puts "cc1"
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
hanare=argument[2..-1].to_f
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]=~/^hs/
xy[1..-1].each{|item|by< end
if xy[0]=~/^lg/
lg=xy[0][2,1];zusun=by[lg.hex]
end
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",
xy[0]+l/2*cos(kakudo)-hanare*zusun*sin(kakudo),
xy[1]+l/2*sin(kakudo)+hanare*zusun*cos(kakudo),
l*cos(kakudo),l*sin(kakudo),koubai_moji)
end
end
data=[]
open($0,"r"){|f|
while line=f.gets
data< end
}
data.collect!{|item|
if item=~/^hanare=/
item=$&+hanare.to_s
elsif item=~/^\$keta=/
item=$&+$keta.to_s
else
item
end
}
open($0,"w"){|f|data.each{|item|f.puts item};}
data=[]
open("‰2.bat","r"){|f|
while line=f.gets
data< end
}
data.collect!{|item|
if item=~/^REM #c線と文字の離れ\(図寸\) 無指定:/
item=$&+$'.gsub(/\d+\.*\d*/,hanare.to_s)
elsif item=~/^REM #c小数点以下有効桁数 無指定:/
item=$&+$'.gsub(/\d+/,$keta.to_s)
else
item
end
}
open("‰2.bat","w"){|f|data.each{|item|f.puts item};}
<Mozilla/5.0 (Android 10; Mobile; rv:120.0) Gecko/120.0 Firefox/120.0
|
sugi - 23/12/9(土) 18:27 - |
puts "h##{koubai_moji}"
のところで koubai_moji なんて変数やメソッドは定義されてませんよって
怒られてるようですがすぐ上で koubai_moji のローカル変数に値を入力してるので
なんでこんなメッセージが出るのかちょっとよく分かりません
dos窓のメッセージが文字化けする問題が関係してるなら
CHCP 932
を先頭に持ってくれば直るかもしれないです
ただこれでは jwwから選択しようとした場合のコメントが
意味不明になりそうで２行目に控えさせてみました
のところで koubai_moji なんて変数やメソッドは定義されてませんよって
怒られてるようですがすぐ上で koubai_moji のローカル変数に値を入力してるので
なんでこんなメッセージが出るのかちょっとよく分かりません
dos窓のメッセージが文字化けする問題が関係してるなら
CHCP 932
を先頭に持ってくれば直るかもしれないです
ただこれでは jwwから選択しようとした場合のコメントが
意味不明になりそうで２行目に控えさせてみました
<Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
ban - 23/12/9(土) 21:39 - |
$stderr=open("tmp_err.txt","w")
と
include Math
の間に、
koubai_moji= ""
を記述したらコメント文も表示されました。
$stderr=open("tmp_err.txt","w")
koubai_moji= ""
include Math
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0
|
sugi - 23/12/10(日) 5:45 - |
ようやく理解が追いつきました。
ローカル変数 koubai_moji にちゃんと初期値を設定してやれば良いので
ban さんの方法が正解
グローバル変数にしてもエラーは消えるのですが、あまり使いたくないです
他にも選択した線が二重になるという不具合があったりして修正しました
コジマさんのオリジナルのものには有効桁数を入力すると
次からその数値を引き継ぐようBATファイルを書き換える
機能がついてましたがこれは省きました
REM 勾配を‰表示.bat
CHCP 932
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
ruby -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
koubai_moji=""
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
return "垂直"
end
end
open("temp.txt").readlines.each{|e|
xy=e.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
a=ika(koubai,keta)
if a=="垂直"
koubai_moji= "i=垂直"
elsif koubai<0
koubai_moji= "i=#{a.abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{a.abs}‰"
elsif koubai>0
koubai_moji= "i=#{a.abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
elsif /^hq/!~e
puts e unless /^hq/=~e
end
}
__END__
:END
ローカル変数 koubai_moji にちゃんと初期値を設定してやれば良いので
ban さんの方法が正解
グローバル変数にしてもエラーは消えるのですが、あまり使いたくないです
他にも選択した線が二重になるという不具合があったりして修正しました
コジマさんのオリジナルのものには有効桁数を入力すると
次からその数値を引き継ぐようBATファイルを書き換える
機能がついてましたがこれは省きました
REM 勾配を‰表示.bat
CHCP 932
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
ruby -x %~f0 %1
GOTO END
REM #~
◎コメント
◎バッチファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
koubai_moji=""
keta=(ARGV[0] ? ARGV[0].gsub("/b","").to_i : 2)
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
return "垂直"
end
end
open("temp.txt").readlines.each{|e|
xy=e.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
a=ika(koubai,keta)
if a=="垂直"
koubai_moji= "i=垂直"
elsif koubai<0
koubai_moji= "i=#{a.abs}‰ 右下り"
elsif koubai==0
koubai_moji= "i=#{a.abs}‰"
elsif koubai>0
koubai_moji= "i=#{a.abs}‰ 右上り"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",0,0,1,0,koubai_moji)
elsif /^hq/!~e
puts e unless /^hq/=~e
end
}
__END__
:END
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
sugi - 23/12/10(日) 5:53 - |
> 線上に平行で一括で線上側には勾配（1:n,％）、線下側には線長(m)
というのには対応できてませんが
取り敢えず勾配の入力だけはできるようになりました
線長入力はひとまず宿題ということで
REM 一括記入.bat
REM 勾配を‰表示の一括記入
CHCP 932
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c小数点以下有効桁数 無指定:2 /_/b
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt
ruby -Ks -x %~f0 %1 %2
GOTO END
REM #~
◎コメント
◎スクリプトファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
by,zusun=[],1.0
koubai_moji=""
hanare=(ARGV[0] ? ARGV[0].gsub("/a","").to_f : 1.0)
keta=(ARGV[1] ? ARGV[1].gsub("/b","").to_i : 2)
puts "cc1"
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
return "垂直"
end
end
open("temp.txt").readlines.each{|e|
xy=e.split(" ")
if /^hs/=~xy[0]
xy[1..-1].each{|item|by << item}
puts e
elsif /^lg/=~xy[0]
lg=xy[0][2,1]
zusun=by[lg.hex].to_f
puts e
elsif /^\d|^-/=~xy[0]
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
a=ika(koubai,keta)
if a=="垂直"
koubai_moji= "i=垂直"
elsif koubai<0
koubai_moji= "i=#{a.abs}‰→"
elsif koubai==0
koubai_moji= "i=#{a.abs}‰"
else
koubai_moji= "←i=#{a.abs}‰"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",
xy[0]+l/2*cos(kakudo)-hanare*zusun*sin(kakudo),
xy[1]+l/2*sin(kakudo)+hanare*zusun*cos(kakudo),
l*cos(kakudo),l*sin(kakudo),koubai_moji)
elsif /^hq/!~e
puts e unless /^hq/=~e
end
}
__END__
:END
というのには対応できてませんが
取り敢えず勾配の入力だけはできるようになりました
線長入力はひとまず宿題ということで
REM 一括記入.bat
REM 勾配を‰表示の一括記入
CHCP 932
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c小数点以下有効桁数 無指定:2 /_/b
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt
ruby -Ks -x %~f0 %1 %2
GOTO END
REM #~
◎コメント
◎スクリプトファイル（ファイル名は自由）
◎コピペ後、全角スペースを半角スペース２個に一括置換してください
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
by,zusun=[],1.0
koubai_moji=""
hanare=(ARGV[0] ? ARGV[0].gsub("/a","").to_f : 1.0)
keta=(ARGV[1] ? ARGV[1].gsub("/b","").to_i : 2)
puts "cc1"
def ika(x,keta)
begin
a=((x.to_f*10**keta).round).to_f/(10**keta)
a=a.to_i if a.to_s =~/^0\.0$/
return a
rescue
return "垂直"
end
end
open("temp.txt").readlines.each{|e|
xy=e.split(" ")
if /^hs/=~xy[0]
xy[1..-1].each{|item|by << item}
puts e
elsif /^lg/=~xy[0]
lg=xy[0][2,1]
zusun=by[lg.hex].to_f
puts e
elsif /^\d|^-/=~xy[0]
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
a=ika(koubai,keta)
if a=="垂直"
koubai_moji= "i=垂直"
elsif koubai<0
koubai_moji= "i=#{a.abs}‰→"
elsif koubai==0
koubai_moji= "i=#{a.abs}‰"
else
koubai_moji= "←i=#{a.abs}‰"
end
printf("ch %.10f %.10f %.10f %.10f \"%s\n",
xy[0]+l/2*cos(kakudo)-hanare*zusun*sin(kakudo),
xy[1]+l/2*sin(kakudo)+hanare*zusun*cos(kakudo),
l*cos(kakudo),l*sin(kakudo),koubai_moji)
elsif /^hq/!~e
puts e unless /^hq/=~e
end
}
__END__
:END
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
hide - 23/12/10(日) 16:40 - |
質問者のhideです。sugiさん、こんにちは。質問者のhideです。要望に応えていただいて
大変感謝しています。なんか、徹夜されたみたいで、大変恐縮しています。お体大切にしてください。
プログラム、走らせてみましたが、
‰表示のほうは、
桁表示のほうが、無理数ではうまくいくが、切りの良い数値のときは、小数点1位表示となります。
また、一括記入のほうは、
小数点有効桁数を打ちかえても2桁のままで、また、切りの良い数値の
ときは、小数点1位表示となります。(例：i=301.59‰→、←i=20.0‰)
小数点有効桁数が、うまく機能していません。
桁数2桁用、3桁用などのbatファイルを複数作って対応してもよいのですが、プログラム内のどの部分を書き換えてよいのかわかりません。気長に返答お待ちしています。健康第1です。
よろしくお願いします。
大変感謝しています。なんか、徹夜されたみたいで、大変恐縮しています。お体大切にしてください。
プログラム、走らせてみましたが、
‰表示のほうは、
桁表示のほうが、無理数ではうまくいくが、切りの良い数値のときは、小数点1位表示となります。
また、一括記入のほうは、
小数点有効桁数を打ちかえても2桁のままで、また、切りの良い数値の
ときは、小数点1位表示となります。(例：i=301.59‰→、←i=20.0‰)
小数点有効桁数が、うまく機能していません。
桁数2桁用、3桁用などのbatファイルを複数作って対応してもよいのですが、プログラム内のどの部分を書き換えてよいのかわかりません。気長に返答お待ちしています。健康第1です。
よろしくお願いします。
<Mozilla/5.0 (Linux; Android 10; SO-02L Build/53.1.B.0.348; wv) AppleWebKit/537.36 (KHTML, like Gecko) Version/4.0 Chrome/87.0.4280.86 Mobile Safari/537.36
|
sugi - 23/12/11(月) 6:13 - |
機械屋には夜勤というものがあって
昼夜転倒の生活をしている人間もいるのです
桁表示の方は sprintf とか使えば直せると思うのですが
ちょっと待ってください
一括記入の方は調整は必要でしょうが大枠はできた気がする
REM 一括記入.bat
REM 勾配を‰表示の一括記入
CHCP 932
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c勾配有効桁数 無指定:2 /_/b
REM #c長さ有効桁数 無指定:3 /_/c
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt
ruby -Ks -x %~f0 %1 %2 %3
GOTO END
REM #~
◎コメント
◎スクリプトファイル（ファイル名は自由）
◎以下の文をコピペ後、全角スペースを半角スペース二個に一括置換
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
require "matrix"
hch,hs,by,zusun,takasa,l,mk,ml=[],[],[],0,0,0,"",""
hanare=(ARGV[0] ? ARGV[0].gsub("/a","").to_f : 1.0)
kketa=(ARGV[1] ? ARGV[1].gsub("/b","").to_i : 2)
nketa=(ARGV[2] ? ARGV[2].gsub("/c","").to_i : 3)
puts "cc4"
open("temp.txt").readlines.each{|e|
xy=e.split(" ")
puts e unless /^hq|^ [\d-]/=~e
if /^hs/=~e
xy[1..-1].each{|item|by << item}
elsif /^lg/=~e
lg=xy[0][2,1]
zusun=by[lg.hex].to_f
elsif /^hch/=~e
hch=xy
elsif /^cn0/=~e
takasa=xy[2].to_f*0.5*zusun
elsif /^cn\d/=~e
takasa=hch[e.gsub("cn","").to_i].to_f*0.5*zusun
elsif /^ [\d-]/=~e
xy=xy.map{|f|f.to_f}
vs=Vector[xy[0],xy[1]]
ve=Vector[xy[2],xy[3]]
v1=ve-vs
v2=Matrix[[0,-1.0],[1.0,0]]*v1*(1.0/v1.r)*(hanare+takasa)
p1=(vs+v1*0.5+v2)
p2=(vs+v1*0.5-v2)
begin
a=(v1[1]/v1[0]*1000).round(kketa)
rescue
a="垂直"
end
l=v1.r
if a=="垂直"
mk="i=垂直"
elsif a<0
mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰→|
elsif a==0
mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰|
else
mk=%Q|←i=#{sprintf("%.#{kketa}f",a.abs)}‰|
end
ml=sprintf("%.#{nketa}f",l.round(nketa))
puts %Q|ch #{p1[0]} #{p1[1]} #{v1[0]} #{v1[1]} "#{mk}|
puts %Q|ch #{p2[0]} #{p2[1]} #{v1[0]} #{v1[1]} "#{ml}|
end
}
__END__
:END
昼夜転倒の生活をしている人間もいるのです
桁表示の方は sprintf とか使えば直せると思うのですが
ちょっと待ってください
一括記入の方は調整は必要でしょうが大枠はできた気がする
REM 一括記入.bat
REM 勾配を‰表示の一括記入
CHCP 932
echo off
REM #jww
REM #cd
REM #h0
REM #c線と文字の離れ(図寸) 無指定:1.0 /_/a
REM #c勾配有効桁数 無指定:2 /_/b
REM #c長さ有効桁数 無指定:3 /_/c
REM #1ln線を指示してください free(L)
REM #99#
REM #e
copy jwc_temp.txt temp.txt
ruby -Ks -x %~f0 %1 %2 %3
GOTO END
REM #~
◎コメント
◎スクリプトファイル（ファイル名は自由）
◎以下の文をコピペ後、全角スペースを半角スペース二個に一括置換
#! ruby
# encoding: SJIS
$stdout=open("jwc_temp.txt","w")
$stderr=open("tmp_err.txt","w")
include Math
require "matrix"
hch,hs,by,zusun,takasa,l,mk,ml=[],[],[],0,0,0,"",""
hanare=(ARGV[0] ? ARGV[0].gsub("/a","").to_f : 1.0)
kketa=(ARGV[1] ? ARGV[1].gsub("/b","").to_i : 2)
nketa=(ARGV[2] ? ARGV[2].gsub("/c","").to_i : 3)
puts "cc4"
open("temp.txt").readlines.each{|e|
xy=e.split(" ")
puts e unless /^hq|^ [\d-]/=~e
if /^hs/=~e
xy[1..-1].each{|item|by << item}
elsif /^lg/=~e
lg=xy[0][2,1]
zusun=by[lg.hex].to_f
elsif /^hch/=~e
hch=xy
elsif /^cn0/=~e
takasa=xy[2].to_f*0.5*zusun
elsif /^cn\d/=~e
takasa=hch[e.gsub("cn","").to_i].to_f*0.5*zusun
elsif /^ [\d-]/=~e
xy=xy.map{|f|f.to_f}
vs=Vector[xy[0],xy[1]]
ve=Vector[xy[2],xy[3]]
v1=ve-vs
v2=Matrix[[0,-1.0],[1.0,0]]*v1*(1.0/v1.r)*(hanare+takasa)
p1=(vs+v1*0.5+v2)
p2=(vs+v1*0.5-v2)
begin
a=(v1[1]/v1[0]*1000).round(kketa)
rescue
a="垂直"
end
l=v1.r
if a=="垂直"
mk="i=垂直"
elsif a<0
mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰→|
elsif a==0
mk=%Q|i=#{sprintf("%.#{kketa}f",a.abs)}‰|
else
mk=%Q|←i=#{sprintf("%.#{kketa}f",a.abs)}‰|
end
ml=sprintf("%.#{nketa}f",l.round(nketa))
puts %Q|ch #{p1[0]} #{p1[1]} #{v1[0]} #{v1[1]} "#{mk}|
puts %Q|ch #{p2[0]} #{p2[1]} #{v1[0]} #{v1[1]} "#{ml}|
end
}
__END__
:END
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
hide - 23/12/11(月) 12:12 - |
質問者のhideです。sugiさん、返信ありがとうございます。感謝感激感動です！
うーん、動きませでした。
GOTO ENDの前にpauseを記入すると
C:\JWW\外変寸法\勾配%>REM 一括記入.bat
C:\JWW\外変寸法\勾配%>REM 勾配を‰表示の一括記入
C:\JWW\外変寸法\勾配%>CHCP 932
現在のコード ページ: 932
C:\JWW\外変寸法\勾配%>echo off
1 個のファイルをコピーしました。
続行するには何かキーを押してください . . .
と、DOS窓に表示。
tmp_err.txt
C:/JWW/外変寸法/勾配%/一括記入.bat:76:in `round': wrong number of arguments (1 for 0) (ArgumentError)
from C:/JWW/外変寸法/勾配%/一括記入.bat:76
from C:/JWW/外変寸法/勾配%/一括記入.bat:39:in `each'
from C:/JWW/外変寸法/勾配%/一括記入.bat:39
当方PC環境は、win7
現在のディレクトリは C:/JWW/便利外変/jwruby
ruby のバージョンは
ruby 1.8.7 (2013-06-27 patchlevel 374) [i386-mingw32]
ruby のロードパスは
c:/ruby/lib/ruby/site_ruby/1.8
c:/ruby/lib/ruby/site_ruby/1.8/i386-msvcrt
c:/ruby/lib/ruby/site_ruby
c:/ruby/lib/ruby/vendor_ruby/1.8
c:/ruby/lib/ruby/vendor_ruby/1.8/i386-msvcrt
c:/ruby/lib/ruby/vendor_ruby
c:/ruby/lib/ruby/1.8
c:/ruby/lib/ruby/1.8/i386-mingw32
です。
できれば、範囲選択で線を複数選択できたほうが大変便利と思います。
よろしくお願いします。
うーん、動きませでした。
GOTO ENDの前にpauseを記入すると
C:\JWW\外変寸法\勾配%>REM 一括記入.bat
C:\JWW\外変寸法\勾配%>REM 勾配を‰表示の一括記入
C:\JWW\外変寸法\勾配%>CHCP 932
現在のコード ページ: 932
C:\JWW\外変寸法\勾配%>echo off
1 個のファイルをコピーしました。
続行するには何かキーを押してください . . .
と、DOS窓に表示。
tmp_err.txt
C:/JWW/外変寸法/勾配%/一括記入.bat:76:in `round': wrong number of arguments (1 for 0) (ArgumentError)
from C:/JWW/外変寸法/勾配%/一括記入.bat:76
from C:/JWW/外変寸法/勾配%/一括記入.bat:39:in `each'
from C:/JWW/外変寸法/勾配%/一括記入.bat:39
当方PC環境は、win7
現在のディレクトリは C:/JWW/便利外変/jwruby
ruby のバージョンは
ruby 1.8.7 (2013-06-27 patchlevel 374) [i386-mingw32]
ruby のロードパスは
c:/ruby/lib/ruby/site_ruby/1.8
c:/ruby/lib/ruby/site_ruby/1.8/i386-msvcrt
c:/ruby/lib/ruby/site_ruby
c:/ruby/lib/ruby/vendor_ruby/1.8
c:/ruby/lib/ruby/vendor_ruby/1.8/i386-msvcrt
c:/ruby/lib/ruby/vendor_ruby
c:/ruby/lib/ruby/1.8
c:/ruby/lib/ruby/1.8/i386-mingw32
です。
できれば、範囲選択で線を複数選択できたほうが大変便利と思います。
よろしくお願いします。
<Mozilla/5.0 (Android 10; Mobile; rv:120.0) Gecko/120.0 Firefox/120.0
|
sugi - 23/12/11(月) 13:34 - |
次の修正で範囲選択で一度に複数選択出来るようにしてみようと思います
私の環境は
ruby 2.6.5p114 (2019-10-01 revision 67812) [x64-mingw32]
調べてみたら roundの仕様が変わっていました
取り敢えず次の二箇所を探して変更してみてください
(誤):a=(v1[1]/v1[0]*1000).round(kketa)
(正):a=((v1[1]/v1[0]*1000)*10.0**kketa).round*0.1**kketa
(誤):ml=sprintf("%.#{nketa}f",l.round(nketa))
(正):ml=sprintf("%.#{nketa}f",(l*10.0**nketa).round*0.1**nketa)
私の環境は
ruby 2.6.5p114 (2019-10-01 revision 67812) [x64-mingw32]
調べてみたら roundの仕様が変わっていました
取り敢えず次の二箇所を探して変更してみてください
(誤):a=(v1[1]/v1[0]*1000).round(kketa)
(正):a=((v1[1]/v1[0]*1000)*10.0**kketa).round*0.1**kketa
(誤):ml=sprintf("%.#{nketa}f",l.round(nketa))
(正):ml=sprintf("%.#{nketa}f",(l*10.0**nketa).round*0.1**nketa)
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
sugi - 23/12/11(月) 15:30 - |
修正のたびにバッチファイルをアップするのはちょっとうるさいので
ホームページに準備してみました
現状、ここまでできました
要望とかあれば引き続きこちらの掲示板に書き込んでください
http://pansy.s1010.xrea.com/2023/12/11/%e9%95%b7%e3%81%95%e5%8b%be%e9%85%8d%e8%a8%98%e5%85%a5/
ホームページに準備してみました
現状、ここまでできました
要望とかあれば引き続きこちらの掲示板に書き込んでください
http://pansy.s1010.xrea.com/2023/12/11/%e9%95%b7%e3%81%95%e5%8b%be%e9%85%8d%e8%a8%98%e5%85%a5/
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
hide - 23/12/11(月) 22:14 - |
掲示板のスクリプトをスマフォ経由でPCのterapadエディターに取り込んだところ、改行がありませんでしたので、独自に改行を追加編集しました。。また、なぜか、67行目、69行目、102行目付近の
＼ｄが
\d に、文字化けしていましたが、プログラムは、うまく動作しました。
wo--
ほぼ完ぺきです。これは使えます。数限りない厚かましい要望に応えていただき、大変感謝感激感動です。
これは、断面図のチェック、施工図の作成などに威力を発揮します。
実行結果です。
長さ勾配一括を実行したとき、
線と文字の離れ(図寸) に 数値 を入力すると、勾配や長さがが 整数 になったりします。
例:入力 1 1 1 結果 勾配 整数(異常) 長さ 整数(異常)
例:入力 2 2 2 結果 勾配 整数(異常) 長さ 整数(異常)
例:入力 1 無指定 無指定 結果 勾配 整数(異常) 長さ 正常
例:入力 2 無指定 無指定 結果 勾配 整数(異常) 長さ 正常
線と文字の離れ(図寸) に 100 を入力しても、文字は離れていないような気がします。
また、単位ですが、勾配は％、長さはｍのほうが土木系には使いやすいです。
法勾配１：ｎの範囲選択バージョンも追加していただきたいです。続きこちらの掲示板に書き込んでください
>
>http://pansy.s1010.xrea.com/2023/12/11/%e9%95%b7%e3%81%95%e5%8b%be%e9%85%8d%e8%a8%98%e5%85%a5/
＼ｄが
\d に、文字化けしていましたが、プログラムは、うまく動作しました。
wo--
ほぼ完ぺきです。これは使えます。数限りない厚かましい要望に応えていただき、大変感謝感激感動です。
これは、断面図のチェック、施工図の作成などに威力を発揮します。
実行結果です。
長さ勾配一括を実行したとき、
線と文字の離れ(図寸) に 数値 を入力すると、勾配や長さがが 整数 になったりします。
例:入力 1 1 1 結果 勾配 整数(異常) 長さ 整数(異常)
例:入力 2 2 2 結果 勾配 整数(異常) 長さ 整数(異常)
例:入力 1 無指定 無指定 結果 勾配 整数(異常) 長さ 正常
例:入力 2 無指定 無指定 結果 勾配 整数(異常) 長さ 正常
線と文字の離れ(図寸) に 100 を入力しても、文字は離れていないような気がします。
また、単位ですが、勾配は％、長さはｍのほうが土木系には使いやすいです。
法勾配１：ｎの範囲選択バージョンも追加していただきたいです。続きこちらの掲示板に書き込んでください
>
>http://pansy.s1010.xrea.com/2023/12/11/%e9%95%b7%e3%81%95%e5%8b%be%e9%85%8d%e8%a8%98%e5%85%a5/
<Mozilla/5.0 (Android 10; Mobile; rv:120.0) Gecko/120.0 Firefox/120.0
|
sugi
- 23/12/13(水) 8:54 -
|
ホームページの外部変形を更新しました
外部変形の右上のバッチファイル名からコピーできるので
terapadで直接コピーして SJIS で保存し直すとやりやすいかと思います
\dは正規表現の数字のことであれば文字化けでなくてこれで合っています
久しぶりに外部変形を作ってオプションの処理の仕方を間違えてました
#R.Nさん、ご指摘ありがとうございます
法勾配については馴染みがなくって調べながら作ってみました
充分にチェックしていないので他にもまだ動作がおかしい点が
あれば教えてください
外部変形の右上のバッチファイル名からコピーできるので
terapadで直接コピーして SJIS で保存し直すとやりやすいかと思います
\dは正規表現の数字のことであれば文字化けでなくてこれで合っています
久しぶりに外部変形を作ってオプションの処理の仕方を間違えてました
#R.Nさん、ご指摘ありがとうございます
法勾配については馴染みがなくって調べながら作ってみました
充分にチェックしていないので他にもまだ動作がおかしい点が
あれば教えてください
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/119.0.0.0 Safari/537.36
|
ban - 23/12/13(水) 10:38 - |
▼sugiさん：
>ホームページの外部変形を更新しました
>外部変形の右上のバッチファイル名からコピーできるので
>terapadで直接コピーして SJIS で保存し直すとやりやすいかと思います
>
>\dは正規表現の数字のことであれば文字化けでなくてこれで合っています
>
>久しぶりに外部変形を作ってオプションの処理の仕方を間違えてました
>#R.Nさん、ご指摘ありがとうございます
>
>法勾配については馴染みがなくって調べながら作ってみました
>
>充分にチェックしていないので他にもまだ動作がおかしい点が
>あれば教えてください
改良有難うございます。
ruby 1.8.6でも動作しています。
表示単位が％になっています。（‰でない）
長さの単位がｍとなっています。（数値はmm）
<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36 Edg/120.0.0.0
|
sugi - 23/12/13(水) 11:03 - |
>> 表示単位が％になっています。（‰でない）
>> 長さの単位がｍとなっています。（数値はmm）
この辺はhideさんの要望に応えた積りだったのですが
機械民には馴染みがなくって見当外れだったかも
土木系の方は日常的にm単位で図面を描くのか
なんて思ったりしてました
>> 長さの単位がｍとなっています。（数値はmm）
この辺はhideさんの要望に応えた積りだったのですが
機械民には馴染みがなくって見当外れだったかも
土木系の方は日常的にm単位で図面を描くのか
なんて思ったりしてました
<Mozilla/5.0 (Linux; Android 10; K) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/120.0.0.0 Safari/537.36
|
hide - 23/12/13(水) 21:10 - |
新しいbatファイルありがとうございます。
大変うれしいです。
実行してみました。
未実行
35と39行目の
C:\ruby187b\bin\ruby -Ks -x %~f0 %1 %2 %3 %4
を
#C:\ruby187b\bin\
ruby -Ks -x %~f0 %1 %2 %3 %4
に変更、動作確認。（ほっ）
書き出された数値を見ると
傾きは、 数値は‰で単位は％。
長さは、 数値はmmで単位はm。
よって、
112、114行目の
a=((v1[1]/v1[0]*1000)*10.0**kke).round*0.1**kke
を
# a=((v1[1]/v1[0]*1000)*10.0**kke).round*0.1**kke
a=((v1[1]/v1[0]*100)*10.0**kke).round*0.1**kke
に変更、
101、141、15行目の
l=v1.r
を
# l=v1.r
l=0.001*v1.r
に変更、
有効桁数を無指定3.0にしたいので
76行目を kke=(opt==2 ? 3 :3)に変更、
単位％、ｍ 全角を、半角に変更、
2行目、‰を%
に変更、
動作確認。（ほっ）
とってもいいものを作っていただきました。rubyのプログラムも勉強させていただきました。
私のわがままに、長々付き合っていただきありがとうございます。
スギさんのこのスキル以上に、精神力がすごいと思います。
大変うれしいです。
実行してみました。
未実行
35と39行目の
C:\ruby187b\bin\ruby -Ks -x %~f0 %1 %2 %3 %4
を
#C:\ruby187b\bin\
ruby -Ks -x %~f0 %1 %2 %3 %4
に変更、動作確認。（ほっ）
書き出された数値を見ると
傾きは、 数値は‰で単位は％。
長さは、 数値はmmで単位はm。
よって、
112、114行目の
a=((v1[1]/v1[0]*1000)*10.0**kke).round*0.1**kke
を
# a=((v1[1]/v1[0]*1000)*10.0**kke).round*0.1**kke
a=((v1[1]/v1[0]*100)*10.0**kke).round*0.1**kke
に変更、
101、141、15行目の
l=v1.r
を
# l=v1.r
l=0.001*v1.r
に変更、
有効桁数を無指定3.0にしたいので
76行目を kke=(opt==2 ? 3 :3)に変更、
単位％、ｍ 全角を、半角に変更、
2行目、‰を%
に変更、
動作確認。（ほっ）
とってもいいものを作っていただきました。rubyのプログラムも勉強させていただきました。
私のわがままに、長々付き合っていただきありがとうございます。
スギさんのこのスキル以上に、精神力がすごいと思います。
<Mozilla/5.0 (Android 10; Mobile; rv:120.0) Gecko/120.0 Firefox/120.0