基于VB.NET和NX8的刀具导入工具开发源码

hsy · 发表于 2016-2-22 12:59:34

请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由 hsy 于 2016-2-22 13:11 编辑

开发语言：VB.NET
NX版本：NX8.0
开发目的：快速调入library中的指定刀具

定义变量
Public NXToolName As New ArrayList
Public PreName As New ArrayList
Public BckName As New ArrayList
Structure ToolObj
      Dim ToolName As String
      Dim ToolDima As Double
      Dim ToolLength As Double
      Dim PreName As String
      Dim BackName As String
End Structure
Public NXToolName_Library As New ArrayList

程序入口
Sub Main()
      Dim NewForm As New Frmmain

      Dim DllPath As String = System.Reflection.Assembly.GetExecutingAssembly().Location.ToString()
      Dim Posi As Integer = InStrRev(DllPath, "\")
      DllPath = Mid(DllPath, 1, Posi - 1)
      Posi = InStrRev(DllPath, "\")
      APPPath = Mid(DllPath, 1, Posi)

      NXToolName.Clear()
      GetToolList("GENERIC_MACHINE")
      GetToolListFromLibrary()
      Try
         If GetRight() = True Then
            NewForm.ShowDialog()
         Else
            MessageBox.Show("服务器没有开启或当前机器没有权限！", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
         End If
      CaTCh ex As Exception

      End Try

End Sub

Sub GetToolList(ByRef String_Pass As String)
      Dim TheSession As Session = Session.GetSession()
      Dim ThePart As NXOpen.Part = TheSession.Parts.Work
      Dim NCGroup_Cycle As CAM.NCGroup
      NCGroup_Cycle = ThePart.CAMSetup.CAMGroupCollection.FindObject(String_Pass)
      Dim NCGroup_Cycle_Members() As CAM.CAMObject = NCGroup_Cycle.GetMembers()
      For i = 0 To NCGroup_Cycle_Members.Length - 1
         If ThePart.CAMSetup.IsGroup(NCGroup_Cycle_Members(i)) Then
            If NCGroup_Cycle_Members(i).Name <> "NONE" Then
                  NXToolName.Add(NCGroup_Cycle_Members(i).Name)
            End If
            GetToolList(NCGroup_Cycle_Members(i).Name)
         End If
      Next
End Sub
Sub GetToolListFromLibrary()
      NXToolName_Library.Clear()
      Dim NX As String = Application.StartupPath
      Dim Num As Integer = InStrRev(NX, "\")
      NX = Mid(NX, 1, Num)
      Dim ReadFile As StreamReader = New StreamReader(NX + "MACH\resource\library\tool\metric\tool_database.dat", System.Text.Encoding.Default)
      Dim StringLine As String = ""
      Dim StringSplit() As String
      If ReadFile IsNot Nothing Then
         Do Until ReadFile.EndOfStream
            StringLine = ReadFile.ReadLine
            If InStr(StringLine, "DATA ") = 1 Then                ‘分析刀具名称
                  Try
                     StringSplit = StringLine.Trim.Split("|")
                     Dim ToolName As String = StringSplit(1)
                     Dim NewTool As New ToolObj
                     NewTool.ToolName = ToolName
                     NewTool.ToolLength = 0
                     Dim ToolData() As String = ToolName.Trim.Split("_")
                     If ToolData.Length > 3 Then
                        For j = 1 To ToolData.Length - 1
                              Try
                                 If InStr(ToolData(j), "L") > 0 Then
                                    If InStr(ToolData(j), "-") Then
                                          NewTool.ToolLength = CDbl(Mid(ToolData(j), 2, InStr(ToolData(j), "-") - 2))
                                    Else
                                          NewTool.ToolLength = CDbl(Mid(ToolData(j), 2, ToolData(j).Length - 1))
                                    End If
                                    Exit For
                                 End If
                              Catch ex As Exceptionm
                              End Try
                        Next

                        NewTool.PreName = ToolData(0)
                        NewTool.BackName = ToolData(ToolData.Length - 1)

                        Dim PreNameIn As Boolean = False
                        For i = 0 To PreName.Count - 1
                              If NewTool.PreName = PreName(i) Then
                                 PreNameIn = True
                                 Exit For
                              End If
                        Next
                        If PreNameIn = False Then
                              PreName.Add(NewTool.PreName)
                        End If

                        Dim BckNameIn As Boolean = False
                        For i = 0 To BckName.Count - 1
                              If NewTool.BackName = BckName(i) Then
                                 BckNameIn = True
                                 Exit For
                              End If
                        Next
                        If BckNameIn = False Then
                              BckName.Add(NewTool.BackName)
                        End If

                        NewTool.ToolDima = Trim(StringSplit(10))
                        If NewTool.ToolDima = 0 Then
                              NewTool.ToolDima = Trim(StringSplit(14))
                        End If
                        NXToolName_Library.Add(NewTool)
                     End If
                  Catch ex As Exception

                  End Try
            End If
         Loop
         PreName.Sort()
         BckName.Sort()
      End If
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
      GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
End Function

hsy · 发表于 2016-2-22 13:00:55

导入刀具
Private Sub Btn_Input_Click(sender As System.Object, e As System.EventArgs) Handles Btn_Input.Click
      '如果没有选择，则全部导入，否则导入选择的刀具
      NXToolName.Clear()
      GetToolList("GENERIC_MACHINE")

      Dim theSession As Session = Session.GetSession()
      Dim workPart As Part = theSession.Parts.Work
      Dim displayPart As Part = theSession.Parts.Display
      Dim tufs As UFSession = UFSession.GetUFSession()

      Dim tool1 As CAM.Tool
      Dim success1 As Boolean
      Dim SumInPut As Integer = 0
      Dim SumInPut_Ori As Integer = 0
      Dim SumInPut_No As Integer = 0
      For i = 0 To DataGridView1.Rows.Count - 1
         If DataGridView1.Rows(i).Selected = True Then
            Try
                  Dim CheckIn As Boolean = False

                  For j = 0 To NXToolName.Count - 1
                     If DataGridView1.Rows(i).Cells(0).Value.ToString.Trim = NXToolName(j) Then
                        CheckIn = True
                        SumInPut_Ori = SumInPut_Ori + 1
                        Exit For
                     End If
                  Next

                  If CheckIn = False Then
                     tool1 = workPart.CAMSetup.RetrieveTool(DataGridView1.Rows(i).Cells(0).Value.ToString.Trim, success1)
                     If success1 = True Then
                        SumInPut = SumInPut + 1
                     Else
                        SumInPut_No = SumInPut_No + 1
                     End If
                  End If
            Catch ex As Exception
            End Try
            DataGridView1.Rows(i).Selected = False

         End If
      Next
      tufs.UiOnt.Refresh()
      MessageBox.Show(StringA & StringB & StringC, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

hsy · 发表于 2016-2-22 13:02:11

窗体显示
      Sub GriviewUpdate(ByRef List As ArrayList)
      DataGridView1.Rows.Clear()
      For i = 0 To List.Count - 1
         DataGridView1.Rows.Add(List(i).ToolName, List(i).PreName, List(i).ToolDima, List(i).ToolLength, List(i).BackName)
      Next
End Sub

Private Sub Frmmain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      GriviewUpdate(NXToolName_Library)
      For i = 0 To PreName.Count - 1
         Dim PreNameCheck As New CheckBox
         PreNameCheck.Left = 5
         PreNameCheck.Top = i * 30
         PreNameCheck.Text = PreName(i)
         Panelpre.Controls.Add(PreNameCheck)
         PreList.Add(PreNameCheck)
         AddHandler PreNameCheck.Click, AddressOf Select_Click
      Next
      For i = 0 To BckName.Count - 1
         Dim BckNameCheck As New CheckBox
         BckNameCheck.Left = 5
         BckNameCheck.Top = i * 30
         BckNameCheck.Text = BckName(i)
         Panelbck.Controls.Add(BckNameCheck)
         BckList.Add(BckNameCheck)
         AddHandler BckNameCheck.Click, AddressOf Select_Click
      Next

End Sub

hsy · 发表于 2016-2-22 13:08:51

导出到excel
Private Sub OutPutExcel_Click(sender As System.Object, e As System.EventArgs) Handles OutPutExcel.Click
      Try
         Dim ExlApp As Excel.Application
         Dim ExlBook As Excel.Workbook
         Dim ExlSheet As Excel.Worksheet

         ExlApp = CreateObject("Excel.Application") '创建EXCEL对象
         ExlBook = ExlApp.Workbooks.Add()
         ExlSheet = ExlBook.Worksheets("sheet1")
         ExlSheet.Name = "刀具统计"
         ExlApp.Visible = False

         ExlSheet.Cells(1, 1) = "刀具名称"
         ExlSheet.Cells(1, 2) = "刀具前缀"
         ExlSheet.Cells(1, 3) = "刀具直径"
         ExlSheet.Cells(1, 4) = "刀具长度"
         ExlSheet.Cells(1, 5) = "刀具后缀"

         '输出数据
         For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Selected = True Then
                  ExlSheet.Cells(i + 2, 1) = DataGridView1.Rows(i).Cells(0).Value
                  ExlSheet.Cells(i + 2, 2) = DataGridView1.Rows(i).Cells(1).Value
                  ExlSheet.Cells(i + 2, 3) = DataGridView1.Rows(i).Cells(2).Value
                  ExlSheet.Cells(i + 2, 4) = DataGridView1.Rows(i).Cells(3).Value
                  ExlSheet.Cells(i + 2, 5) = DataGridView1.Rows(i).Cells(4).Value
            End If
         Next
         ExlApp.Cells.EntireColumn.AutoFit()

         With SaveFileDialog1
            .FileName = "刀具输出" & Today.Date
            .InitialDirectory = "D:\"
            .DefaultExt = "xls"
            .Filter = "(*.xls)|*.xls"
            .FilterIndex = 1
            .Title = "刀具数据输出"
         End With
         SaveFileDialog1.ShowDialog()
         ExlBook.SaveAs(SaveFileDialog1.FileName)
         ExlApp.Visible = True
         ExlApp = Nothing

      Catch ex As Exception
         MessageBox.Show(ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
      End Try
End Sub

hsy · 发表于 2016-2-22 13:09:46

Private Sub Select_Click(ByVal sender As Object, ByVal e As EventArgs)
      Try
         Dim NXToolName_Library_Update As New ArrayList '导入刀具
         NXToolName_Library_Update.Clear()
         For i = 0 To NXToolName_Library.Count - 1
            Dim CheckRull As Boolean = False
            For j = 0 To PreList.Count - 1
                  If PreList(j).checked = True Then
                     If NXToolName_Library(i).PreName = PreList(j).text Then
                        For k = 0 To BckList.Count - 1
                              If BckList(k).checked = True Then
                                 If NXToolName_Library(i).BackName = BckList(k).text Then
                                    If CheckBoxToolDiam.Checked = True Then
                                          If NXToolName_Library(i).ToolDima = CDbl(TextBox1.Text) Then
                                             CheckRull = True
                                          End If
                                          Exit For
                                    Else
                                          CheckRull = True
                                          Exit For
                                    End If
                                 End If
                              End If
                              If CheckRull = True Then
                                 Exit For
                              End If
                        Next
                     End If
                  End If
                  If CheckRull = True Then
                     Dim NewTool As New ToolObj
                     NewTool.ToolName = NXToolName_Library(i).ToolName
                     NewTool.ToolDima = NXToolName_Library(i).ToolDima
                     NewTool.ToolLength = NXToolName_Library(i).ToolLength
                     NewTool.PreName = NXToolName_Library(i).PreName
                     NewTool.BackName = NXToolName_Library(i).BackName
                     NXToolName_Library_Update.Add(NewTool)
                     Exit For
                  End If
            Next
         Next
         GriviewUpdate(NXToolName_Library_Update)
      Catch ex As Exception

      End Try

End Sub

Private Sub CheckBoxToolDiam_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxToolDiam.CheckedChanged
      If CheckBoxToolDiam.Checked = True Then
         TextBox1.Enabled = True
      Else
         TextBox1.Enabled = False
      End If
      Select_Click(sender, e)
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
      Select_Click(sender, e)
End Sub

Private Sub CheckBoxPre_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxPre.CheckedChanged
      For i = 0 To PreList.Count - 1
         PreList(i).Checked = CheckBoxPre.Checked
      Next
      Select_Click(sender, e)
End Sub

Private Sub CheckBoxBck_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBoxBck.CheckedChanged
      For i = 0 To BckList.Count - 1
         BckList(i).Checked = CheckBoxBck.Checked
      Next
      Select_Click(sender, e)
End Sub

PLM之家精品课程培训

NX二次开发培训

关注公众号

Catia二次开发培训

在线原创B站视频

Teamcenter培训

加入同行交流

PLM之家plmhome公众号

关注B站视频

加入PLM之家QQ群

PLM之家PLMHome-国产软件践行者

热图推荐

[二次开发源码] 基于VB.NET和NX8的刀具导入工具开发源码

hsy 楼主

请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！

全部回复4

hsy 沙发

hsy 板凳

hsy 地板

hsy 5^#

发表回复

浏览过的版块

PLM之家精品课程培训

NX二次开发培训

关注公众号

Catia二次开发培训

在线原创B站视频

Teamcenter培训

加入同行交流

PLM之家plmhome公众号

关注B站视频

加入PLM之家QQ群

PLM之家PLMHome-国产软件践行者

热图推荐

[二次开发源码] 基于VB.NET和NX8的刀具导入工具开发源码

hsy 楼主

请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！

全部回复4

hsy 沙发

hsy 板凳

hsy 地板

hsy 5#

发表回复

浏览过的版块

hsy 5^#