ホーム / 鉄筋ラベル /

#ArchiCAD GDL 簡易鉄筋ラベルを作ってみよう〜まとめ〜

2025年3月28日金曜日

ラベル 鉄筋ラベル

t f B! P L
数回の記事にわたって簡易鉄筋GDLを作成してきましたが、最後にまとめとしてスクリプトを一式公開したいと思います。

※読者さんのGDL学習をサポートする目的で発信していますので、コピペは制限しております。どうしてもデータとして欲しい方はお問合せよりご連絡いただければと思います。

基本的な機能しか実装していませんが、これを応用してあげれば様々なことに活用できそうな予感がしています。鉄筋数量を出してみても面白いかもしれないですね！実数量と積算数量の両方が出せそうです。断面図で梁貫通可能位置を表示するラベルを作ってみても良いかも知れません！BIM界隈で働いている皆さんは色々アイデアをお持ちだと思いますので、是非お手伝いができればと思っています。GDLに限らず、アドイン開発に関することやArchiCAD API、ArchiCAD pythonなどお悩み等あれば気軽にご相談いただければと思います。

話が脱線してしまいましたが、以下に動画とスクリプトを公開します！

完成イメージ動画（前回の記事と同じ動画です）


マスタースクリプト
width=BEAM_THICKNESS
length=(BEAM_LENGTH_RIGHT+BEAM_LENGTH_LEFT)/2

terms1=(glob_modpar_name="top_reinforcement_num_1")
terms2=(glob_modpar_name="left_cover_thickness")
terms3=(glob_modpar_name="right_cover_thickness")
terms4=(glob_modpar_name="top_dim_str")
terms5=(glob_modpar_name="stp_dim")

stPos = width/2 - (left_cover_thickness - stp_dim - top_reinforcement_dim/2)

if terms1 | terms2 | terms3 | terms4 | terms5 then
	dim _top_reinforcement_pos_s1[]
	scope= width - (stp_dim*2 + left_cover_thickness + right_cover_thickness + top_reinforcement_dim)
	pitch=scope/(top_reinforcement_num_1-1)
	for i=1 to top_reinforcement_num_1
		_top_reinforcement_pos_s1[i]=pitch*(i-1)
	next i
	parameters top_reinforcement_pos_s1=_top_reinforcement_pos_s1
endif

パラメータスクリプト
values "top_reinforcement_num_1" range[2,]
values "stp_pitch" range[0.05,]
values "st_anchorage_length" range[0.01,]
values "ed_anchorage_length" range[0.01,]
values "top_reinforcement_pos_s1" range[0,]

values{2} "top_dim_str" ,
			1, "D16",
			2, "D19",
			3, "D22",
			4, "D25",
			5, "D29",
			6, "D32",
			7, "D35",
			8, "D38",
			9, "D41",
			10, "D51"

if top_dim_str=1 then parameters top_reinforcement_dim=0.018, spacing_limit=0.025
if top_dim_str=2 then parameters top_reinforcement_dim=0.021, spacing_limit=0.0285
if top_dim_str=3 then parameters top_reinforcement_dim=0.025, spacing_limit=0.033
if top_dim_str=4 then parameters top_reinforcement_dim=0.028, spacing_limit=0.0375
if top_dim_str=5 then parameters top_reinforcement_dim=0.033, spacing_limit=0.0435
if top_dim_str=6 then parameters top_reinforcement_dim=0.036, spacing_limit=0.048
if top_dim_str=7 then parameters top_reinforcement_dim=0.040, spacing_limit=0.0525
if top_dim_str=8 then parameters top_reinforcement_dim=0.043, spacing_limit=0.057
if top_dim_str=9 then parameters top_reinforcement_dim=0.046, spacing_limit=0.0615
if top_dim_str=10 then parameters top_reinforcement_dim=0.058, spacing_limit=0.0765

values{2} "stp_dim" ,
			0.011, "D10",
			0.014, "D13",
			0.018, "D16",
			0.021, "D19"

2Dスクリプト
unid=2000

!ラベルの回転
rotBy = -LABEL_ROTANGLE

!ビューの回転
_unused = REQUEST ("View_Rotangle", "", angleViewRot)		
corr = 0
if (AC_LabelOrientation = 1 | AC_LabelOrientation = 5) then
	summarot = (LABEL_ROTANGLE + angleViewRot) % 360
	if summarot > 90 & 270 >= summarot then corr = 180
endif

rot2 rotBy + corr
add2 -LABEL_POSITION [1][1], -LABEL_POSITION [1][2]

add2 BEAM_POSITION[1],BEAM_POSITION[2]
rot2 BEAM_DIRECTION

