Solid Edge Geometry Type Library
GetCylinderData Method
Returns the coordinates of the point that is the center of the base of the referenced cylinder.
Returns the unit vector that defines the axis of the referenced cylinder.
Returns the radius of the referenced cylinder.
Description
Returns the surface geomtry data on the referenced cylinder object.
Syntax
Visual Basic
Public Sub GetCylinderData( _
   ByRef BasePoint() As Double, _
   ByRef AxisVector() As Double, _
   ByRef Radius As Double _
) 
Parameters
BasePoint
Returns the coordinates of the point that is the center of the base of the referenced cylinder.
AxisVector
Returns the unit vector that defines the axis of the referenced cylinder.
Radius
Returns the radius of the referenced cylinder.
Example
Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBody As SolidEdgeGeometry.Body
    Dim objCylndr As SolidEdgeGeometry.Cylinder
    Dim sStatus As String
    Dim dblCylBasePt() As Double
    Dim dblCylAxVect() As Double
    Dim dblCylRadius As Double
    ' 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
    ' Create a model (CYLINDER)
    sStatus = CreateModel(objDoc:=objDoc)
    If sStatus <> "" Then
        MsgBox sStatus
        Exit Sub
    End If
    ' Getting the Cylinder data for a Cylinder object
    Set objBody = objDoc.Models(1).Body
    Set objCylndr = objBody.Shells(1).Faces(3).Geometry
    Call objCylndr.GetCylinderData(BasePoint:=dblCylBasePt, _
                                   AxisVector:=dblCylAxVect, Radius:=dblCylRadius)

    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
    Set objCylndr = Nothing
End Sub
See Also

Cylinder Object  | Cylinder Members