SetSegmentedStyle Method

Description

Applies a new linear style to a specified segment on a graphic object.

Syntax

Visual Basic
Public Sub SetSegmentedStyle( _ ByVal Index As Long, _ ByVal Style As Object _ )

Parameters

Index: Specifies the index for the segment of the graphic object that will receive the new linear style.
Style: Specifies the new LinearStyle2d object to assign to the segment. A null style removes the segment from the graphic object.

Remarks

If a linear style does not exist for the formatting needed for the segment, create the linear style through the LinearStyles collection object.

Example

Example (Visual Basic)

Private Sub Form_Load()
    Dim objApp As SolidEdgeFrameWork.Application
    Dim objDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objEllipses2d As SolidEdgeFrameworkSupport.Ellipses2d
    Dim objEllipse2d As SolidEdgeFrameworkSupport.Ellipse2d
    Dim objLinearStyles As SolidEdgeFrameWork.LinearStyles
    Dim objLinearStyle As SolidEdgeFrameWork.LinearStyle
    Dim objLinearStyle1 As SolidEdgeFrameWork.LinearStyle
    Dim objGetStyle As SolidEdgeFrameWork.LinearStyle
    ' 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.DraftDocument")
        objApp.Visible = True
    Else
        Set objDoc = objApp.ActiveDocument
    End If
    'getting the Active Sheet object
    Set objSheet = objDoc.ActiveSheet
    'getting the Ellipses2d object
    Set objEllipses2d = objSheet.Ellipses2d
    'Create an Ellispse2d in Clockwise orientation
    Set objEllipse2d = objEllipses2d.AddByCenter(xCenter:=0.3, yCenter:=0.25, _
                                                 xMajor:=0.1, yMajor:=0, Ratio:=0.5, Orientation:=igGeom2dOrientClockwise)
    'Get the LinearStyles object
    Set objLinearStyles = objDoc.LinearStyles
    'Add new LinearStyles to the collection
    Set objLinearStyle = objLinearStyles.Add(Name:="LinearStyle1", _
                                             Parent:="Visible")
    Set objLinearStyle1 = objLinearStyles.Add(Name:="LinearStyle2", _
                                              Parent:="Phantom")
    'set the color property to blue
    objLinearStyle1.Color = vbBlue
    'create a segement with LinearStyle1
    Call objEllipse2d.AddSegmentedStyle(x1:=0.3, y1:=0.2, x2:=0.3, _
                                        y2:=0.3, Style:=objLinearStyle)
    'Set Segemented style
    Call objEllipse2d.SetSegmentedStyle(Index:=1, Style:=objLinearStyle1)
    ' USER DISPLAY
    ' Release objects
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objSheet = Nothing
    Set objEllipses2d = Nothing
    Set objEllipse2d = Nothing
    Set objLinearStyles = Nothing
    Set objLinearStyle = Nothing
    Set objGetStyle = Nothing
    Set objLinearStyle1 = Nothing
End Sub