拡大・縮小

固定倍率で図形を拡大/縮小する外部変形。
対象図形：直線、円、円弧、楕円、楕円弧

@REM 拡大・縮小
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ、範囲内外にまたがる線データ
REM #hc 範囲選択してください
REM #hr
REM #e
jgawk 'BEGIN{s=2}/hq/{print "hd";next}/^^ /{$1=s*$1;$2=s*$2;$3=s*$3;$4=s*$4;print;next}/^^ci/{$2=s*$2;$3=s*$3;$4=s*$4;print;next}{print}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
文字コードANSIで保存してください
範囲選択→右AM0時 確定 基点<<Read>>
:end

文字角度変更

垂直横文字をの左下を基点に、水平横文字に角度変更する外部変形。

@REM 文字角度変更
@echo off
REM #jww
REM #cd
REM #h3 範囲内の文字データのみを選択
REM #hc 範囲選択してください
REM #e
jgawk '/hq/{print "hd";next}/^^ch/{if($4!=0 ^&^& $5!=0 ^|^| $4^>0 ^&^& $5==0){print;next}else if($4==0 ^&^& $5^<0){$4=-$5}else if($5==0 ^&^& $4^<0){$4=-$4}else{$4=$5}$5=0;print;next}{print}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
範囲選択→左AM０時 確定 基点(free)
文字コード ANSIで保存してください
:end

数字丸囲み

選択した文字列の数字を円で囲み、指定レイヤに移動する外部変形。



◇バッチファイル
@REM 数字丸囲み
@echo off
REM #jww
REM #cd
REM #h3 範囲内の文字データのみを選択
REM #hc 範囲選択してください
REM #e
jgawk -f circle.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
文字コード ANSIで保存してください
:end

続きを読む "数字丸囲み"

文字下線調整2

指定長さの下線を延長し、対象文字を下線の中心上に移動させる外部変形。

2025/6/15 更新
※範囲選択後、文字下線(基準長)を指定してください。

◇バッチファイル

@REM 文字下線調整2
@echo off
REM #jww
REM #cd
REM #hm|左端 (L)|右端 (R)|
REM #:1
REM #:2
REM #h2 範囲内データ、範囲内外にまたがる線データ
REM #hc 範囲選択してください
REM #1ln 基準線を指示してください。
REM #e
:1
:2
jgawk '/hhp1ln/{jd=1}/^^ /{if(jd==1){lgh=$3-$1;print "std",lgh;jd=0}}' jwc_temp.txt>std.txt
copy std.txt+jwc_temp.txt
jgawk -vT=%1 -f ldr_adj2.awk std.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
del std.txt
goto end
文字コード ANSIで保存してください
:end

続きを読む "文字下線調整2"

文字下線調整

文字下線を文字長に合わせて長さ調整し、文字を線の中央に移動する外部変形。
※文字下線は、左端点を基準に伸縮します。



◇バッチファイル
※文字コードANSIで保存してください。

@REM 文字下線調整
@echo off
REM #jww
REM #cd
REM #1ch 文字を指示してください
REM #2ln 下線を指示してください
REM #hr
REM #e
jgawk -f ldr_adj.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
文字コード ANSIで保存してください
:end

続きを読む "文字下線調整"

ユーザー定義線種変更2

ユーザー定義線種変更のリスト表示と線種変更のバッチファイルをまとめました。
awkファイルに変更はありません。

@REM ユーザー定義線種変更
@echo off
goto %1
REM #jww
REM #cd
REM #hm|リスト表示(L)|線種変更(R)|
REM #:1
REM #h4 読取りデータ
REM #0 表示位置を指示してください
REM #g1 全レイヤグループ
REM #hr
REM #e
REM #:2
REM #h2 範囲内データ、範囲内外にまたがる線データ
REM #hc 範囲選択してください
REM #c 変更後の線種番号を連続して入力してください　例）275
REM #ht10 ブロック図形除外
REM #ht20 曲線図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #g1 全レイヤグループ選択
REM #e
:1
jgawk -f temp.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:2
jgawk -vln=%2 '/hq/{print "hd";next}/^^lt/{n=substr($1,3);if(n^>46){n=n-46;ltn=substr(ln,n,1);if(ltn==""){print "he線種番号が足りません";exit}else{lt="lt" ltn;print lt;next}}else{print;next}}{print}' jwc_temp.txt >temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

