« 円弧作図 | トップページ | 縮尺 »

2018年10月 2日 (火)

文字作図

今回は、文字を2行作図する外変です。

Jw_cadで入力した文字を、JScriptに受け渡す方法がわかっていません。
AWKの場合は、-vCH=%1 等で出来たのですが。

ということで、Jwc_temp.txt への追記で対応してみました。

echo chr  %1 >>jwc_temp.txt
echo chr  %2 >>jwc_temp.txt
入力した文字列は、%1、%2 で jwc_temp.txt に追記されます。
例)
chr abcdef
chr あいうえお
JScript は、ch=line.split(/\s+/)で、入力文字を取得します。
/\s+/:1文字以上のスペース。

@if(0==1) //文字作図
REM #jww
REM #cd
REM #0 文字の位置を指示してください (L)free (R)Read
REM #c 文字Aを入力してください
REM #f 文字Bを入力してください
REM #e
echo chr  %1 >>jwc_temp.txt
echo chr  %2 >>jwc_temp.txt
cscript //nologo //e:jscript %0
goto:eof
@end
//
fso=new ActiveXObject("Scripting.FileSystemObject")
w=fso.CreateTextFile("temp.txt")
r=fso.OpenTextFile("jwc_temp.txt")
//初期設定
x0=0;y0=0 //文字基点座標
t1=5;t2=0 //傾き(水平)
vsp=5 //行間隔 
sp=" " //スペース
dq="\"" //ダブルコーテーション
n=0
var chr=new Array(2)
//jwc_temp.txtを1行づつ読込む
while (!r.AtEndOfLine) {
line=r.ReadLine()
if(/hq/.test(line)){null
 }
//文字列を読込む
else if(/chr/.test(line)){
ch=line.split(/\s+/)
y0=y0-n*5;n=n+1
//文字データ書出し
chr="ch"+sp+x0+sp+y0+sp+t1+sp+t2+sp+dq+ch[1]
w.WriteLine(chr)
 }
else{
w.WriteLine(line)
 }
 }
r.Close();
w.Close();
fso.CopyFile("temp.txt", "jwc_temp.txt")
fso.DeleteFile("temp.txt")

|

« 円弧作図 | トップページ | 縮尺 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/94529/67233389

この記事へのトラックバック一覧です: 文字作図:

« 円弧作図 | トップページ | 縮尺 »