ArchiCADで仮設計画〜仮囲いオブジェクト③〜

前回に引き続き、仮囲いオブジェクトの機能追加を行います。今回は、ジョイント金具の数量算出機能と単管控えの3D形状の実装に取り組みます。単管控えは、下の画像のようなイメージで、根入れの深さとねがらみの長さを自由に調整できるようにします。

控えの実装

パネル枚数＆金具数集計

数量集計機能は、以下のパラメータリストとマスタースクリプトを追加することで実装しました。スクリプトの構成は次の通りです。

• 15行目～：パネル枚数の計算
• 18行目～：調整パネル枚数の計算
• 28行目～：金具の数量の計算

これらは単純な計算で構成されていますが、必要に応じてif文で条件を調整しています。3D表示に合わせた数量が算出されるようになっていますので、ご確認ください。

新規追加パラメータ

マスタースクリプト

eps = 0.0000001

height = panel_h
panel_W = 0.5
panel_t = 0.003

if (scope%panel_W) <= 0.05 then
	parameters scope = panel_W*panel_num
endif

if (scope%panel_W) >= 0.48 then
	parameters scope = panel_W*(panel_num+1)
endif

panel_num = int(scope/panel_W)
parameters panel_num = panel_num

if (scope%panel_W) > 0.05 & (scope%panel_W) <= 0.48 then
	adjust_panel_num = 1
else
	adjust_panel_num = 0
endif
parameters adjust_panel_num = adjust_panel_num

tate_num = int(scope/1.8) + 1
parameters tate_num = tate_num

if int(height)=3 then
	k = 6
	m = 3
else
	k = 4
	m = 2
endif

j_num = panel_num*k
parameters j_num = j_num

l_num = adjust_panel_num*m
parameters l_num = l_num

控えの実装

参考

控え用パラメータ

"控え":
	tankan_l = height + neire
	move = (scope%1.8)/2
	tate_pos = -130.3/1000

	hotspot move, tate_pos, 0	, unid, neire, 1+128 	:unid=unid+1
	hotspot move, tate_pos, -neire  , unid, neire, 2	:unid=unid+1
	hotspot move, tate_pos, 1	, unid, neire, 3	:unid=unid+1

	add move, tate_pos, -neire
	for i = 1 to tate_num
		addx 1.8*(i-1)
		gosub "単管"
		del 1
	next i

	tankan_l = 0.5 + neire
	addy -negarami_len
	for i = 1 to tate_num
		addx 1.8*(i-1)
		gosub "単管"
		del 1
	next i
	
	del 2

	tankan_l = 0.15 + negarami_len
	for i = 1 to tate_num
		add move + 1.8*(i-1) + 0.07, -0.08, 0.2
		rotx 90
		gosub "単管"
		del 2
	next i

	tankan_l = negarami_len/cos(atn((3*height/5)/negarami_len)) + 0.2
	for i = 1 to tate_num
		add move + 1.8*(i-1) + 0.07, tate_pos-negarami_len- 0.1, 0.25
		rotx atn((3*height/5)/negarami_len) - 91	
		gosub "単管"
		del 2
	next i

	tankan_l = scope
	add 0, tate_pos - negarami_len - 0.07, 0.15
	roty 90
	gosub "単管"
	del 2

	hotspot move+0.07, 0, 			     　0.2, unid, negarami_len, 1+128  :unid=unid+1
	hotspot move+0.07, tate_pos-negarami_len-0.1,  0.2, unid, negarami_len, 2    　:unid=unid+1
	hotspot move+0.07, 1, 			     　0.2, unid, negarami_len, 3    　:unid=unid+1
return