Move an object by using FFDbox

(
	function LocalFFDToWorld curObj topMod pos =
	(			
		objTM = curObj.objecttransform
		modTM = (getModContextTM curObj topMod) * topMod.lattice_transform.value
		modBBMin = getModContextBBoxMin curObj topMod
		modBBMax = getModContextBBoxMax curObj topMod
		size = modBBMax - modBBMin
		thePoint = ((modBBMin + pos * size) * (inverse modTM) * objTM)
	)
 
	function WorldPointToFFD curObj topMod pos = 
	(
		otm = curObj.objecttransform
		mtm = (getModContextTM curObj topMod)*topMod.lattice_transform.value
		bmin = getModContextBBoxMin curObj topMod
		bmax = getModContextBBoxMax curObj topMod
 
		v = (pos * (inverse otm) * mtm - bmin)/(bmax - bmin)
		for k = 1 to 3 where not (bit.isFinite v[k]) do v[k] = 0
		v
	)
 
	function ApplyNewFFDCPPositions offset: =
	(
		max modify mode
		local topMod = modpanel.getCurrentObject()
		if ( substring (topMod as string) 1 3 ) == "FFD" then
		(
			local curObj = selection[1]			
			--			
			theMaster = topMod[#master]
			theCount = theMaster.numsubs
			animateAll topMod
			--
			if classOf offset == point3 do
			(
				for cpIdx = 1 to theCount do
				(
					--	move the control points					
					local curPos = (theMaster[cpIdx].value)
					if curPos != undefined do
					(
						worldPos = LocalFFDToWorld curObj topMod theMaster[cpIdx].value
						worldPos.x += offset.x
						worldPos.y += offset.y
						worldPos.z += offset.z
						localPosShifted = WorldPointToFFD curObj topMod worldPos
						(theMaster[cpIdx].value) = localPosShifted
					)
				)
			)
		)
		else
			messagebox "Invalid selection" title:"Invalid Selection"
	)
	--
	ApplyNewFFDCPPositions offset:[0,0,50]
)