| Solid Edge Geometry Type Library > Body Object : CreateSmartCollection Method |
| Visual Basic |
|---|
Public Function CreateSmartCollection( _ ByVal SeedObject As Object, _ ByVal CollectionType As SmartCollectionTypeConstants, _ Optional ByVal AdditionalObject As Variant _ ) As Object |
| Value | Description |
|---|---|
| seBendFacesOfBody | Smart Collection Type - All The Bend Faces Of Body |
| seBendFacesOfBodyWithBendCenterLineAttributes | Smart Collection Type - All The Bend Faces Of Body With Bend Center Line Attributes |
| seDraftableFacesOfALoop | Smart Collection Type - Faces of a Loop for drafts |
| seDraftableFacesOfBodyNormalToFaceOrPlane | Smart Collection Type - Faces of a Body Normal to a Face or Plane |
| seDraftableSmoothFaceChain | Smart Collection Type - Smooth Face Chain for drafts |
| seRoundableConcaveEdgesOfBody | Smart Collection Type - Concave Edges of Body |
| seRoundableConvexEdgesOfBody | Smart Collection Type - Convex Edges of Body |
| seRoundableEdgesAtVertex | Smart Collection Type - Edges at Vertex |
| seRoundableEdgesOfFace | Smart Collection Type - Edges of Face |
| seRoundableEdgesOfFeature | Smart Collection Type - Edges of Feature |
| seRoundableEdgesOfLoop | Smart Collection Type - Edges of Loop |
| seRoundableSmoothEdgeChain | Smart Collection Type - Smooth Edge Chain |
| seThinwallableFacesOfFeature | Smart Collection Type - Faces of Feature for thinwalls |
| seThinwallableSmoothFaceChain | Smart Collection Type - Smooth Face Chain for thinwalls |
Private Sub Form_Load() Dim objApp As SolidEdgeFrameWork.Application Dim objDoc As SolidEdgePart.PartDocument Dim objBody As SolidEdgeGeometry.Body Dim objEdgSmartCol As Object Dim bIsUserDefined As Boolean Const TESTFILE = "T:\vbtests\testcases\Cube.par" ' Report errors Const PI = 3.14159265358979 ' Create/get the application with specific settings On Error Resume Next Set objApp = GetObject(, "SolidEdge.Application") If Err Then Err.Clear Set objApp = CreateObject("SolidEdge.Application") Set objDoc = objApp.Documents.Add("SolidEdge.PartDocument") objApp.Visible = True Else Set objDoc = objApp.ActiveDocument End If On Error GoTo 0 ' Closing active document if any Call objDoc.Close ' opening the testcase file Set objDoc = objApp.Documents.Open(TESTFILE) ' getting the body object of the model Set objBody = objDoc.Models(1).Body 'create an userdefined EdgeSmartCollection object Set objEdgSmartCol = objBody.CreateSmartCollection(seedobject:= _ objBody.Faces(igQueryAll).Item(1), collectiontype:=seRoundableEdgesOfFace) 'Capture the Boolean operator status bIsUserDefined = objEdgSmartCol.IsUserDefined ' USER DISPLAY ' Release objects Set objApp = Nothing Set objDoc = Nothing Set objBody = Nothing Set objEdgSmartCol = Nothing End Sub