lSel = [ lObj for lObj in FBSystem().Scene.Components if lObj and lObj.Selected == True ][0]
num = 0
for i in range( len(lSel.PropertyList) ):
try:
print i, lSel.PropertyList[i].GetName(), lSel.PropertyList[i].Data
log = "%s\t%s\t%s\n" % ( i, lSel.PropertyList[i].GetName(), lSel.PropertyList[i].Data )
dumpPath = r"C:\PropertyList.txt"
except:
print ""
num += 1
f = open( dumpPath, "w" )
f.write( log )
f.close()