Jump to content

Mod Tool/Scripting: Difference between revisions

get layer name of an object
(adding a few object and scene fundamentals)
(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




8,323

edits