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