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")
              Else
                  MsgBox("We are not logged in to a vault")
              End If
      
      
              poCmdMgr.AddCmd(1, "Minimal VB.Net Add-in menu item")
              poCmdMgr.AddHook(EdmCmdType.EdmCmd_PreLock)
      
      
          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
      

       

       

      Thanks