DeleteNonSurfaces (from Geom Set)
From scripting
Sub DeleteNonSurfaces(InputHS As Variant) Dim ObjArr() ReDim ObjArr(InputHS.HybridShapes.Count - 1) For X = 0 To InputHS.HybridShapes.Count - 1 Set ObjArr(X) = InputHS.HybridShapes.Item(X + 1) Next For Inputcounter = 1 To UBound(ObjArr) Dim KObj Set KObj = ObjArr(Inputcounter - 1) Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(KObj) If KMeas.GeometryName <> CatMeasurableSurface Then MyHSFactory.DeleteObjectForDatum KObj End If Next Exit Sub End Sub