Extrude by object height

try( destroyDialog :: pickRollout ) catch()
 
-- Collects the current selection into an array
SelSplines = selection as array
 
rollout pickRollout "Reference Height"
(
    pickbutton pickButton "Pick Reference Object"
 
    on pickButton picked pickObj do
    (
        pickButton.object = pickObj
 
        if pickObj != undefined do
        (
            RefHeight = pickObj.max.z - pickObj.min.z
        )
 
		-- Apply the "Extrude" modifier with the "amount" parameter = to RefHeight
		for obj in SelSplines do
		(
			extrudeMod = Extrude()
			addModifier obj extrudeMod
 
			extrudeMod.amount = RefHeight
		)
 
		try( destroyDialog :: pickRollout ) catch()
    )
)
 
createDialog pickRollout