jw_cad 外部変形 - (512) perlで円を点に変換する -

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

 

perlで円を点に変換する

:perlで円を点に変換する
@echo off
set ci=円を残す
:set ci=円を残さない
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww
REM #h1
REM #g1
REM #hc 円を選択してください
REM #e

#!perl -an -i.bak
if (/^ci/) {
    print "pt @F[1,2]\n";
    print if ($ENV{'ci'} == "円を残す");
} else {
    if (/^hq/) { print "hd\n"; } else { print; }
}
__END__