删除场景中的空物体

1. macroScript ZeroVertArray
   
2. category:"Del_ZeroVertArray"
   
3. toolTip:"Del_ZeroVertArray"
   
4. (
   
5.         try
   
6.         (
   
7.                 for fe in geometry do
   
8.                 (
   
9.                         if fe.Mesh.Numfaces == 0 then
   
10.                         (                       
    
11.                                 delete fe;print "已删除"
    
12.                         )else(print "没有发现空面物体")
    
13.                 )                       
    
14.                 for i in geometry do
    
15.                 (       
    
16.                         max modify mode
    
17.                         select i
    
18.                         subobjectLevel = 1
    
19.                         if classof i==Editable_Poly then
    
20.                         (
    
21.                                 i.EditablePoly.deleteIsoVerts()
    
22.                         )else
    
23.                         (
    
24.                                 if classof i==Editable_mesh then
    
25.                                 (
    
26.                                         meshop.deleteIsoVerts i
    
27.                                 )else()       
    
28.                         )
    
29.                         subobjectLevel = 0
    
30.                         clearSelection()
    
31.                 )
    
32.         )catch()
    
33. )

复制代码

在工作中发现如果单个poly物体中有多余费点用之前的脚本无法解决，比如一个box其中一个点被复制出来，这个点是没有面数的。用$.Mesh.Numfaces无法判断，所以加入了deleteIsoVerts来实现对单一模型中费点的处理。如果你也遇到这样的问题正好用的上。

{:6_205:}

请问 我如果想同时 添加 删除Spline 样条线 空物体  该如何添加呢？