Indexへ
(24696)//【24678】→(24680)
------------------------
【タイトル】文字_線座標.batなのですが・・・
【記事番号】 24678 (*)
【 日時 】07/11/14 15:17
【 発言者 】風呂好き

いつもお世話になっています。
以前、コジマ様に作成していただいた「外変文字_線座標.bat」なのですが
・・・線分に番号をふって、その線分の座標と番号をテキストファイル
にする外変です・・・
しばらく使っていませんで、今日、使おうと思って動かしたのですが
動かなくなってしまいました。
現在のbatファイルをUPしてみました、動かない原因がよくわかりません。
作成していただいた(多分今年の7月頃・・)は良かったのですが
どいうわけか動きません。
申し訳ありません。
検証よろしくお願いします。


@REM 線座標と直近の文字の関連付け
@echo off
REM #jww
REM #cd
REM #c文字と線の垂直離隔(図寸) 無指定:5mm以内/_/a
REM #c座標値の小数点以下有効桁数 無指定:3/_/b
REM #h1
REM #0原点を指示してください free(L) Read(R)
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %1 %2 > jwc_temp.txt
exit
#!ruby -Ks

include Math
hanare=5.0;keta=3
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
sen=[];by=[];moji_a=[]
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}
    sen<  end
  if xy[0]=~/^ch/
    moji=$'.chomp if $_=~/\"/
    moji_a<<[xy[1].to_f,xy[2].to_f,moji]
  end
end

moji_a.sort!{|a,b|a[2]<=>b[2]}

open("文字_線座標.txt","w"){|f|

  moji_a.each{|item|
    a=sen.find{|item2|
      x1_1=item2[2]-item2[0]
      y1_1=item2[3]-item2[1]
      l1_1=hypot(y1_1,x1_1)
      arg1_1=atan2(y1_1,x1_1)

      x2_1=item[0]-item2[0]
      y2_1=item[1]-item2[1]
      l2_1=hypot(y2_1,x2_1)
      arg2_1=atan2(y2_1,x2_1)

      henkaku1=arg2_1-arg1_1
      y=l2_1*sin(henkaku1)
      x=l2_1*cos(henkaku1)

      x1_2=item2[0]-item2[2]
      y1_2=item2[1]-item2[3]
      l1_2=hypot(y1_2,x1_2)
      arg1_2=atan2(y1_2,x1_2)

      x2_2=item[0]-item2[2]
      y2_2=item[1]-item2[3]
      l2_2=hypot(y2_2,x2_2)
      arg2_2=atan2(y2_2,x2_2)

      henkaku2=arg2_2-arg1_2
      yy=l2_2*sin(henkaku2)
      xx=l2_2*cos(henkaku2)
      y.abs    }
    if a
      f.printf("%s\t%.#{keta}f\t%.#{keta}f\t%.#{keta}f\t%.#{keta}f\n",item[2],a[0],a[1],a[2],a[3])
      sen.delete_if{|item3|item3==a}
    end
  }
}

system("notepad 文字_線座標.txt")


Indexへ
(24678)←【24680】→(24681)
------------------------
【タイトル】Re(1):問題なく動きます。
【記事番号】 24680 (24678)
【 日時 】07/11/14 16:23
【 発言者 】コジマ

当方では、問題なく動きます。(ver 5.11e)

メモ帳(netepad)の不具合では?

「スタート」→「全てのプログラム」→「アクセサリ」→「メモ帳」
で起動できますか?


Indexへ
(24680)←【24681】→(24682)
------------------------
【タイトル】Re(2):問題なく動きます。
【記事番号】 24681 (24680)
【 日時 】07/11/14 16:41
【 発言者 】風呂好き

▼コジマさん:
早速のご返事ありがとうございます。
「メモ帳」は問題なく動きます。
Ver6.0aで使用しています。他のルビーを使った外変は
動いています。
実はうまく動かなかった中で、数値を入力する部分が
ありますが、無指定せずに、値を入れた時に一度だけ
起動しました。
このとき起動したのですが、DOS窓が閉じませんでした。
DOS窓の「×」をクリックして閉じさせました。
しかし、その後は動かなくなってしまいました。
後は考えられのはJWWのバージョンの違いからくる
問題なのかな???

        「風呂好き」


Indexへ
(24681)←【24682】//(24683)
------------------------
【タイトル】動きました
【記事番号】 24682 (24680)
【 日時 】07/11/14 16:54
【 発言者 】風呂好き

▼コジマさん:
動きました。
いろいろご心配をお掛けしました。
実は、この外部変形ですが、外変のランチャーを使って
起動させていました。
そのランチャーなのですが、「TurboLauncher」です。
かなり昔に開発されたものんだのですが、このランチャーから
始動させるとうまく動きませんでしたが、JWWから
直接、外変のBATファイルを起動させましたら
動きました。
ご心配おかけしましたが、なんとか起動できました。
なぜ、このランチャーから起動できないかは
わかりませんが、正常に起動しましたので一安心です。
ありがとうございました。
今後ともよろしくお願いします。


      「風呂好き」