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