Difference between revisions of "DeleteNonSurfaces (from Geom Set)"

Latest revision as of 05:23, 22 April 2017

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