jw_cad 外部変形 - (1234) perlでレイヤを取得する(ly) -

外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。

 

perlでレイヤを取得する(ly)

:perlでレイヤを取得する(ly)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww
REM #e

#!perl -an -i.bak
if (/^ly[0-9a-f]/) {
    $ply = substr($_, 2, 1);
    print "h#ly=$ply\n";
}
__END__