Loading Skin?

tObj = $Box001
sObj = $Box002
 
fn fnFindSkinMod obj = (
	if validModifier obj Skin do (
		for m = 1 to obj.modifiers.count do (
			if classof obj.modifiers[m] == skin then ( --// if the object has a valid skin modifier return the modifier number in the stack
				return m
			)
		)
	)
)
skinIDX = if fnFindSkinMod tObj != ok then (fnFindSkinMod tObj) else 0 --//Skin modifier index
 
if skinIDX >= 1 do (
	boneArr = #()
	numBones = skinOps.GetNumberBones tObj.modifiers[skinIDX] --//Number of bones in skin modifier
	max modify mode
	modPanel.setCurrentObject tObj.modifiers[skinIDX]
	try (deleteFile (maxfilepath + "skinning.env"))catch()
	skinOps.saveEnvelope tObj.modifiers[skinIDX] (maxfilepath + "skinning.env")
 
	for b = 1 to numBones do (--//Add to an array the name of all the bones in the skin modifier
		boneObject = skinOps.GetBoneName tObj.modifiers[skinIDX] b 1 --//0 = transform  |  1 = object name
		append boneArr boneObject	
	)
	max create mode
)
 
 
fn fnLoadSkinning obj = (
	addModifier obj (Skin ())
 
	select obj
	max modify mode
 
	modPanel.setCurrentObject tObj.modifiers[skinIDX]
	for b in boneArr do (
		theBone = getNodeByName (b + "_002")
		skinOps.addbone obj.modifiers[1] theBone 1 
	)
	obj.modifiers[1].filter_vertices = on
	skinOps.loadEnvelope obj.modifiers[#skin] (maxfilepath + "skinning.env")
)
 
fnLoadSkinning sObj