Private Sub Offset2D_Click(sender As Object, e As EventArgs) Handles Offset2D.Click
Dim objApplication As SolidEdgeFramework.Application
Dim Line As SolidEdgeFrameworkSupport.Line2d
Dim DraftDoc As SolidEdgeDraft.DraftDocument
Dim SelectSet As SolidEdgeFramework.SelectSet
Dim Sheet As SolidEdgeDraft.Sheet = Nothing
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.
DraftDoc = objApplication.ActiveDocument
Sheet = DraftDoc.Sheets.Item(1)
Line = Sheet.Lines2d.Item(1)
Line.GetEndPoint(x, y)
Sheet.ChainLocate(x, y)
SelectSet = DraftDoc.SelectSet
Sheet.Offset2d(x + 0.005, y + 0.005, 0.005)
Catch ex As Exception
MsgBox(ex.ToString)
Clipboard.SetText(ex.ToString)
End Try
End Sub