耐震診断用の変形
牧野様、大変お疲れ様です。
昨年４月、この場で我々意匠屋が利用できる「耐震診断・耐震補強」のための
変形についてお話させていただいておりました。
いくつか作業をして、ほぼ利用に耐えられる変形になったと思いますので
またまた評価ください。
耐震診断判定委員会用の提出図（Ａ３ヨコ・１／５の柱梁断面リストと１／１で
入力する柱の傾斜図）です。
IF文やLOOPが入れ子になっているものもありますが、いまのところ問題はありません。
#****************************************************************************
#Ｄ１０ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D10)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.03
if %umu=0 then
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
%wa=0.03
loop 5 do
arc:%ichi_x1-0.18+%LL1:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-0.36)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１３ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D13)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-0.6:%ichi_y1 :%ichi_x1+%LL1:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-0.6:%ichi_y1+0.6:%ichi_x1+%LL1:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-0.6)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１６ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D16)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1+%LL1-1:%ichi_y1:%ichi_x1+%LL1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1:%ichi_y1:%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１９ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D19)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.05
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ２２ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D22)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=2
%gpread_y1=0
%gpread_y2=2
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
if %umu=0 then
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
# arc:%ichi_x1+%LL1-0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ２５ 端部配置筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input "鉄筋(D25)の本数"%kazu=2
input "両端の鉄筋 有−0 無−1"%umu=0
gpoint_reada2
$sen_kakudo:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
$readkakudo_set:%result_a
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=3
#長さ計測
$sen_nagasa:%gpread_x1:%gpread_y1:%gpread_x2:%gpread_y2
%LL1=%result_a
#-----------------------
%ichi_x1=0
%ichi_y1=0
%wa=0.05
if %umu=0 then
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7 :1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+%LL1-0.7:%ichi_y1+0.7:0.7 :1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %umu=1 then
%kazu=%kazu+2
endif
%hon1=%kazu-1
%p1=(%LL1-1.4)/%hon1
%cnt=1
%hon1=%hon1-2
if %kazu=3 then do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
endif
loop %hon1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#*****************************************************************************
#Ｄ１０ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%ichi_x1=%LLx1-0.36
%ichi_y1=0
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1-0.36
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-0.36
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.36
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-0.36-1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1-0.36-1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.36-1.2
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-0.36
%ichi_y1=1.2
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1+0.18:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-0.36)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=1.2
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.18:%ichi_y1+0.18:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#****************************************************************************
#Ｄ１３ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-0.6
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6-1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=1.2
line:%ichi_x1 :%ichi_y1 :%ichi_x1+0.6:%ichi_y1+0.6:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1+0.6:%ichi_x1+0.6:%ichi_y1 :0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#*****************************************************************************
#Ｄ１６ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
line:%ichi_x1 :%ichi_y1 :%ichi_x1+1:%ichi_y1+1:0:%l_col:%l_typ:%l_lay
endloop
endif
endif
#*****************************************************************************
#Ｄ１９ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
%wa=0.05
loop 9 do
arc:%ichi_x1+0.5:%ichi_y1+0.5:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.20:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.25:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.35:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.40:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.45:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.50:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#******************************************************************************
#Ｄ２２ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1-2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2
arc:%ichi_x1+0.5:%ichi_y1+0.5:0.5:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#*****************************************************************************
#Ｄ２５ 梁配筋 2点間指示
zusun_set
#-------------変更可能
%l_col=2
%l_lay=2
%l_typ=1
#-------------
gpoint_reada2
%gpread_x1=0
%gpread_x2=4
%gpread_y1=0
%gpread_y2=5
input"上端筋 本数"%ue_1=2
input"上端２段筋本数"%ue_2=0
input"下端２段筋本数"%st_2=0
input"下端筋 本数"%st_1=2
%LLx1=%gpread_x2-%gpread_x1
%LLy1=%gpread_y2-%gpread_y1
#++++++++++++++++++++++++++++下の配筋
%ichi_x1=0
%ichi_y1=0
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=%LLx1-1.4
%ichi_y1=0
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%st_1-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-1.4
%ichi_y1=%LLy1-1.4
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%ichi_x1=0
%ichi_y1=%LLy1-1.4
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
%hon1=%ue_1-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1.4
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
#++++++++++++++++++++++++++++上の配筋（２段目）
if %ue_2>0 then
%ichi_x1=0
%ichi_y1=%LLy1-1.4-2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#------------------------------
if %ue_2>1 then
%ichi_x1=%LLx1-1.4
%ichi_y1=%LLy1-1.4-2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
endif
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#-----------------------
if %ue_2>2 then
%hon1=%ue_2-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-1.4-2.8
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#++++++++++++++++++++++++++++下の配筋（２段目）
if %st_2>0 then
%ichi_x1=0
%ichi_y1=2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
#---------------------------
if %st_2>1 then
%ichi_x1=%LLx1-1.4
%ichi_y1=2.8
%wa=0.05
loop 2 do
arc:%ichi_x1+0.7:%ichi_y1+0.7:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.05
endloop
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.7:1:0:0:0:%l_col:%l_typ:%l_lay
endif
#-----------------------
if %st_2>2 then
%hon1=%st_2-1
%p1=(%LLx1-1.4)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=2.8
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.05:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.10:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.7:%ichi_y1+0.7:0.70:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif
endif
#**************************************************************************
#腹筋・巾止筋 2点間指示
zusun_set
%l_col=2
%l_lay=2
%l_typ=1
input"腹筋の径 D10=0 D13=1"%kei1=0
gpoint_reada2
%gpread_x1=0
%gpread_x2=3
%gpread_y1=0
%gpread_y2=4
%LLx1=%gpread_x2-%gpread_x1
%LLy1=(%gpread_y2-%gpread_y1)/2
%ichi_x1=0
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.18:%ichi_x1+%LLx1+0.03:%ichi_y1+0.18:0:%l_col:3:%l_lay
#------------------------------------------------------------
if %kei1=0 then
%ichi_x1=%LLx1-0.36
%ichi_y1=%LLy1
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
%ichi_x1=0
%ichi_y1=%LLy1
%wa=0.03
loop 5 do
arc:%ichi_x1+0.18:%ichi_y1:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop
endif
#------------------------------------------------------------
if %kei1=1 then
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.3:%ichi_x1+0.6:%ichi_y1-0.3:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1-0.3:%ichi_x1+0.6:%ichi_y1+0.3:0:%l_col:%l_typ:%l_lay
%ichi_x1=0
%ichi_y1=%LLy1
line:%ichi_x1 :%ichi_y1+0.3:%ichi_x1+0.6:%ichi_y1-0.3:0:%l_col:%l_typ:%l_lay
line:%ichi_x1 :%ichi_y1-0.3:%ichi_x1+0.6:%ichi_y1+0.3:0:%l_col:%l_typ:%l_lay
endif
#****************************************************************************
#柱梁 断面
#--------変更可
%rc_c=1
%rc_l=1
%s_c=2
%s_l=2
#--------
input"巾 "%rchaba=400
input"成 "%rcsei=600
input"スラブ無=0 スラブ付=1 ＷＧ=2"%yuka=0
input"梁天からスラブ天までの距離"%kyo=0
%shaba=%rchaba-80
%ssei=%rcsei-80
#ＲＣ躯体
%rx1=%rchaba*0.5*(-1)
%rx2=%rchaba*0.5
%ry1=%rcsei*0.5*(-1)
%ry2=%rcsei*0.5
#鉄筋
%sx1=%shaba*0.5*(-1)
%sx2=%shaba*0.5
%sy1=%ssei*0.5*(-1)
%sy2=%ssei*0.5
line:%sx1:%sy1:%sx1:%sy2:0:%s_c:1:%s_l
line:%sx1:%sy2:%sx2:%sy2:0:%s_c:1:%s_l
line:%sx2:%sy2:%sx2:%sy1:0:%s_c:1:%s_l
line:%sx2:%sy1:%sx1:%sy1:0:%s_c:1:%s_l
#躯体
if %yuka=0 then
line:%rx1:%ry1:%rx1:%ry2:0:%rc_c:1:%rc_l
line:%rx1:%ry2:%rx2:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2:%rx2:%ry1:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
if %yuka=1 then
line:%rx1:%ry1:%rx1:%ry2-120:0:%rc_c:1:%rc_l
line:%rx1:%ry2-120:%rx1-200:%ry2-120:0:%rc_c:1:%rc_l
line:%rx1-200:%ry2:%rx2+200:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2-120:%rx2+200:%ry2-120:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx2:%ry2-120:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
if %yuka=2 then
line:%rx1:%ry1:%rx1:%ry2:0:%rc_c:1:%rc_l
line:%rx1:%ry2:%rx2:%ry2:0:%rc_c:1:%rc_l
line:%rx2:%ry2:%rx2:%ry2-%kyo:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo:%rx2+200:%ry2-%kyo:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo-120:%rx2+200:%ry2-%kyo-120:0:%rc_c:1:%rc_l
line:%rx2:%ry2-%kyo-120:%rx2:%ry1:0:%rc_c:1:%rc_l
line:%rx2:%ry1:%rx1:%ry1:0:%rc_c:1:%rc_l
endif
#*****************************************************************************
#柱の傾斜量（耐震診断調査図）
#図寸に設定
zusun_set
%gpread_x1=-10
%gpread_x2=10
%gpread_y1=10
%gpread_y2=0
%s_l1=6
%s_c1=9
$motolayer_set
input"柱頭の傾斜量 上方向（mm）"%data1=1
input" 右方向（mm）"%data2=1
input" 下方向（mm）"%data3=0
input" 左方向（mm）"%data4=0
dot:0:0:%s_c1:%s_l1
if %data1>0 then
line: 0 :0: 0 :2:0:%s_c1:1:%s_l1
line:-0.75:2: 0.75:2:0:%s_c1:1:%s_l1
line: 0.75:2: 0 :5:0:%s_c1:1:%s_l1
line: 0 :5:-0.75:2:0:%s_c1:1:%s_l1
moji:0:5:0:1:1:0:%data1:%s_l1
endif
if %data2>0 then
line: 0 : 0 : 2 : 0 :0:%s_c1:1:%s_l1
line: 2 : 0.75: 2 :-0.75:0:%s_c1:1:%s_l1
line: 2 :-0.75: 5 : 0 :0:%s_c1:1:%s_l1
line: 5 : 0 : 2 : 0.75:0:%s_c1:1:%s_l1
moji:5:0:0:1:8:0:%data2:%s_l1
endif
if %data3>0 then
line: 0 : 0: 0 :-2:0:%s_c1:1:%s_l1
line:-0.75:-2: 0.75:-2:0:%s_c1:1:%s_l1
line: 0.75:-2: 0 :-5:0:%s_c1:1:%s_l1
line: 0 :-5:-0.75:-2:0:%s_c1:1:%s_l1
moji:0:-5:0:1:5:0:%data3:%s_l1
endif
if %data4>0 then
line: 0 : 0 :-2 : 0 :0:%s_c1:1:%s_l1
line:-2 : 0.75:-2 :-0.75:0:%s_c1:1:%s_l1
line:-2 :-0.75:-5 : 0 :0:%s_c1:1:%s_l1
line:-5 : 0 :-2 : 0.75:0:%s_c1:1:%s_l1
moji:-5:0:0:1:3:0:%data4:%s_l1
endif
#******************************************************************************
こんばんは。
> 外構図シリーズや矩計に利用できる内部建具シリーズをＵＰできれば
凄そうですね。
楽しみです。
> 少しでも、ＭＡを利用して図面作成の時間を減らせるように、ＭＡが
速く正確にですね。
私も作りたい変形図形沢山あるのですけど
なっかなか、時間とれ無くって・・・(^^;)
> もっともっと普及するように、陰ながらお手伝いできればと思います。
そっそうですか。
ありがとうございます。(^^)
お世話になります。
>
> 梁断面の上ば筋・下ば筋の鉄筋配置は特に凄いですね〜。
>
構造の事は素人ですので、トレーサーとして使い易くしてみましたが・・・。
みなさん、いかがでしょうか？
>
> そして、まとめてダウンロード出来るようにもしました。
> （小森さんが公開はだめ、と言われれば即削除致します。。(^^;）
>
いえいえ。こんな稚拙なものでもよければ。
また、次には多少牧野様の添削が必要な（私が一番お願いしたいのですが）
外構図シリーズや矩計に利用できる内部建具シリーズをＵＰできれば
いいなと思います。 当初は個人利用の目的でしたので、レイヤーや線の
指定を利用者が自由にできるよう、改変している最中ですが・・・。
少しでも、ＭＡを利用して図面作成の時間を減らせるように、ＭＡが
もっともっと普及するように、陰ながらお手伝いできればと思います。
こんばんは。
今回かなりの数の変形図形の公開ありがとうございます。
梁断面の上ば筋・下ば筋の鉄筋配置は特に凄いですね〜。
良く出来ていますので、気ままに解説で、
呪文よりも実際、画像で皆さんにも分かり易く
と思い勝手ながら作成してみました。
そして、まとめてダウンロード出来るようにもしました。
（小森さんが公開はだめ、と言われれば即削除致します。。(^^;）
