
Set xsiApp = application
Set xsi = xsiApp.application

SelectAll

'Get all selected object

Set lSel = xsi.Selection

on error resume next
For Each lItem In lSel

if litem.type = "bone" then

	logmessage lItem.fullname
	SetValue lItem.fullname &".chain.solverangles", 0

end if

Next

SetValue "PlayControl.Key", 1
SetValue "PlayControl.Current", 1
SetValue "PlayControl.Key", 0
SetValue "PlayControl.Current", 0