!基準線オフセット
add2 0, BEAM_REFLINE_OFFSET

!かぶり
line_type cover_line_type
pen cover_pen
line2 0, width/2 - left_cover_thickness, cos(ac_beam_inclination)*length,width/2 - left_cover_thickness
line2 0, -(width/2 - right_cover_thickness), cos(ac_beam_inclination)*length, -(width/2 - right_cover_thickness)

!stp
line_type stp_line_type
pen stp_pen
add2 stp_dim, 0
for i=1 to int(length/stp_pitch)+1
	arc2 (i-1)*stp_pitch, width/2 - (left_cover_thickness+stp_dim/2) , stp_dim/2, 0, 180
	arc2 (i-1)*stp_pitch, -width/2 + (right_cover_thickness+stp_dim/2) , stp_dim/2, 180, 360
	line2 (i-1)*stp_pitch - stp_dim/2, width/2 - (left_cover_thickness+stp_dim/2) ,(i-1)*stp_pitch - stp_dim/2, -width/2 + (right_cover_thickness+stp_dim/2)
	line2 (i-1)*stp_pitch + stp_dim/2, width/2 - (left_cover_thickness+stp_dim/2) ,(i-1)*stp_pitch + stp_dim/2, -width/2 + (right_cover_thickness+stp_dim/2)
next i
del 1

!主筋
line_type top_line_type
pen top_pen
add2 0, width/2 - (left_cover_thickness+stp_dim+top_reinforcement_dim/2)
for i=1 to top_reinforcement_num_1
	add2 0, -top_reinforcement_pos_s1[i]
	arc2 -st_anchorage_length,0, top_reinforcement_dim/2, 90, 270
	arc2 length+ed_anchorage_length, 0, top_reinforcement_dim/2, 270, 90
	line2 -st_anchorage_length, top_reinforcement_dim/2, cos(ac_beam_inclination)*length + ed_anchorage_length,top_reinforcement_dim/2
	hotline2 -st_anchorage_length, top_reinforcement_dim/2, cos(ac_beam_inclination)*length +ed_anchorage_length ,top_reinforcement_dim/2, unid	:unid=unid+1
	line2 -st_anchorage_length, -top_reinforcement_dim/2, cos(ac_beam_inclination)*length + ed_anchorage_length,-top_reinforcement_dim/2
	hotline2 -st_anchorage_length, -top_reinforcement_dim/2, cos(ac_beam_inclination)*length + ed_anchorage_length,-top_reinforcement_dim/2, unid	:unid=unid+1	
	del 1

	!主筋位置調整ホットスポット
	if i>1 & top_reinforcement_num_1>i then
		hotspot2 0, 0				, unid, top_reinforcement_pos_s1[i],1+128	:unid=unid+1		
		hotspot2 0, -top_reinforcement_pos_s1[i], unid, top_reinforcement_pos_s1[i],2		:unid=unid+1		
		hotspot2 0, 1				, unid, top_reinforcement_pos_s1[i],3		:unid=unid+1

		hotspot2 length, 0			, unid, top_reinforcement_pos_s1[i],1+128	:unid=unid+1		
		hotspot2 length, -top_reinforcement_pos_s1[i], unid, top_reinforcement_pos_s1[i],2		:unid=unid+1		
		hotspot2 length, 1			, unid, top_reinforcement_pos_s1[i],3		:unid=unid+1
	endif
next i
del 1

!定着ホットスポット
hotspot2 0			, 0, unid, st_anchorage_length,1+128	:unid=unid+1		
hotspot2 -st_anchorage_length, 0, unid, st_anchorage_length,2		:unid=unid+1		
hotspot2 1			, 0, unid, st_anchorage_length,3	:unid=unid+1

hotspot2 length			, 0, unid, ed_anchorage_length,1+128	:unid=unid+1		
hotspot2 length+ed_anchorage_length	, 0, unid, ed_anchorage_length,2	:unid=unid+1		
hotspot2 length-1			, 0, unid, ed_anchorage_length,3	:unid=unid+1

!ラベル
DEFINE STYLE "textstyle" fontType, textSize, 5, 0
SET STYLE "textstyle"
pen label_pen
!かぶり寸法
line2 label_pos, -width/2, label_pos, width/2
circle2 label_pos, -width/2, 0.002
circle2 label_pos, width/2, 0.002
circle2 label_pos, width/2 - left_cover_thickness, 0.002
circle2 label_pos, -width/2 + right_cover_thickness, 0.002

!あき寸法
line2 label_pos - 0.1, -width/2, label_pos -0.1, width/2

