SolidEdge-DraftTools/SE_DraftTools.vb at main · farfilli/SolidEdge-DraftTools · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Imports System.Runtime.InteropServices
Public Class SE_DraftTools

    Dim objApp As SolidEdgeFramework.Application
    Dim objDft As SolidEdgeDraft.DraftDocument

    Private Sub SE_DraftTools_Load(sender As Object, e As EventArgs) Handles Me.Load

        For Each item As ToolStripItem In TS_DraftTools.Items

            AddHandler item.MouseEnter, New System.EventHandler(AddressOf Attiva)

        Next

    End Sub

    Private Sub Attiva(sender As Object, e As EventArgs)

        Me.Activate()

    End Sub

    Private Sub Disattiva(sender As Object, e As EventArgs) Handles Me.MouseLeave

        Try
            objApp = GetObject(, "SolidEdge.Application")
            objApp.Activate()
        Catch ex As Exception
        End Try

    End Sub

    Private Sub BT_SelectHorizontalDims_Click(sender As Object, e As EventArgs) Handles BT_SelectHorizontalDims.Click

        DT_Functions.SelectHDims()

    End Sub

    Private Sub BT_SelectVerticalDims_Click(sender As Object, e As EventArgs) Handles BT_SelectVerticalDims.Click

        DT_Functions.SelectVDims()

    End Sub

    Private Sub BT_SolidBackground_Click(sender As Object, e As EventArgs) Handles BT_SolidBackground.Click

        DT_Functions.SolidBackground()

    End Sub

    Private Sub BT_FlipTerminators_Click(sender As Object, e As EventArgs) Handles BT_FlipTerminators.Click

        DT_Functions.FlipTerminals()

    End Sub

    Private Sub BT_ToggleTerminators_Click(sender As Object, e As EventArgs) Handles BT_ToggleTerminators.Click

        DT_Functions.ToggleTerminals()

    End Sub

    Private Sub BT_AddBreak_Click(sender As Object, e As EventArgs) Handles BT_AddBreak.Click

        DT_Functions.AddBreaks()

    End Sub

    Private Sub BT_RemoveBreaks_Click(sender As Object, e As EventArgs) Handles BT_RemoveBreaks.Click

        DT_Functions.RemoveBreaks()

    End Sub

    Private Sub BT_HCenterDV_Click(sender As Object, e As EventArgs) Handles BT_HCenterDV.Click

        DT_Functions.HCenterDV

    End Sub

    Private Sub BT_VCenterDV_Click(sender As Object, e As EventArgs) Handles BT_VCenterDV.Click

        DT_Functions.VCenterDV

    End Sub

    Private Sub BT_TogglePLines_Click(sender As Object, e As EventArgs) Handles BT_TogglePLines.Click

        DT_Functions.ToggleProjectionLines()

    End Sub

    Private Sub BT_PulloutText_Click(sender As Object, e As EventArgs) Handles BT_PulloutText.Click

        DT_Functions.PulloutText()

    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

        DT_Functions.ConnectLines()

    End Sub

End Class