Jw_cad 相談室−その2 New

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

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

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


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

動かない外部変形を動かしたい。 hide 23/12/7(木) 21:00

Re:動かない外部変形を動かしたい。 ban 23/12/9(土) 21:39
Re:動かない外部変形を動かしたい。 sugi 23/12/10(日) 5:45

Re:動かない外部変形を動かしたい。
 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@p1176159-ipxg04501morioka.iwate.ocn.ne.jp>
・ツリー全体表示

Re:動かない外部変形を動かしたい。
 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 #~

◎コメント
◎バッチファイル(ファイル名は自由)
◎コピペ後、全角スペースを半角スペース2個に一括置換してください

#! 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@global221-160-094.aitai.ne.jp>
・ツリー全体表示

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

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