ClaverTech-KeyStones

macroScript KeyStones
	category:"ClaverTech"
	toolTip:"Keystones - Quick Select Key Objects"
(
	persistent global myObjs
	myObjsNames=#()
 
	rollout KeyStoneRollout "ClaverTech - Keystones" width:273 height:290
(
	--button btnDone "Done" pos:[214,249] width:95 height:40
	listBox lbxObjects "Key Objects" pos:[10,5] width:178 height:19
	button btnSet "Set List" pos:[195,39] width:75 height:30
	button btnAdd "Add Object" pos:[195,109] width:75 height:30
	button btnSelected "Add Selected" pos:[195,149] width:75 height:30
	button btnRemove "Remove Object" pos:[195,229] width:75 height:30
 
	on KeyStoneRollout open do
	(
		if myObjs!=undefined then
		(
			myObjs=for o in myObjs where (not isDeleted o and o!=undefined) collect o
			myObjsNames=for o in myObjs collect o.name
			lbxObjects.items=myObjsNames
		)
		else
		(
			myObjs=#()
		)
	)
 
	on btnSet pressed do
	(
		objs=selectByName  title:"Select Keystones"
		if(objs!=undefined)then
		(
		myObjs=objs;myObjsNames=for o in myObjs collect o.name
		lbxObjects.items=myObjsNames
		)
	)
 
	on btnSelected pressed do
	(
		objs=getcurrentselection()
		if(objs!=undefined)then
		(
			for o in objs do
			(
			appendIfUnique myObjs o
			)
			myObjsNames=for o in myObjs collect o.name
			lbxObjects.items=myObjsNames
		)
		else
		(
			messagebox "Select somethin first"
		)
	)
 
	on btnAdd pressed do
	(
		objs=selectByName  title:"Add Keystones" showHidden:true
		if(objs!=undefined)then
		(
			for o in objs do
			(
			appendIfUnique myObjs o
			)
			myObjsNames=for o in myObjs collect o.name
			lbxObjects.items=myObjsNames
		)
	)
 
	on btnRemove pressed do
	(
		num= lbxObjects.selection
		if(num != 0)then
		(
		myObjs = deleteItem myObjs num
		myObjsNames = deleteItem myObjsNames num
		)
		lbxObjects.items=myObjsNames
	)
 
	on lbxObjects doubleClicked arg do 
	(
		select myObjs[arg]
	)
 
	on lbxObjects rightClick arg do 
	(
		--select myObjs[arg]
		if(superClassof myObjs[arg] == camera)then
		(
			viewport.setCamera myObjs[arg]
			select myObjs[arg]
		)
		else if(superClassof myObjs[arg] == light)then
		(
			--viewport.setCamera myObjs[arg]
			select myObjs[arg]
			macros.run "Lights and Cameras" "Light_ActivateView"
		)
		else
		(
			actionMan.executeAction 0 "40182"  -- Views: Perspective User View
			select myObjs[arg]
			actionMan.executeAction 0 "310"  -- Tools: Zoom Extents Selected
		)
		lbxObjects.selection=arg
	)
 
)
 
CreateDialog KeyStoneRollout 273 290
 
)