DeleteNonSurface (from Array)
From scripting
Sub DeleteNonSurface(InputObj As Variant) On Error GoTo KBlast Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(InputObj) If KMeas.GeometryName <> CatMeasurableSurface Then MyHSFactory.DeleteObjectForDatum InputObj End If Exit Sub KBlast: If MySel.Count <> 0 Then MySel.Clear End If MySel.Add InputObj MySel.Delete End Sub