AddByCircle Method

Description

Creates a CircularPattern2d object by specifying a center point and point on the circle at which the pattern is to begin.

Syntax

Visual Basic
Public Function AddByCircle( _ ByVal CenterX As Double, _ ByVal CenterY As Double, _ ByVal StartX As Double, _ ByVal StartY As Double, _ ByVal Orientation As Geom2dOrientationConstants, _ ByVal OffsetType As PatternOffsetTypeConstants, _ ByVal Count As Long, _ ByVal AngularSpacing As Double _ ) As CircularPattern2d

Visual Basic

Public Function AddByCircle( _
   ByVal CenterX As Double, _
   ByVal CenterY As Double, _
   ByVal StartX As Double, _
   ByVal StartY As Double, _
   ByVal Orientation As Geom2dOrientationConstants, _
   ByVal OffsetType As PatternOffsetTypeConstants, _
   ByVal Count As Long, _
   ByVal AngularSpacing As Double _
) As CircularPattern2d

Parameters

CenterX

Specifies the coordinates of the center point of the circle.

CenterY

Specifies the coordinates of the center point of the circle.

StartX

Specifies the coordinates of a point on the circle at which the pattern is to begin.

StartY

Specifies the coordinates of a point on the circle at which the pattern is to begin.

Orientation

Value	Description
igGeom2dOrientClockwise	Objects drawn Clockwise
igGeom2dOrientCounterClockwise	Objects drawn Counter Clockwise

A member of the Geom2dOrientationConstants constant set that specifies the orientation of the pattern.

OffsetType

Value	Description
sePatternFillOffset	Fill Offset
sePatternFitOffset	Fit Offset
sePatternFixedOffset	Fixed Offset

A member of the PatternOffsetTypeConstants constant set that specifies the type of offset to be applied to the pattern.

Count

Specifies the number of copies in the pattern.

AngularSpacing

Specifies the angular spacing between pattern occurrences.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFramework.Application
    Dim objDoc As SolidEdgePart.PartDocument
    Dim objProfile As SolidEdgePart.Profile
    Dim objCircPats2d As SolidEdgeFrameworkSupport.CircularPatterns2d
    Dim objCircPat As SolidEdgeFrameworkSupport.CircularPattern2d
    ' 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
    'Get hold of CircularPatterns2d object
    Set objProfile = objDoc.ProfileSets.Add.Profiles.Add(prefplanedisp:=objDoc.RefPlanes(1))
    Set objCircPats2d = objProfile.CircularPatterns2d

    'Create a CircularPattern2d with AddCircle method with offsettype as sePatternFillOffset
    Set objCircPat = objCircPats2d.AddByCircle(CenterX:=0#, CenterY:=0#, StartX:=0.025, StartY:=0#, _
                                               Orientation:=igGeom2dOrientCounterClockwise, OffsetType:=sePatternFillOffset, Count:=5, _
                                               AngularSpacing:=20 * PI / 180)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objProfile = Nothing
    Set objCircPats2d = Nothing
    Set objCircPat = Nothing
End Sub