jw_cad 外部変形 - (1207) perlで点と点マーカを円に変換する -

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

 

perlで点と点マーカを円に変換する

:perlで点と点マーカを円に変換する
@echo off
set pt=点を残す
:set pt=点を残さない
set r=10
perl -x %~f0 jwc_temp.txt
goto:eof

REM #jww
REM #h1
REM #g1
REM #hc 点と点マーカを選択してください
REM #bz
REM #e

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