jw_cad 外部変形 - (1241) perlで文字基準点を取得する(cc) -

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

 

perlで文字基準点を取得する(cc)

:perlで文字基準点を取得する(cc)
@echo off
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww

REM #h4               データ選択をしない、読取可能データ全て書き出し

REM #zc

REM #e

#!perl -an -i.bak
if (/^cc/) {
    $pcc = substr($_, 2);
    chomp($pcc);
    print "h#cc$pcc\n";
}
__END__