Solid Edge Geometry Type Library
IsSolid Property
Description
Indicates whether or not the referenced object encloses a finite, well-defined volume.
Property type
Read-only property
Syntax
Visual Basic
Public Property IsSolid As Boolean
Remarks
This does not necessarily imply that each Face, for example, is connected at all its edges. The Body may still consist of standalone Faces that collectively define a finite volume.
Example
Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBody As SolidEdgeGeometry.Body
    Dim bIsSolid As Boolean
    Const TESTFILE = "T:\vbtests\testcases\freeform.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
    Call objDoc.Close
    ' opening the test case file
    Set objDoc = objApp.Documents.Open(TESTFILE)
    ' getting the body object of the model
    Set objBody = objDoc.Models(1).Body
    ' checking whether the body is solid or not
    bIsSolid = objBody.IsSolid
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
End Sub
See Also

Body Object  | Body Members

Send comments on this topic.