8,484
edits
Paradox-01 (talk | contribs)  (adding a few object and scene fundamentals)  | 
				Paradox-01 (talk | contribs)   (get layer name of an object)  | 
				||
| Line 190: | Line 190: | ||
  ' INFO : COLLISION  |   ' INFO : COLLISION  | ||
  ' INFO : --------------------------  |   ' INFO : --------------------------  | ||
'''get layer name of an object'''  | |||
 logmessage RecursiveEnum (selection(0), False, FALSE)  | |||
 function RecursiveEnum( in_Comp, in_Type, in_FirstParentOnly )  | |||
   dim list, elem, layerNameToCheck  | |||
   set list = EnumElements( in_Comp, in_Type )  | |||
   if TypeName(list) <> "Nothing" then  | |||
       for each elem in list  | |||
          if instr(elem, "Layers") = 1 and instr(elem, ".Members") > 1 then  | |||
          	layerNameToCheck = replace(replace(elem,"Layers.", ""),".Members", "")  | |||
     	  	if not layerNameToCheck = "" then  | |||
 				RecursiveEnum = layerNameToCheck  | |||
 			end if  | |||
     	  	exit for  | |||
          end if  | |||
       next  | |||
   end if  | |||
 end function  | |||
 ' INFO : Layer_Default  | |||
edits