« 実点に円(改) | トップページ | 文字基点変更 v1.2 »

2013年9月 1日 (日)

実点作図(改)

以前、作成した"実点作図"のスプリクトを見直しました。
実点作図は、始点/構成点に加えて、終点の作図を追加しました。
消去は、寸法線の補助点が消去される不具合を修正し、
外変実行時のレイヤグループ/レイヤに戻すスプリクトを追加しています。

<点作図>
◇/^^[#cl]/
先頭フィールドに"#"、"c"、"l"を含む場合にパターンマッチングします。
◇f(k==1){if(i==1){print "pt",$1,$2;print "pt",$3,$4}{print "pt",$3,$4}}
曲線属性 "pl" の後に記述される線データの始点/終点に実点を作図
その他の線データは、終点のみの作図
※ if 文の "else" は、省略可。
<消去>
◇NR==9{lg=$1}NR==10{ly=$1}・・・END{print lg;print ly}
書込みレイヤグループ/レイヤ情報を取得、END文で情報を書出し。
◇/^^pn/{if(substr($1,3,1)=="9"){er=1;next}{er=0}}/^^pt/{if(er==1){next}{}}
線色9の実点だけを消去、その他は、再作図

---------------
@REM 点作図/消去(改)
@echo off
goto %1
REM #jww
REM #cd
REM #hm|一括作図|一括消去|範囲消去|
REM #:1
REM #:2
REM #h4
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外 
REM #ht40 ソリッド図形除外
REM #e
REM #:3
REM #h1 範囲内選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #hr
REM #e
:1
jgawk 'BEGIN{print "lyf";print "pn9";i=0}/^^[#cl]/{k=0;next}/^^pl/{i=0;k=1;next}/^^ /{i=i+1;if(k==1){if(i==1){print "pt",$1,$2;print "pt",$3,$4}{print "pt",$3,$4}}}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:2
:3
jgawk 'NR==9{lg=$1}NR==10{ly=$1}/^^hq/{print "hd";next}/^^pn/{if(substr($1,3,1)=="9"){er=1;next}{er=0}}/^^pt/{if(er==1){next}{}}{print $0}END{print lg;print ly}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
# 曲線(曲線属性)が対象
# 始点/構成点/終点に補助線色で、レイヤFに実点を作図
# 2013.9.1  by somem
:end

|

« 実点に円(改) | トップページ | 文字基点変更 v1.2 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/94529/58106199

この記事へのトラックバック一覧です: 実点作図(改):

« 実点に円(改) | トップページ | 文字基点変更 v1.2 »