2024年6月 6日 (木)

ユーザー定義線種変更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"

| | コメント (0)

2024年6月 4日 (火)

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

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

Photo_20240604220701

@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}}
#必要に応じて追加可

| | コメント (0)

2024年6月 2日 (日)

ユーザー定義線種変更

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

ユーザー定義線種の変更前線種は、
線属性ダイアログで確認してください。
Photo_20240602221801
<セグメント>
2:破線(点線)
4:一点鎖線
6:二点鎖線
8:三点鎖線
注)標準線種に三点鎖線はないので、二点鎖線を指定してください。

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

| | コメント (0)

2024年5月 8日 (水)

水路中間点標高

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

2024.5.20 AWKスクリプト修正

※区間距離、作図位置変更
2_20240520184501

@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

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

| | コメント (2)

2024年5月 1日 (水)

指定レイヤ図形消去

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

@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

| | コメント (0)

2024年4月29日 (月)

ハッチング消去

ハッチングを消去する外部変形。

REM ハッチング消去
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ・範囲内外に跨る線データを選択
REM #hc 範囲選択してください
REM #zz
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #e
jgawk '/hq/{print "hd";next}/z1/{h=1;next}/^^ /{if(h==1){next;h=0}}{print}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

| | コメント (0)

2024年4月16日 (火)

指定線長消去

指定した長さの直線を消去する外部変形。
指定長は、バッチファイルを編集してください。
例) 2.9<l<3.1 または、l<1 の場合

@REM 指定線長消去
@echo off
REM #jww
REM #cd
REM #h2 範囲内データ・範囲内外に跨る線データを選択
REM #hc 範囲選択してください
REM #ht10 ブロック図形除外
REM #ht30 寸法図形除外
REM #ht40 ソリッド図形除外
REM #g1 全レイヤグループ
REM #hr
REM #e
jgawk 'BEGIN{l1=2.9;l2=3.1;lmax=1}/hq/{print "hd";next}/^^ /{l=sqrt(($3-$1)^^2+($4-$2)^^2);if(l^>l1 ^&^& l^<l2 ^|^| l^<lmax){next}}{print}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

| | コメント (0)

2024年3月 3日 (日)

指定文字変更・削除

指定文字を変更または、削除する外部変形。
削除する文字や、変更前後の文字指定は、バッチファイルを修正してください。

@REM 指定文字変更/削除
@echo off
REM #jww
REM #cd
REM #h3
REM #e
jgawk '/hq/{print "hd";next}/ch/{if($6=="\\"削除文字"){next}if($6=="\\"変更前"){$6="\\"変更後";print;next}}{print}' "jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:end

| | コメント (7)

2023年12月15日 (金)

勾配作図

斜線または、標高から各種勾配を作図する外部変形。

◇斜線選択(横断面図に適用)
 斜線選択(複数可)→点指示終了(左AM0時)
Photo_20231215001901
◇標高選択(平面図に適用)
 2地点の標高を選択
Photo_20231215122401
※勾配は、書込み文字種で作図

続きを読む "勾配作図"

| | コメント (5)

2023年12月10日 (日)

法勾配

法勾配を作図する外部変形。
斜面に法勾配と線長を作図します。

※範囲選択で、水平/垂直線、
円、文字が含まれても除外します。

Photo_20231210124201

続きを読む "法勾配"

| | コメント (2)

より以前の記事一覧