jw_cad 外部変形 - (1232) perlでスケールを取得する(hs) -

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

 

perlでスケールを取得する(hs)

:perlでスケールを取得する(hs)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww
REM #e

#!perl -anl -i.bak
if (/^hs/) {
    foreach $i (0..15) {
        $hs{sprintf('%x', $i)} = $F[$i + 1];
    }
}
if (/^lg[0-9a-f]/) {
    $lg = substr($F[0], 2, 1);
    print "h#S=1/$hs{$lg}\n";
}
__END__