type MyObject field strtp$ Field entity Field scalex#, scaley#, scalez# end type
for i.myObject=each myObject if strtp = seltype if selecting=i\entity then i\scalex=i\scalex+1 : scaleentity selecting, i\scalex, i\scaley, i\scalez endif next