Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

1163 / 1500 ←次へ　｜　前へ→

Re:複線間隔や文字の行間をプレ設定したい

左卜全 - 21/10/13(水) 16:08 -

▼kojimaさん：

ありがとうございます。

しかし、、
難しくてこれの何をどうすればいいのかわかりませんです^^;

すみません。。

>▼左卜全さん：
>>複線間隔や文字の行間ですが
>>都度入力ではなく
>>よく使う値をあらかじめ設定しておくことはできませんか？
>
>最初に
>「設定」「基本設定」「一般(2)」の
>□文字コマンドの時文字位置指示後に文字入力を行う　にチェックを入れる。
>
>○行間設定.txt
>7,0
>8,0
>9,0
>10,0
>12,0
>15,0
>17,0
>20,0
>22.5,0
>25,0
>
>○複線設定.txt
>1000
>1200
>1500
>1700
>2500
>
>○バッチファイル
>
>@REM 複線間隔の設定・行間の設定
>@echo off
>REM #jww
>REM #cd
>REM #e
>start ruby -x %~f0
>echo h#>jwc_temp.txt
>
>goto end
>#!ruby -Ks
>hukusen_a=[]
>open("複線設定.txt","r"){|f|
> while f.gets
> hukusen_a<<$_.chomp.to_f
> end
>}
>gyokan_a=[]
>open("行間設定.txt","r"){|f|
> while f.gets
> gyokan_a<<$_.chomp
> end
>}
>require 'win32ole'
>shell=WIN32OLE.new("WScript.Shell")
>shell.AppActivate("jw_win")
>#行間
>sleep(0.5)
>shell.Sendkeys("%\da")
>sleep(0.5)
>6.times{shell.Sendkeys("^{TAB}")}
>gyokan_a.each{|item|
> sleep(0.5)
> shell.Sendkeys("{DELETE}#{item}{ENTER}")
> sleep(1)
> 6.times{shell.Sendkeys("^{TAB}")}
>}
>#複線間隔
>sleep(0.5)
>shell.Sendkeys("%ef")
>hukusen_a.each{|item|
> sleep(0.5)
> shell.Sendkeys("#{item}{ENTER}")
>}
>__END__
>:end
>
>
>※複線コマンドを実行しないで他のコマンドに移行すると
>入力された数値は無効になります。
>必ず実行してください。