DeleteNonSurface (from Array)

From scripting
Jump to: navigation, search
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