fn copyObjects ObjetoCopiar=
(

	objetos= $ as array
	copias= #()
	instancias= #()

	for o = 1 to objetos.count do
	(
		
		copiando= copy ObjetoCopiar name:(ObjetoCopiar.name + "_"+ o as string)
		append  copias copiando
		print objetos[o].name
	)



	for o = 1 to copias.count do 
	(
		copias[o].pos = objetos[o].pos
		copias[o].position.controller = objetos[o].position.controller
		copias[o].rotation.controller = objetos[o].rotation.controller
	)

)

fn instaceObjects ObjetoCopiar=
(

	objetos= $ as array
	copias= #()
	instancias= #()

	for o = 1 to objetos.count do
	(
		
		instanciando= instance ObjetoCopiar name:(ObjetoCopiar.name + "_"+ o as string)
		append  instancias instanciando
		print instancias[o].name
	)
	



	for o = 1 to instancias.count do 
	(
		instancias[o].pos = objetos[o].pos
		instancias[o].position.controller = objetos[o].position.controller
		instancias[o].rotation.controller = objetos[o].rotation.controller
	)

)

fn ObjectFilter obj= (superclassof obj== GeometryClass) 


try (destroydialog UI_Copy_Instancing) catch ()

rollout UI_Copy_Instancing "COPY INSTANCING" width:220 height:200
(

	group "OBJECT TO COPY" (
		label UI_SelectYourObject "select your object:" pos:[15,23]
		pickbutton btn_ObjectToCopy "ObjectToCopy"   filter:ObjectFilter  pos:[110,20]
		)
	
	group "COPY OPTIONS"(
		label UI_SelectYourOption "Select your option " pos:[15,80]
		label UI_SelectYourOption2 "to copy the objects" pos:[15,98]
		button UI_Copy "COPY" pos:[150,70]
		button UI_Instance "INSTANCE" pos:[127,100]
		checkbox UI_deleteObjects "Delete Objects"
		checkbox UI_hideObjects "Hide Objects"
		)
	
		on btn_ObjectToCopy picked objeto do
	(
		btn_ObjectToCopy.text= objeto.name
		global Objeto_copiar= btn_ObjectToCopy.object
	)
	
	on UI_Copy pressed do with undo on
	(
		
		if selection.count > 0 then objetos= $ as array else 0
		
		if objetos != undefined then (
		
		copyObjects (Objeto_copiar)
		
		
		if UI_hideObjects.checked then (
		layerObjetos = layerManager.newLayerFromName objetos[objetos.count].name
		) else 0
		
		capaObjetos = layermanager.getlayerfromname objetos[objetos.count].name
		
					if capaObjetos == undefined then layerObjetos else
						for i = 1 to objetos.count do
						(
							capaObjetos.addnode objetos[i]
						)
					)
					
					else messagebox "Seleccione los objetos a reemplazar"
					
		(
			if UI_deleteObjects.checked  then delete objetos else if UI_hideObjects.checked then hide objetos else 0
		)
		
	)
	
	on UI_Instance pressed do with undo on
	(
		if selection.count > 0 then objetos= $ as array else 0
		if objetos != undefined then (
		
		 instaceObjects (Objeto_copiar)
		
		
		if UI_hideObjects.checked then (
		layerObjetos = layerManager.newLayerFromName objetos[objetos.count].name
		) else 0
		
		capaObjetos = layermanager.getlayerfromname objetos[objetos.count].name
		
					if capaObjetos == undefined then layerObjetos else
						for i = 1 to objetos.count do
						(
							capaObjetos.addnode objetos[i]
						)
	)
	
	else messagebox "Seleccione los objetos a reemplazar"
	
	(
		if UI_deleteObjects.checked  then delete objetos else if UI_hideObjects.checked then hide objetos else 0
	)
) 
	
	
)

createDialog UI_Copy_Instancing