Jw_cad 情報交換室−その3New

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

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

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


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

複線間隔や文字の行間をプレ設定したい 左卜全 21/10/13(水) 9:33

Re:複線間隔や文字の行間をプレ設定したい 左卜全 21/10/13(水) 16:08
Re:複線間隔や文字の行間をプレ設定したい kojima 21/10/13(水) 21:52

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 &#39;win32ole&#39;
>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
>
>
>※複線コマンドを実行しないで他のコマンドに移行すると
>入力された数値は無効になります。
>必ず実行してください。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/94.0.4606.81 Safari/537.36@p1539165-ipngn200409osakachuo.osaka.ocn.ne.jp>
・ツリー全体表示

Re:複線間隔や文字の行間をプレ設定したい
 kojima  - 21/10/13(水) 21:52 -
Rubyの動作する環境が必要です。

以下で ActiveScriptRuby(1.8.7-p330) をダウンロードしてインストールする。
https://www.artonx.org/data/asr/


メモ帳(notepad)を開いて、以下の数値を記入して
名前を 行間設定.txt として保存してください。
(文字コードをANSIとする)
7,0
8,0
9,0
10,0
12,0
15,0
17,0
20,0
22.5,0
25,0

メモ帳(notepad)を開いて、以下の数値を記入して
名前を 複線設定.txt として保存してください。
(文字コードをANSIとする)
1000
1200
1500
1700
2500

メモ帳(notepad)を開いて、以下の文字を記入して
名前を 複線設定.batとして保存してください。
(文字コードをANSIとする)
@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")
#行間
gyokan_a.each{|item|
sleep(0.1)
shell.Sendkeys("%\da")
sleep(0.1)
7.times{shell.Sendkeys("^{TAB}")}
sleep(0.1)
shell.Sendkeys("#{item}{ENTER}")
sleep(0.1)
shell.Sendkeys("b")
sleep(0.1)
}
#複線間隔
shell.Sendkeys("%ef")
hukusen_a.each{|item|
sleep(0.1)
shell.Sendkeys("#{item}{ENTER}")
}
__END__
:end


最初に
「設定」「基本設定」「一般(2)」の
□文字コマンドの時文字位置指示後に文字入力を行う にチェックを入れる。

「その他」→「外部変形」コマンドを実行して
さきほどのファイルを保存したフォルダにアクセスして
複線設定.batをダブルクリックする。

引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/94.0.4606.81 Safari/537.36 Edg/94.0.992.47@ai126160159209.39.access-internet.ne.jp>
・ツリー全体表示

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

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