add2 label_pos - 0.1, width/2 - (left_cover_thickness+stp_dim+top_reinforcement_dim/2)
for i=1 to top_reinforcement_num_1
	pen label_pen
	add2 0, -top_reinforcement_pos_s1[i]
	add2 0, top_reinforcement_dim/2	:circle2 0, 0, 0.002	:del 1
	add2 0, -top_reinforcement_dim/2	:circle2 0, 0, 0.002	:del 1

	add2 -0.025, 0	:rot2 90	:text2 0, 0, str(top_reinforcement_dim*1000,2,0)	:del 2
	if top_reinforcement_num_1 > i then
		aki=top_reinforcement_pos_s1[i+1]-top_reinforcement_pos_s1[i]-top_reinforcement_dim
		if aki > spacing_limit then
			pen label_pen
		else
			pen spacing_alert
		endif
		aki_pos=(top_reinforcement_pos_s1[i+1]-top_reinforcement_pos_s1[i])/2
		add2 0.025, -aki_pos-0.005	:rot2 90
		text2 0, 0, str(aki*1000, 3, 0)	:del 2
	endif
	del 1
next i
del 1

pen label_pen
circle2 label_pos- 0.1, width/2 - left_cover_thickness, 0.002
circle2 label_pos- 0.1, -width/2 + right_cover_thickness, 0.002
circle2 label_pos- 0.1, -width/2, 0.002
circle2 label_pos- 0.1, width/2, 0.002

rot2 90
text2 width/2+0.03, -label_pos+0.02, str(left_cover_thickness*1000, 3,0)
text2 -width/2-0.04, -label_pos+0.02, str(right_cover_thickness*1000, 3,0)
text2 0, -label_pos+0.02, str((width-(right_cover_thickness+left_cover_thickness))*1000, 3,0)
del 1

hotspot2 0		, 0, unid, label_pos,1+128	:unid=unid+1		
hotspot2 label_pos	, 0, unid, label_pos,2		:unid=unid+1		
hotspot2 -1		, 0, unid, label_pos,3		:unid=unid+1

長くなってしまいましたが、以上が簡易鉄筋ラベルの全容になります。
もう少し整理してきれいなコードにすべきかなとも思いましたが、ほぼボランティアなので悪しからず（笑）

ラベルは3D的な表現はできませんが、2Dで検討した方が早いしわかりやすい場面も多々ありますのでこういう使い方はありかなと思っています。BIMを取り入れたからといって何でもかんでも3D化するのは余計な労力とコストがかかってしまうので、バランスが大事です。

3Dも2DもBIMを目的と使い方が重要ですね！ISO19650のような規格に則ってBIM実行計画などを作ることはそういった意味でも大事です。認証取得されている企業さん、導入されている企業さんは素晴らしいと思います。認証の年間更新だけでも数百万円かかると思いますし体制を維持するのも大変ですが、それだけ価値のあるものだと個人的にも考えています。

雑談っぽくなってしまいましたが、たまにはBIM推進者として現状の考えも発信していければと思っていますのでぜひご意見等をコメントいただければと思っています。

今回は以上となります。ありがとうございました！
引き続きよろしくお願い致します。


【お知らせ】
ココナラでのサポートサービスも承っておりますので、
ご活用いただければと思います。
1日GDL作成やArchiCAD関連の相談のります 自分でGDLを作成している方へ

Xのアカウントを作成しましたので、ぜひフォロー頂けると嬉しいです。
アカウントはこちらから⇨https://x.com/BIM_arekore

世界の建設業従事者、BIM推進者と繋がりたいです。よろしくお願いします。




自己紹介

自分の写真
初めまして。 BIM活用のあれこれ運営人です。 普段はBIM界隈で働いております。皆さんに役立つ情報を提供できればと思っております。BIMマネやBIMオペ、開発、プログラミング、BIMコンサル、技術営業等様々な業務をおこなっております。 GDL作成などBIM活用のお仕事のご相談お待ちしております。 #ゼネコン出身 #施工管理 #生産設計 #BIM開発 #ソフトウェアベンダー #ArchiCAD API #GDL #ArchiCAD python #Revit API #Dynamo

メール

bim.arekore@gmail.com

検索

GDLオブジェクト

UI (4) ユニーク (1) ラベル (6) 仮囲い (6) 多角形 (3) 小ネタ (4) 机 (7) 椅子 (4) 法規 (1) 無償DL (4) 足場 (15) 足場計画 (4) 鉄筋ラベル (4)

ブログ アーカイブ

ArchiCADのGDLをコスパよく作成します ArchiCADユーザーでGDL作成を外部委託されている方へ

QooQ