根据所选物体或组的名称创建对应名称的图层并把物体加载到对应图层

global    geo=geometry as array ----整体场景物体合集
global    vObjects = selection as array

 ---------能批量把场景中所选多个模型（组）放入一个新图层中，每个图层名称与物体（组）名称相同
     for i in objects where isgrouphead i do setgroupopen i false  --关闭场景中所有的组
    grouptou=(for i in objects where isgrouphead i collect i)----找到所有的组
    c=(for a in grouptou where not isgroupmember a collect a)-----找到最外层的组    
    
if vObjects.count >0 then (    for i=1 to vObjects.count 
                                            do (      Layername=  vObjects[i].name 
                                                    LayerManager.newLayerFromName Layername 
                                                    vLayer = LayerManager.getlayerfromname Layername 
                                                    vLayer.current = true
                                                    vLayer.addNode vObjects[i]        
                                
                                                    ---for vItem in vObjects do vLayer.addNode vItem -----选择的物体加载到同一个图层
                                                        )
                                
                                
                                for i=1 to c.count     do (                                        
                                                            LayernameG=  c[i].name 
                                                            LayerManager.newLayerFromName LayernameG
                                                            vLayer = LayerManager.getlayerfromname LayernameG 
                                                            vLayer.current = true
                                                            vLayer.addNode c[i]    

                                                            --for i=1 to vObjects.count do vLayer.addNode vObjects[i]
                                                            ---for aa in vObjects do vLayer.addNode aa
                                    
                                
                                                                        )                            
                                                        
                                                        
                                ) else messageBox ("请先选择物体!") title:"JM提示"