MENU
255,989

スレッドNo.314

変形で

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

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

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


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

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

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



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

#矢印  (第1点目に矢印先端、第2点目で基点方向を指示)  変形 その1

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

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

#空気の流れ矢印 (第1点目に矢印先端、第2点目で基点方向を指示) 変形 その2

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


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

#柱梁 断面                         変形 その3

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

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

%shaba=%rchaba-80
%ssei=%rcsei-80

#RC躯体
%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


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

#D19 梁配筋  2点間指示                  変形 その4

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"上端2段筋本数"%ue_2=0

input"下端2段筋本数"%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

#++++++++++++++++++++++++++++上の配筋(2段目)
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

#++++++++++++++++++++++++++++下の配筋(2段目)
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

引用して返信編集・削除(未編集)

> どーも。大変遅くなりました。
>
> 何分、法改正の影響で・・・(^^;)
>
> 多分、ご希望の動作になったと思います。


 ご無沙汰しております。
ありがとうございました。大変便利に使わさせていただいております。

 最近、このコーナーが静かになって、寂しい思いをしておりました。
完成度の高いソフトの運命は、こんなものかと・・・。

サプライズな法改正よりも、MAに期待しております。

引用して返信編集・削除(未編集)

どーも。大変遅くなりました。

何分、法改正の影響で・・・(^^;)

多分、ご希望の動作になったと思います。


以下修正データー

#空気の流れ矢印 (第1点目に矢印先端、第2点目で基点方向を指示) 変形 その2

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
$readkakudo_set:%result_a

%kaku=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

引用して返信編集・削除(未編集)

こんばんは。

沢山の変形の公開、ありがとうございます。
凄いですねー。(^^)

それと、
トップの変形の件・・・ですが、
今ドタバタしてまして、(^^;)

少し落ち着いてから検証してみます。
(他に分かる方代わりに答えて・・(^^;))


> 私が利用している間には、それによる不具合がないので使い続けていますが

そっ・・そうですか。動きますか?
(私もちょっと動作の確認してみましょう)


> それと、牧野様 バージョンアップ ありがとうございます。

どーも、どーも。

引用して返信編集・削除(未編集)

いい忘れました。

先ほどの変形図形をご利用の際には、if文がネストされたり、if文の中に
ループがあったりと、牧野様より注意を受けている事が使われています。

私が利用している間には、それによる不具合がないので使い続けていますが
もし、みなさんがご利用される場合には「覚悟」お願いしますね。

それと、牧野様 バージョンアップ ありがとうございます。

引用して返信編集・削除(未編集)

このスレッドに返信

このスレッドへの返信は締め切られています。

ロケットBBS

Page Top