Jw_cad 情報交換室

Jw_cad 情報交換室－その３ New

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

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

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

┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃

1161 / 1500 ←次へ　｜　前へ→

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をダブルクリックする。