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
SolidworksApi/macros