弓形ソリッド

円弧に弓型ソリッドを作図する外部変形



@REM 弓型ソリッド
@echo off
REM #jww
REM #cd
REM #1ci 円弧を指定してください
REM #hr
REM #e
jgawk 'BEGIN{pi=atan2(0,-1)}/^^ci/{if(NF==4){print"h#円です";exit}ths=$5;the=$6;if(the^>ths){th=the-ths}if(ths^>the){th=360-ths+the}ths=ths*pi/180;th=th*pi/180;print "sc",$2,$3,$4,1,0,ths,th,5}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end

円外ソリッド

円弧の外側にソリッドを作図する外部変形



@REM 円外ソリッド
@echo off
REM #jww
REM #cd
REM #1ci円弧を指定してください
REM #hr
REM #e
jgawk 'BEGIN{pi=atan2(0,-1)}/^^ci/{x=$2;y=$3;r=$4;ths=$5;the=$6;if(the^>ths){th=the-ths}if(ths^>the){th=360-ths+the};if(th^>0 ^&^& th^<90){dth=th;n=1};if(th^>=90 ^&^& th^<180){dth=th/2;n=2};if(th^>=180 ^&^& th^<270){dth=th/3;n=3};if(th^>=270 ^&^& th^<360){dth=th/4;n=4}}END{ths=ths*pi/180;dth=dth*pi/180;for(i=1;i^<=n;i++){thi=ths+(i-1)*dth;print "sc",x,y,r,1,0,thi,dth,-1}}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end

ソリッド図形

三角、四角、円ソリッドを選択して作図する外部変形
※円弧は扇形ソリッドを作図　2023.8.31修正



@REM ソリッド図形
@echo off
goto %1
REM #jww
REM #cd
REM #hm|四角(L)|三角(R)|円・円弧(3)|
REM #:1
REM #:2
REM #1 始点を指定してください
REM #2 対角点を指定してください
REM #hr
REM #e
REM #:3
REM #1ci 円または円弧を選択してください
REM #hr
REM #e
:1
:2
jgawk -vT=%1 '/hp1/{xs=$2;ys=$3}/hp2/{xe=$2;ye=$3;r=sqrt((xe-xs)^^2+(ye-ys)^^2)}END{if(T==1){print "sl",xs,ys,xe,ys,xe,ye,xs,ye}if(T==2){print "sl",xs,ys,xe,ys,xe,ye}}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
:3
jgawk 'BEGIN{pi=atan2(0,-1)}/^^ci/{if(NF==4){print "sc",$2,$3,$4,1,0,0,360,100}else{ths=$5;the=$6;if(the^>ths){th=the-ths}if(ths^>the){th=360-ths+the}ths=ths*pi/180;th=th*pi/180;print "sc",$2,$3,$4,1,0,ths,th,0}}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end

三角・四角ソリッド

2点を指定してソリッド図形を作図する外部変形



@REM 三角ソリッド
@echo off
REM #jww
REM #cd
REM #1 始点を指定してください
REM #2 対角点を指定してください
REM #hr
REM #e
jgawk '/hp1/{xs=$2;ys=$3}/hp2/{xe=$2;ye=$3}END{print "sl",xs,ys,xe,ys,xe,ye}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end

@REM 四角ソリッド
@echo off
REM #jww
REM #cd
REM #1 始点を指定してください
REM #2 対角点を指定してください
REM #hr
REM #e
jgawk '/hp1/{xs=$2;ys=$3}/hp2/{xe=$2;ye=$3}END{print "sl",xs,ys,xe,ys,xe,ye,xs,ye}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
※gawkm115用
:end

計算結果の作図

Excelで各セルに入力した値、文字と数式を使った計算結果は、
クリップボード経由で、Jw_cadに作図することがきます。


セルの値をCtrl+Cでクリップボードにコピーします。

Jw_cadを開き、文字コマンドで任意文字を作図。1文字でOK
そのまま、テキストエディタのボタンをクリック、上記の任意文字を選択→確定します。
テキストエディタのウインドウに表示された任意文字を選択。
Ctrl＋Vでクリップボードの数値、文字に書換え、テキストエディタを終了します。


行間のデフォルト値は、図寸5mmです。