« MT覚え書き | メイン | お知らせ »

2006年01月21日

●属性表示.bat

Tabキー3回押しで、円弧、直線、文字、等が表示されます。
その他の属性を表示させたい。
Jw_cad公式サイト相談室で、05/11/14 外部変形をコジマさんが公開されました。

表示するものは
◆ ハッチ属性
◆ 図形属性
◆ 寸法属性
◆ 寸法図形属性
◆ 建具属性
◆ 曲線属性
◆ ブロック図形属性

寸法の引き出し線も、寸法属性に取得されました。

この外部変形の実行には、mswin32 版 Ruby が必要です。

★バッチファイル(ファイル名は「属性表示.bat」で保存して下さい)

@REM 線・円の属性を表示する(mm)
@echo off
goto do%1
REM #jww
REM #cd
rem #hm |1)線属性(L)|2)円属性(R)|
rem #:1
REM #zz
rem #mc
REM #1ln指示線をクリック
rem #c
REM #hr
REM #e
rem #:2
REM #zz
rem #mc
REM #1ci指示線をクリック
rem #c
REM #hr
REM #e
:do1
copy jwc_temp.txt temp.txt > nul
del jwc_temp.txt
ruby -Ks 属性表示.rb temp.txt > jwc_temp.txt
goto end
:do2
copy jwc_temp.txt temp.txt > nul
del jwc_temp.txt
ruby -Ks 属性表示.rb temp.txt > jwc_temp.txt
goto end
:end


★スクリプトファイル(ファイル名は「属性表示.rb」で保存して下さい。)

def main
zward=[]
while ARGF.gets
xy =split
if xy[0]=~/^z1/
zward<<"ハッチ属性"
end
if xy[0]=~/^z2/
zward<<"図形属性"
end
if xy[0]=~/^z3/
zward<<"寸法属性"
end
if xy[0]=~/^msg/
zward<<"寸法図形属性"
end
if xy[0]=~/^z4/
zward<<"建具属性"
end
if xy[0]=~/^ql/
zward<<"曲線属性"
end
if xy[0]=~/^BL/
zward<<"ブロック図形属性"
end
end
if zward.size==0
ward="属性はありません"
else
ward=zward.join("\s")
end
printf("h#%s\n",ward)
end
main()