Difference between revisions of "DeleteNonSurfaces (from Geom Set)"
From scripting
(Created page with " Sub DeleteNonSurfaces(InputHS As Variant) Dim ObjArr() ReDim ObjArr(InputHS.HybridShapes.Count - 1) For X = 0 To InputHS.HybridShapes.Count - 1 Set ObjArr(X) = InputH...") |
(No difference)
|
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