Jw_cad 相談室−その2 New

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

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

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


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

Re:文字サイズ変更の外部変形を探しています。
 kojima  - 17/6/10(土) 20:04 -
@REM 文字の幅・高を同寸に/一括拡大/間隔変更
@echo off
goto %1
REM #jww
REM #cd
REM #hm|1)幅高同寸(L)|2)一括拡大(R)|3)間隔変更|
REM #:1
REM #zz
REM #zc
REM #h3
REM #k|高→幅に(L)|幅→高に(R)|/_/a
REM #bz
REM #e
REM #:2
REM #zz
REM #zc
REM #h3
REM #c拡大率 無指定:1/_/a
REM #bz
REM #e
REM #:3
REM #zz
REM #zc
REM #h3
REM #c文字間隔(図寸) 無指定:0/_/a
REM #bz
REM #e
:1
echo h#1> test.txt
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %2 > jwc_temp.txt
pause
goto end
:2
echo h#2> test.txt
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %2 > jwc_temp.txt
pause
goto end
:3
echo h#3> test.txt
copy jwc_temp.txt temp.txt > nul
ruby -x %~f0 temp.txt %2 > jwc_temp.txt
pause
goto end
#!ruby -Ks
def moji_a(file,hcw,hch,hcd,hcc)
f=open(file,"r")
while f.gets
xy=$_.split
if xy[0]=~/^hcw/
xy.each{|item|hcw<<item.to_f}
elsif xy[0]=~/^hch/
xy.each{|item|hch<<item.to_f}
elsif xy[0]=~/^hcd/
xy.each{|item|hcd<<item.to_f}
elsif xy[0]=~/^hcc/
xy.each{|item|hcc<<item.to_i}
end
end
f.close
end
def moji_syu(xy,hcw,hch,hcd,hcc)
if xy.size==1
i=xy[0][2..-1].to_i
moji_w=hcw[i]
moji_h=hch[i]
moji_d=hcd[i]
moji_c=hcc[i]
else
moji_w=xy[1].to_f
moji_h=xy[2].to_f
moji_d=xy[3].to_f
moji_c=xy[4].to_i
end
return moji_w,moji_h,moji_d,moji_c
end
spec=""
open("test.txt","r"){|f|spec=f.gets}
hcw=[];hch=[];hcd=[];hcc=[]
moji_a("temp.txt",hcw,hch,hcd,hcc)

puts "hd"
if spec=~/^h#1/
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
av=argument[2..-1].to_i
end
end
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^cn(\d+)/
moji_w,moji_h,moji_d,moji_c=moji_syu(xy,hcw,hch,hcd,hcc)
if av==1
puts "cn0 #{moji_w} #{moji_w} #{moji_d} #{moji_c}"
else
puts "cn0 #{moji_h} #{moji_h} #{moji_d} #{moji_c}"
end
else
print $_
end
end
elsif spec=~/^h#2/
by=1.0
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
by=argument[2..-1].to_f
end
end
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^cn(\d+)/
moji_w,moji_h,moji_d,moji_c=moji_syu(xy,hcw,hch,hcd,hcc)
puts "cn0 #{moji_w*by} #{moji_h*by} #{moji_d*by} #{moji_c}"
else
print $_
end
end
else
moji_d2=0
while ARGV.size>1
case argument=ARGV.pop
when /\/a/
moji_d2=argument[2..-1].to_f
end
end
while ARGF.gets
xy=$_.split
if xy[0]=~/^hq/
elsif xy[0]=~/^cn(\d+)/
moji_w,moji_h,moji_d,moji_c=moji_syu(xy,hcw,hch,hcd,hcc)
puts "cn0 #{moji_w} #{moji_h} #{moji_d2} #{moji_c}"
else
print $_
end
end
end
__END__
:end


引用なし

パスワード


<Mozilla/5.0 (Windows NT 10.0; WOW64; Trident/7.0; rv:11.0) like Gecko@ai126248143178.9.tss.access-internet.ne.jp>
・ツリー全体表示

文字サイズ変更の外部変形を探しています。 kenji 17/6/8(木) 19:18
Re:文字サイズ変更の外部変形を探しています。 R.N 17/6/9(金) 20:07
Re:文字サイズ変更の外部変形を探しています。 kenji 17/6/10(土) 1:58
Re:文字サイズ変更の外部変形を探しています。 kojima 17/6/9(金) 22:05
Re:文字サイズ変更の外部変形を探しています。 kenji 17/6/10(土) 2:31
Re:文字サイズ変更の外部変形を探しています。 kojima 17/6/10(土) 20:04
Re:文字サイズ変更の外部変形を探しています。 O.M 17/6/11(日) 6:03

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

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