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