MaCADの掲示板

牧野様、大変ごぶさたしております。

またまた、変形図形でいきづまりまして・・・。

変形　その１　は、一般的な矢印を作成するもので
変形　その２　は、それを流用したものです。


　その２　の１点目を左側に、２点目を右側に指定すると　希望通りの矢印ができあがり
ますが、少しでも角度をつけた指定をすると、波形がついてきません。

　そこで、ギブアップ。　添削どうかよろしくお願いします。

変形　その３とその４　では、以前　柱や梁の配筋について投稿させていただきました
件ですが、耐震診断の仕事が終ってから出来上がったものです。鉄筋の種類毎に変形図形
をつくりました。　構造的にはイレギュラーな断面を表示しますが、トレース作業には
便利かな・・・？



#***************************************************************************

#矢印　　（第１点目に矢印先端、第２点目で基点方向を指示）　　変形　その１

zisun_set

input"角度指定　　（自由角-0　15°毎-1）"%kaku1=1

%sc=%result_gscale

%gpread_x1=-10
%gpread_x2=10
%gpread_y1=0
%gpread_y2=0

#--------変更可
%slay1=12
#--------

gpoint_read2
%p1x=%gpread_x1
%p1y=%gpread_y1
%p2x=%gpread_x2
%p2y=%gpread_y2
$sen_kakudo:%p1x:%p1y:%p2x:%p2y
if %kaku1=1 then
%kaku2=15
endif
$readkakudogoto_set:%kaku2

%kaku=%result_a+90

line: 0: 0:%sc*(-3):%sc*(-5) :%kaku:4:1:%slay1
line:%sc*(-3):%sc*(-5) :%sc*(-1):%sc*(-5) :%kaku:4:1:%slay1
line:%sc*(-1):%sc*(-5) :%sc*(-1):%sc*(-15):%kaku:4:1:%slay1
line:%sc*(-1):%sc*(-15):%sc :%sc*(-15):%kaku:4:1:%slay1
line:%sc :%sc*(-15):%sc :%sc*(-5) :%kaku:4:1:%slay1
line:%sc :%sc*(-5) :%sc*3 :%sc*(-5) :%kaku:4:1:%slay1
line:%sc*3 :%sc*(-5) : 0: 0:%kaku:4:1:%slay1

#*****************************************************************************

#空気の流れ矢印　（第１点目に矢印先端、第２点目で基点方向を指示）　変形　その２

zisun_set

input"角度指定　　（自由角-0　15°毎-1）"%kaku1=1

%sc=%result_gscale

%gpread_x1=-10
%gpread_x2=10
%gpread_y1=0
%gpread_y2=0

#--------変更可
%slay1=12
#--------

gpoint_read2
%p1x=%gpread_x1
%p1y=%gpread_y1
%p2x=%gpread_x2
%p2y=%gpread_y2
$sen_kakudo:%p1x:%p1y:%p2x:%p2y
if %kaku1=1 then
%kaku2=15
endif
$readkakudogoto_set:%kaku2

%kaku=%result_a+90

line: 0: 0:%sc*(-3):%sc*(-5) :%kaku:4:1:%slay1
line:%sc*(-3):%sc*(-5) :%sc*(-1):%sc*(-5) :%kaku:4:1:%slay1
line:%sc*(-1):%sc*(-15):%sc :%sc*(-15):%kaku:4:1:%slay1
line:%sc :%sc*(-5) :%sc*3 :%sc*(-5) :%kaku:4:1:%slay1
line:%sc*3 :%sc*(-5) : 0: 0:%kaku:4:1:%slay1

arc:%sc*7.5 :%sc*7 :%sc*6.5:1:247.38:292.62:0:4:1:%slay1
arc:%sc*12.5:%sc*(-7):%sc*6.5:1: 67.38:112.62:0:4:1:%slay1
arc:%sc*12.5:%sc*(-5):%sc*6.5:1: 67.38:112.62:0:4:1:%slay1
arc:%sc*7.5 :%sc*5 :%sc*6.5:1:247.38:292.62:0:4:1:%slay1


#****************************************************************************

#柱梁　断面　　　　　　　　　　　　　　　　　　　　　　　　　変形　その３

#--------変更可
%rc_c=1
%rc_l=2
%s_c=4
%s_l=3
#--------

input"巾　"%rchaba=400
input"成　"%rcsei=600

%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:%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

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


#****************************************************************************

#Ｄ１９　梁配筋 　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 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop

%ichi_x1=%LLx1-0.6
%ichi_y1=0
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop

%hon1=%st_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=0
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.21:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.24:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.27:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop

#++++++++++++++++++++++++++++上の配筋
%ichi_x1=%LLx1-0.6
%ichi_y1=%LLy1-0.6
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop

%ichi_x1=0
%ichi_y1=%LLy1-0.6
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%wa:1:0:0:0:%l_col:%l_typ:%l_lay
%wa=%wa+0.03
endloop

%hon1=%ue_1-1
%p1=(%LLx1-0.6)/%hon1
%cnt=1

loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.21:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.24:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.27:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.30: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.6-1.2
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%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.6
%ichi_y1=%LLy1-0.6-1.2
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%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.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=%LLy1-0.6-1.2
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.21:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.24:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.27:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.30: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 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%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.6
%ichi_y1=1.2
%wa=0.03
loop 9 do
arc:%ichi_x1+0.3:%ichi_y1+0.3:%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.6)/%hon1
%cnt=1
loop %hon1-1 do
%ichi_x1=%p1*%cnt
%ichi_y1=1.2
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.03:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.06:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.09:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.12:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.15:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.18:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.21:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.24:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.27:1:0:0:0:%l_col:%l_typ:%l_lay
arc:%ichi_x1+0.3:%ichi_y1+0.3:0.30:1:0:0:0:%l_col:%l_typ:%l_lay
%cnt=%cnt+1
endloop
endif

endif