Maxscript:Insert_Hpr

Insert_Hpr v20140204.ms

/*
Insert_Hpr v20140204

スクリプト概要
--選択オブジェクトにヘルパーを挿入
----"Insert"枠内
------"Upwards"
--------選択オブジェクトの上位階層にポイントヘルパーを挿入
------"Downwards"
--------選択オブジェクトの下位階層にポイントヘルパーを挿入
----"Child"
------選択オブジェクトに子ヘルパーを作成
*/

try destroyDialog InsertHpr	catch()

Rollout InsertHpr ""(
	Group"Insert"(
	Button	btn_Upward		"Upwards"		width:75
	Button	btn_Downward	"Downwards"	width:75
	)
	Button	btn_Child		"Child"			width:75
	
	on btn_Upward pressed do(
		TempHpr = point size:5 Box:true wirecolor:red 
		for i in selection as array do(
			LocalHpr = instance TempHpr 
			LocalHpr.transform	=	i.transform
			LocalHpr.name		=	(i.name + "_Upwards")
			Target = i.parent
			LocalHpr.parent = Target
			i.parent	= LocalHpr
		)
		delete TempHpr
	)
	on btn_Downward pressed do(
		TempHpr = point size:5 Box:true wirecolor:red 
		for i in selection as array do(
			LocalHpr = instance TempHpr 
			LocalHpr.transform	=	i.transform
			LocalHpr.name		=	(i.name + "_Downwards")
			TempChildren		=	i.children
			for n in TempChildren do(	n.parent	=	LocalHpr)
			LocalHpr.parent = i
		)
		delete TempHpr
	)
	on	 btn_Child  pressed do(
		TempHpr = point size:5 Box:true wirecolor:red 
		for i in selection as array do(
			LocalHpr = instance TempHpr 
			LocalHpr.transform	=	i.transform
			LocalHpr.name		=	(i.name + "_Child")
			LocalHpr.parent		=	i
		)
		delete TempHpr
	)
)
	createDialog	InsertHpr	110 110