Reading the action commands sent to max and recompiling those set of actions as a script.

--	step b y step
(
	--	#1 - group the objects
	grp = group selection select:true 
	--	#2 - rename the objects inside that group same as group's name
	for o in grp do o.name = grp.name
	--	3# re-align pivots  considering the group as on objects.
		--	i'm not sure what exactly you want, so...
	for o in grp do o.pivot = grp.pivot
	--	4# move the grouped objects to "0" coordinates.
	grp.pos = [0,0,0]
	--	6# create and rename the layer , same as the group name.
	grpLayer = layermanager.newLayerFromName grp.name
	--	5 assign the grouped objects to a new layer
	grpLayer.current = true	--	set layer as current layer
	for o in grp do (grpLayer.addNode o)	--	add objects in the group to the layer
	--	7# save every layer to separated maxfiles. ("layers 2 files script from "tanya wiesner" works very wellin this case.)
	saveNodes selection ((savePath as string)+grp.name+".max") quiet:true
)

(
	global rol_crystal3d
	try(destroyDialog rol_crystal3d)catch()
	rollout rol_crystal3d ""
	(
		local savePath = undefined
		edittext et_savePath "Output path:" pos:[5,5] fieldwidth:220 labelontop:true readOnly:true
		button btn_getPath "Browse" pos:[230,22]
		button btn_Save "Save" width:100 align:#center 
 
		on btn_getPath pressed do
		(
			savePath = getSavePath caption:"Folder to save"
			et_savePath.text = savePath
		)
 
		on btn_Save pressed do
		(
			--	#1 - group the objects
			grp = group selection select:true 
 
			for o in grp do
			(
				o.name = grp.name 	--	#2 - rename the objects inside that group same as group's name
				o.pivot = grp.pivot 	--	3# re-align pivots  considering the group as on objects.
			)
			--	4# move the grouped objects to "0" coordinates.
			grp.pos = [0,0,0]
			--	6# create and rename the layer , same as the group name.
			grpLayer = layermanager.newLayerFromName grp.name
			--	5 assign the grouped objects to a new layer
			grpLayer.current = true	--	set layer as current layer
			for o in grp do (grpLayer.addNode o)	--	add objects in the group to the layer
			--	7# save every layer to separated maxfiles. ("layers 2 files script from "tanya wiesner" works very wellin this case.)
			saveNodes selection (savePath+"\\"+grp.name+".max") quiet:true
 
			--8# launch a third party plugin to render the new max files, the program will render the preview and save the output named as the group's name.
			--	instead of using third party plugin
			max select invert
			objToHide = selection as array
			max hide selection
			render renderhiddenobjects:false outputfile:(savePath+"\\"+grp.name+".png") vfb:false -- render grp
			for o in objToHide do o.isHidden = false		--	unhide other objects			
		)
	)
	createdialog rol_crystal3d width:300
)