DeleteNonSurface (from Array)

From scripting
Revision as of 05:22, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub DeleteNonSurface(InputObj As Variant) On Error GoTo KBlast Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(InputObj) If KMeas.GeometryName <> CatMeasurableSurface...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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