Jw_cad 相談室－その２

Jw_cad 相談室－その２ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

1082 / 1467 ←次へ　｜　前へ→

Re:変数による数式

通りすがりの後期高齢者

- 22/4/18(月) 13:40 -

▼R.Nさん：
>
>こんばんは、お世話になります。
>
>"BM・GL・DL・FL±"などの表記は、そのまま残るようにして貰いたいです。
>（rbオプション設定へ、追記するとかで）
>
>出力レベル表記は、元データレベルのみを別レイヤに移行した状態で、実行する手法でも結構です。
>よろしくお願いいたします。

こんにちは。

いつも検証ありがとうございます。
このようなレベルを変更する外部変形はそれぞれの考え方により
相違すると思います。
この外部変形は単純に入力した数値で増減するするものでGLとか
FLとかの相対的な変更ではないです。

趣旨に合うかどうか解りませんがスクリプトの下記箇所を修正して
試してみてください。

※56行目～
####### 設定 ###############################################
#
$marume="d" #丸め方式(r≡四捨五入; d≡切捨て; u≡切上げ)
$keta = 1 #小数点以下の表示桁数(0～4)
$zero = "off" #表示桁数以下の０表示(on≡有; off≡無)
$comma= "on" #三桁カンマ区切り(on≡設定有; off≡設定無)
#
$save = "BM" #数値認識及び保存する先頭文字列(無指定:半角空白)
#
############################################################
def main
$stdin = File.open("./temp.txt","r")
$stdout = File.open("./jwc_temp.txt","w")
$dh = 0.0
include Math
while ARGV.size >= 1
case argument = ARGV.pop
when /^\/h/
$dh = argument[2..-1].to_f
end
end
if $marume != "r" && $marume != "d" && $marume != "u"
puts "he 丸め方式設定エラー。"; exit
end
if $keta < 0 or $keta > 4
puts "he 小数点以下の表示桁数設定エラー。"; exit
end
if $comma != "on" && $comma != "off"
puts "he 三桁カンマ区切り設定エラー。"; exit
end
if $dh == 0
puts "he 増減する高さ数値が入力されていません。"; exit
end
while gets
ele = $_.split
if $_ =~ /^hq/
puts "hd" #データ書換
elsif $_ =~ /^ch/ #横文字
data = $_.split
no = $_.index(/\"/); moji = $_[no+1..-1].strip
if moji =~ /^\+[0-9]|^\-[0-9]|^±|^#{$save}/ #半角符号付数字＆$save
if moji =~ /^#{$save}/
save = $save
elsif moji !~ /^#{$save}/
save = ""
end
moji.delete!("+±\s,#{$save}")
h0 = moji.to_f+$dh
h = marume(h0)
if h0 == 0
puts [data[0,5],"\"#{save}±0"].join("\s")
elsif h0 > 0
puts [data[0,5],"\"#{save}+#{h}"].join("\s")
elsif h0 < 0
puts [data[0,5],"\"#{save}#{h}"].join("\s")
end
else
print
end
else
print #その他のデータは全て書出し
end
end
end

rem ---以上です。