めぐめぐさま、皆さんこんばんは。

次はＷＲ面取り(半径指定)です。
（これで面取り終了です）

以下データー

Ｒ面取り(半径指定)　Ｗ線　　２線指示

input"内側の半径(mm)"%m_sun1=300
input"壁厚(mm)　"%k_atu1=120

#２線指定
gsen_read2
#元レイヤON
$motolayer_set
#指示線のグループに移動
$group_set:%sread_glp1
$urasen_set:0:11
#内側の円弧処理
%kaku1=%sread_kakudo2

#辺寸法面取りを半径面取りに変更する処理
%rad1=pi/180*%kaku1
%keka1=tana(%rad1)*%m_sun1
%m_sun1=1/cosa(%rad1)*%m_sun1+%keka1
#ここまで

#外側の円弧辺面取り寸法
%men_sun2=%m_sun1+%k_atu1

$rotate:0:0:0:%m_sun1:%kaku1
%zax1=%result_x1
%zay1=%result_y1
#3点円用の頂点座標を求める
$ten3_zusin:-%m_sun1:0:%zax1:%zay1:0:0:0
%zax2=%result_x1
%zay2=%result_y1
#3点円作図
t3arc:-%m_sun1:0:%zax2:%zay2:%zax1:%zay1:%sread_col1:%sread_typ1:%sread_lay1

#外側の円弧処理
#外側へx複線
$fukusen_zahyou:0:0:%zax1:%zay1:-%k_atu1:
%szxa1=%result_x1
%szya1=%result_y1
%szxa2=%result_x2
%szya2=%result_y2
#外側へy複線
$fukusen_zahyou:-%m_sun1:0:0:0:-%k_atu1:
%szxb1=%result_x1
%szyb1=%result_y1
%szxb2=%result_x2
%szyb2=%result_y2
#外側xy線分の交点
$sen_koten:%szxa1:%szya1:%szxa2:%szya2:%szxb1:%szyb1:%szxb2:%szyb2
%zaxa=%result_x1
%zaya=%result_y1

%zax0=%szxb1
%zay0=%szyb1

%zax1=%szxa2
%zay1=%szya2
#外側3点円用の頂点座標を求める
$ten3_zusin:%zax0:%zay0:%zax1:%zay1:%zaxa:%zaya:0
%zax2=%result_x1
%zay2=%result_y1
#外側3点円作図
t3arc:%zax0:%zay0:%zax2:%zay2:%zax1:%zay1:%sread_col1:%sread_typ1:%sread_lay1
#ダミー内朱線
line:0:%m_sun1:0:200+%m_sun1:0:10:9:-1
line:-200-%m_sun1:0:-%m_sun1:0:0:10:9:-1
#ダミー外朱線
#line:%k_atu1:%men_sun2-%k_atu1:%k_atu1:200+%men_sun2-%k_atu1:0:10:9:-1
#line:-200-%men_sun2+%k_atu1:-%k_atu1:-%men_sun2+%k_atu1:-%k_atu1:0:10:9:-1

#削除範囲補助線　内用(PenNO2と3指定で線外PenNO2交点位置までのびる)
line:-%m_sun1:-2:-%m_sun1:2:0:2:9:-1
line:-%m_sun1+3:-2:-%m_sun1+3:2:0:3:9:-1
line:-2:%m_sun1:2:%m_sun1:%kaku1:2:9:-1
line:-2:%m_sun1-3:2:%m_sun1-3:%kaku1:3:9:-1
#外用
line:%zax0:-2+%zay0:%zax0:2+%zay0:0:2:9:-1
line:%zax0+3:-2+%zay0:%zax0+3:2+%zay0:0:3:9:-1
line:-15+%zax1:%zay1:15+%zax1:%zay1:0:2:9:-1
line:-15+%zax1:%zay1-6:15+%zax1:%zay1-6:0:3:9:-1