0 Replies Latest reply on Dec 3, 2018 2:16 AM by Prabaharan Pichaiyan

    Solidworks PDM get selected files variable

    Prabaharan Pichaiyan

      I need to get selected files card variables in msgbox.

      is it possible ?


      my codes :


      Imports EdmLib
      Public Class VbAddin
          Implements IEdmAddIn5
          Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo
              poInfo.mbsAddInName = "Minimal VB.Net Addi-in"
              poInfo.mbsCompany = "AEM"
              poInfo.mbsDescription = "Testing Only"
              poInfo.mlAddInVersion = 1
              poInfo.mlRequiredVersionMajor = 6
              poInfo.mlRequiredVersionMinor = 4
              If poVault.IsLoggedIn Then
                  MsgBox("We are logged in to the  " + poVault.Name + " vault")
                  MsgBox("We are not logged in to a vault")
              End If
              poCmdMgr.AddCmd(1, "Minimal VB.Net Add-in menu item")
          End Sub
          Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd
              Dim AffectedFile As EdmCmdData
              Dim AffectedFileNames As String = vbCrLf + vbCrLf
              Select Case poCmd.meCmdType
                  Case EdmCmdType.EdmCmd_PreLock
                      For Each AffectedFile In ppoData
                          AffectedFileNames += AffectedFile.mbsStrData1 + vbCrLf
                      Next AffectedFile
                      AffectedFileNames += vbCrLf
                      Dim MsgBoxResult As MsgBoxResult
                      MsgBoxResult = MsgBox("The Files Below are about to be checked out" + AffectedFileNames + "Seleted.")
                  Case Else
                      poCmd.mpoVault.msgbox(poCmd.mlParentWnd, "An Unknown Command type was issued.")
              End Select
          End Sub
      End Class