GetConeData Method

Description

Returns the surface geomtry data on the referenced cone object.

Syntax

Visual Basic
Public Sub GetConeData( _ ByRef BasePoint() As Double, _ ByRef AxisVector() As Double, _ ByRef Radius As Double, _ ByRef HalfAngle As Double, _ ByRef Expanding As Boolean _ )

Parameters

BasePoint: Returns the coordinates of the point that is the center of the base of the referenced cone.
AxisVector: Returns the unit vector that defines the axis of the referenced cone.
Radius: Returns the radius of the base circle of the referenced cone.
HalfAngle: Returns the acute angle subtended between the axis and a generator of the cone. The angle is greater than 0 and less than PI/2.
Expanding: Returns True if the referenced cone flares outward (increases in radius) progressing along the axis-vector from the base point.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objBody As SolidEdgeGeometry.Body
    Dim objCone As SolidEdgeGeometry.Cone
    Dim sStatus As String
    Dim dblCnBasePt() As Double
    Dim dblCnAxVect() As Double
    Dim dblCnRadius As Double
    Dim dblCnHfAngle As Double
    Dim bCnExpndg As Boolean
    ' 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 (cone)
    sStatus = CreateModel(objDoc:=objDoc)
    If sStatus <> "" Then
        MsgBox sStatus
        Exit Sub
    End If
    ' Getting the Cone data for a Cone object
    Set objBody = objDoc.Models(1).Body
    Set objCone = objBody.Shells(1).Faces(2).Geometry
    Call objCone.GetConeData(BasePoint:=dblCnBasePt, AxisVector:=dblCnAxVect, _
                             Radius:=dblCnRadius, HalfAngle:=dblCnHfAngle, Expanding:=bCnExpndg)

    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objBody = Nothing
    Set objCone = Nothing
End Sub