@REM 線の属性を表示する(mm)
@echo off
REM #jww
REM #cd
REM #zz
REM #1ln指示線をクリック
REM #e
copy jwc_temp.txt temp.txt > nul
ruby -Ks 線属性取得.rb temp.txt > jwc_temp.txt
◎スクリプトファイル(ファイル名 線属性.rb)
$hanare=0.5
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()
>◎スクリプトファイル(ファイル名 線属性.rb)
>
>
>$hanare=0.5
>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()