Difference between revisions of "DeleteNonSurface (from Array)"
From scripting
(Created page with " Sub DeleteNonSurface(InputObj As Variant) On Error GoTo KBlast Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(InputObj) If KMeas.GeometryName <> CatMeasurableSurface...") |
(No difference)
|
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