続きを読む "ユーザー定義線種変更2"

ユーザー定義線種リスト表示

図面内のユーザー定義線種をリスト表示する外部変形。
ユーザー定義線種変更の線種番号確認に使用。
※6種類までは対応、awkファイルで追加可



@REM ユーザー定義線種リスト表示
@echo off
REM #jww
REM #cd
REM #h4 読取りデータ
REM #0 表示位置を指示してください
REM #g1 全レイヤグループ
REM #e
jgawk -f temp.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

<temp.awk>
#ユーザー定義線種リスト表示
BEGIN{
#縮尺 1/1→ s=1、1/100→ s=100
s=1
x=0;y=0
dx=s*30;dy=s*6
dq="\""
cc="cc2" #文字基点
cn="cn4" #文字種
}
/#/{print cc;print cn}
/lt47/{if(lt47==""){ltn=dq $1;print "ch",0,0,5,0,ltn;print $0;print 0,0,dx,y;y=y-dy;lt47=1}}
/lt48/{if(lt48==""){ltn=dq $1;print "ch",0,y,5,0,ltn;print $0;print 0,y,dx,y;y=y-dy;lt48=1}}
/lt49/{if(lt49==""){ltn=dq $1;print "ch",0,y,5,0,ltn;print $0;print 0,y,dx,y;y=y-dy;lt49=1}}
/lt50/{if(lt50==""){ltn=dq $1;print "ch",0,y,5,0,ltn;print $0;print 0,y,dx,y;y=y-dy;lt50=1}}
/lt51/{if(lt51==""){ltn=dq $1;print "ch",0,y,5,0,ltn;print $0;print 0,y,dx,y;y=y-dy;lt51=1}}
/lt52/{if(lt52==""){ltn=dq $1;print "ch",0,y,5,0,ltn;print $0;print 0,y,dx,y;y=y-dy;lt52=1}}
#必要に応じて追加可

ユーザー定義線種変更

ユーザー定義線種を標準線種に変更する外部変形。

ユーザー定義線種の変更前線種は、
線属性ダイアログで確認してください。

<セグメント>
２：破線(点線)
４：一点鎖線
６：二点鎖線
８：三点鎖線
注)標準線種に三点鎖線はないので、二点鎖線を指定してください。

2024.6.3 不具合修正→ユーザー定義線種の限定追加
2024.6.4 操作順変更、範囲選択→線種番号入力

@REM ユーザー定義線種変更
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ、範囲内外にまたがる線データ
REM #hc 範囲選択してください
REM #c 変更後の線種番号を連続して入力してください　例）275
REM #ht10 ブロック図形除外
REM #ht20 曲線図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #g1 全レイヤグループ選択
REM #e
jgawk -vln=%1 '/hq/{print "hd";next}/^^lt/{n=substr($1,3);if(n^>46){n=n-46;ltn=substr(ln,n,1);if(ltn==""){print "he線種番号が足りません";exit}else{lt="lt" ltn;print lt;next}}else{print;next}}{print}' jwc_temp.txt >temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

水路中間点標高

水路の中間点の標高、区間距離を作図する外部変形。

2024.5.20 AWKスクリプト修正
※区間距離、作図位置変更


@REM 水路標高作図
@echo off
REM #jww
REM #cd
REM #1ch 起点の標高を指示 (L)クリック
REM #2ch 終点の標高を指示 (L)クリック
REM #3 起点→各中間点→終点を指示してください (R)クリック
REM #99#
REM #e
jgawk -f suiro.awk jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

続きを読む "水路中間点標高"

指定レイヤ図形消去

指定したレイヤの図形を消去する外部変形。
億世取得で指定レイヤに移動して実行。

@REM 指定レイヤ図形消去
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ・範囲内外に跨る線データを選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外
REM #e
jgawk '/hq/{print "hd";cu=1;next}/ly/{if(cu==1){culy=$1;del=1;cu=0}else if($1==culy){del=1}else{del=0}}/^^ ^|c[ihv]^|s[lc]^|pt/{if(del==1){next}}{print}END{print culy}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end