jw_cad 外部変形 - (1231) perlで軸角を取得する(hk) -

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

 

perlで軸角を取得する(hk)

:perlで軸角を取得する(hk)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww
REM #e

#!perl -anl -i.bak
if (/^hk/) {
  $hk = $F[1];
  printf "h#hk=%s゚\n",$hk;
}
__END__