Ｍａｃａｄ が 2.62b に更新されま
した。

http://www.geocities.jp/se_m646/

◇バ−ジョン　2.62b　での変更点
・Ma図形で文字を含む図形が閲覧ができなくなった不具合を修正した。
・変形図形関数の書きミスを修正をした。（HELP修正）
鉛直点座標を計算する関数
$encyoku_ten:%x0:%y0:%x1:%y1:%x2:%y2
x0:y0 任意点座標
x1:y1 線の始点座標
x2:y2 線の終点座標
　　　↓
x0:y0 線の始点座標
x1:y1 線の終点座標
x2:y2 任意点座標

めぐめぐさま。
大変分かり易いご回答にいつも勉強させて頂いております。^^

変形をまた一つ作りました。
半径指定のR面取りです。

以下データー

#R面取り（半径）　２線指示

input"半径寸法(mm)"%men_sun1=100

gsen_read2
#元レイヤON
$motolayer_set
#指示線のグループに移動
$group_set:%sread_glp1
$urasen_set:0:11

%kaku1=%sread_kakudo2

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

$rotate:0:0:0:%men_sun1:%kaku1
%zax1=%result_x1
%zay1=%result_y1

#3角形頂点位置から円弧用座標を求める関数
$ten3_zusin:-%men_sun1:0:%zax1:%zay1:0:0:0
%zax2=%result_x1
%zay2=%result_y1

#3点円弧作図
t3arc:-%men_sun1:0:%zax2:%zay2:%zax1:%zay1:%sread_col1:%read_typ1:sread_lay1

#ダミー朱線
line:0:%men_sun1:0:200+%men_sun1:0:10:9:-1
line:-200-%men_sun1:0:-%men_sun1:0:0:10:9:-1

#削除範囲補助線(PenNO2と3指定で線外PenNO2交点位置までのびる)
line:-%men_sun1:-2:-%men_sun1:2:0:2:9:-1
line:-%men_sun1+3:-2:-%men_sun1+3:2:0:3:9:-1

line:-2:%men_sun1:2:%men_sun1:%kaku1:2:9:-1
line:-2:%men_sun1-3:2:%men_sun1-3:%kaku1:3:9:-1

Ｗ線用のＲ面取りを作ってみました。
以下データー

#Ｗ線用　Ｒ面取り（辺寸法指定）　　２線指示（内側線指示）

input"内側線の辺面取り寸法(mm)"%men_sun1=300
input"壁厚(mm)　"%kabeatu1=120

#外側の円弧辺面取り寸法
%men_sun2=%men_sun1+%kabeatu1
#２線指定
gsen_read2
#元レイヤON
$motolayer_set
#指示線のグループに移動
$group_set:%sread_glp1
$urasen_set:0:11
#内側の円弧処理
%kaku1=%sread_kakudo2
$rotate:0:0:0:%men_sun1:%kaku1
%zax1=%result_x1
%zay1=%result_y1
#3点円用の頂点座標を求める
$ten3_zusin:-%men_sun1:0:%zax1:%zay1:0:0:0
%zax2=%result_x1
%zay2=%result_y1
#3点円作図
t3arc:-%men_sun1:0:%zax2:%zay2:%zax1:%zay1:%sread_col1:%sread_typ1:%sread_lay1

#外側の円弧処理
#外側へx複線
$fukusen_zahyou:0:0:%zax1:%zay1:-%kabeatu1:
%szaxa1=%result_x1
%szaya1=%result_y1
%szaxa2=%result_x2
%szaya2=%result_y2
#外側へy複線
$fukusen_zahyou:-%men_sun1:0:0:0:-%kabeatu1:
%szaxb1=%result_x1
%szayb1=%result_y1
%szaxb2=%result_x2
%szayb2=%result_y2
#外側xy線分の交点
$sen_koten:%szaxa1:%szaya1:%szaxa2:%szaya2:%szaxb1:%szayb1:%szaxb2:%szayb2:

%zaxa=%result_x1
%zaya=%result_y1

%zax0=%szaxb1
%zay0=%szayb1

%zax1=%szaxa2
%zay1=%szaya2
#外側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:%men_sun1:0:200+%men_sun1:0:10:9:-1
line:-200-%men_sun1:0:-%men_sun1:0:0:10:9:-1

#削除範囲補助線　内用(PenNO2と3指定で線外PenNO2交点位置までのびる)
line:-%men_sun1:-2:-%men_sun1:2:0:2:9:-1
line:-%men_sun1+3:-2:-%men_sun1+3:2:0:3:9:-1
line:-2:%men_sun1:2:%men_sun1:%kaku1:2:9:-1
line:-2:%men_sun1-3:2:%men_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

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

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

以下データー

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

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