« 一括伸縮(水平線/垂直線) | トップページ | 実点に円(改) »

2013年8月28日 (水)

実点に円

siegel さんの掲示板 での課題で、実点に円を作図する外部変形を作成しました。

◇-vR=%1
key入力した半径を変数Rに取り込み
◇/^^pt/{$1="ci";$4=R;print $0}
点データ "pt x y" を 円データ "ci x y r " として出力

----------
@REM 実点に円作図
@echo off
REM #jww
REM #cd
REM #h1 範囲選択
REM #hc 実点を範囲選択してください
REM #ht10 ブロック図形除外
REM #c 半径を入力してください
REM #hr
REM #e
jgawk -vR=%1 '/^^pt/{$1="ci";$4=R;print $0}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
# 対象は、同一レイヤグループ
# 範囲選択 ⇒ 半径入力
# 実点以外の図形(ブロック図形を除く)を選択しても可
# 但し、寸法線端点の実点は、選択しないでください
# 書込み線色/線種で作図
:end

|

« 一括伸縮(水平線/垂直線) | トップページ | 実点に円(改) »

コメント

コメントを書く



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




トラックバック

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

この記事へのトラックバック一覧です: 実点に円:

« 一括伸縮(水平線/垂直線) | トップページ | 実点に円(改) »