copy mat+modifiers from file A to file B (object to object)

macroScript Copy_MaterialsAndModifiers_To_File Category:"CG_Tools" toolTip:"Copy MatsAndMods to File"
(
    thecopypastedir = getdir #autoback -- CHANGE THIS TO ANY FOLDER YOU WANT
    thecopypastefile = "\pastefile.max" --this is the filename to save as...
    thecopypastestring = thecopypastedir + thecopypastefile --this is the complete string
 
    if selection.count == 1 do with redraw off
	(
		curO = selection[1]
		b = box lengthsegs:1 widthsegs:1 heightsegs:1 isSelected:false
		b.name = ((timestamp()) as string) + "_" + ((timestamp()) as string)
		b.material = curO.material
		if curO.modifiers.count != 0 do
		(
			for m = curO.modifiers.count to 1 by -1 do
				addModifier b curO.modifiers[m]
		)
		saveNodes b thecopypastestring --this saves ("copies") the objects as a file
		delete b	
	)
)
 
 
macroScript Paste_MaterialsAndModifiers_From_File Category:"CG_Tools" toolTip:"Paste MatsAndMods from File"
(
	function CopyMatAndMods obj selObjsArr parent_array keepMatName:true copyMods:true =
	(
		if obj.material != undefined do
		(
			for i in selObjsArr do
			(
				oldName = if i.material != undefined then i.material.name else undefined
				i.material = obj.material				
				if keepMatName == true and oldName != undefined do
					i.material.name = oldName
			)
		)
		if copyMods == true do
		(
			try
			(
				x = obj.modifiers.count+1
				while x > 1 do
				(
					objmod = obj.modifiers[x-=1]
					for obj in parent_array do addModifier obj objmod
				)
			)catch()
		)
	)
	function CopyMatAndMods01 oldName:true copyMods:true =
	(
		if selection.count != 0 then with redraw off
		(
			local    selObjsArr
			local    parent_array = #()
			local    temp_array = #()
 
			selObjsArr = for o in selection as array where isGroupHead o == false collect o
 
			if selObjsArr.count != 0 do
			(
				for i in selObjsArr where (finditem temp_array i == 0) do
				(
					InstanceMgr.GetInstances i &inst_array
					append parent_array inst_array[1]
					join temp_array inst_array
				)
 
				thecopypastedir = getdir #autoback -- CHANGE THIS TO ANY FOLDER YOU WANT
				thecopypastefile = "\pastefile.max" --this is the filename to save as...
				thecopypastestring = thecopypastedir + thecopypastefile --this is the complete string
 
				mergemaxfile (thecopypastedir + thecopypastefile) #select --this merges ("pastes") and selects objects from file
				obj = selection[1]		
				-- 
				if obj!=undefined do
				(
					CopyMatAndMods obj selObjsArr parent_array keepMatName:oldName copyMods:copyMods
				)
				--
				delete obj
				select selObjsArr
			)
		)	
	)
 
	rcMenu rcMapSize
	(
		menuItem matModOld "Transfer Mat + Mod + Old Mat Name" checked:false
		menuItem matMotKeep "Transfer Mat + Mod + Keep Mat Name" checked:false
		menuItem matOld "Transfer Mat + Old Mat Name" checked:false
		menuItem matKeep "Transfer Mat + Keep Mat Name" checked:false
 
		on matModOld picked do with undo "Smart Spline Extrude" on
		(
			CopyMatAndMods01 oldName:true copyMods:true
		)
		on matMotKeep picked do with undo "Smart Spline Extrude" on
		(
			CopyMatAndMods01 oldName:false copyMods:true
		)
		on matOld picked do with undo "Smart Spline Extrude" on
		(
			CopyMatAndMods01 oldName:true copyMods:false
		)
		on matKeep picked do with undo "Smart Spline Extrude" on
		(
			CopyMatAndMods01 oldName:false copyMods:false
		)		
	) 
	popUpMenu rcMapSize pos:mouse.screenpos
)