Difference between revisions of "DeleteNonSurface (from Array)"

Latest revision as of 05:22, 22 April 2017

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