| Solid Edge Part Type Library > ExtrudedProtrusion Object : Faces Property |
| Visual Basic |
|---|
Public Property Faces( _ ByVal FaceType As FeatureTopologyQueryTypeConstants _ ) As Object |
| Value | Description |
|---|---|
| igQueryAll | Feature Topology Query Type - All |
| igQueryCone | Feature Topology Query Type - Cone |
| igQueryCylinder | Feature Topology Query Type - Cylinder |
| igQueryEllipse | Feature Topology Query Type - Ellipse |
| igQueryPlane | Feature Topology Query Type - Plane |
| igQueryRoundable | Feature Topology Query Type - Roundable |
| igQuerySphere | Feature Topology Query Type - Sphere |
| igQuerySpline | Feature Topology Query Type - Spline |
| igQueryStraight | Feature Topology Query Type - Straight |
| igQueryTorus | Feature Topology Query Type - Torus |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As SolidEdgeFramework.Application = Nothing Dim objPartDocument As SolidEdgePart.PartDocument = Nothing Dim objModels As SolidEdgePart.Models = Nothing Dim objModel As SolidEdgePart.Model = Nothing Dim objExtrudedProtrusions As SolidEdgePart.ExtrudedProtrusions = Nothing Dim objExtrudedProtrusion As SolidEdgePart.ExtrudedProtrusion = Nothing Dim objFaces As SolidEdgeGeometry.Faces = Nothing Try OleMessageFilter.Register() objApplication = Marshal.GetActiveObject("SolidEdge.Application") objPartDocument = objApplication.ActiveDocument objModels = objPartDocument.Models objModel = objModels.Item(1) objExtrudedProtrusions = objModel.ExtrudedProtrusions objExtrudedProtrusion = objExtrudedProtrusions.Item(1) objFaces = objExtrudedProtrusion.Faces(SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll) Catch ex As Exception Console.WriteLine(ex.Message) Finally OleMessageFilter.Revoke() End Try End Sub End Module