Offset2d Method

Description

Offsets the end connected elements from the SelectSet in the direction of the 2d point by the given distance. This function will clear the SelectSet and add the offset elements to the SelectSet.

Syntax

Visual Basic
Public Sub Offset2d( _ ByVal offsetSideX As Double, _ ByVal offsetSideY As Double, _ ByVal offsetDistance As Double _ )

Parameters

offsetSideX: Distance in X direction.
offsetSideY: Distance in Y direction.
offsetDistance: Specify offset distance.

Example

Example (VB.NET)

Private Sub Offset2D_Click(sender As Object, e As EventArgs) Handles Offset2D.Click
    Dim objApplication As SolidEdgeFramework.Application
    Dim Line As SolidEdgeFrameworkSupport.Line2d
    Dim Sheet As SolidEdgeDraft.Sheet = Nothing
    Dim objProfile As SolidEdgePart.Profile
    Dim objProfiles As SolidEdgePart.Profiles
    Dim objPartdoc As SolidEdgePart.PartDocument
    Dim objLine2D As SolidEdgeFrameworkSupport.Line2d
    Dim x As Double
    Dim y As Double

    Try
        ' Create/get the application with specific settings
        objApplication = Marshal.GetActiveObject("SolidEdge.Application")
        ' open the document mentioned in the doc files.
        objPartdoc = objApplication.ActiveDocument
        bjProfile = objPartdoc.Sketches.Item(1).Profile
        Line = objProfile.Lines2d.Item(1)
        Line.GetEndPoint(x, y)
        objProfile.ChainLocate(x, y)

        objProfile.Offset2d(x + 0.005, y + 0.005, 0.005)

    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try

End Sub