AnsweredAssumed Answered

Get file variable while checkout the file addin

Question asked by Pichaiyan Prabaharan on Dec 4, 2018
Latest reply on Dec 4, 2018 by Michael Dekoning

HI

 

I need to get the file name and one of its variable in  message box.

I managed to write to get file name but i can't get variable value.

could you please anyone help with this?

 

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 = "Menu command sample"
        poInfo.mbsCompany = "SOLIDWORKS Corporation"
        poInfo.mbsDescription = "Adds menu command items"
        poInfo.mlAddInVersion = 1
        poInfo.mlRequiredVersionMajor = 10
        poInfo.mlRequiredVersionMinor = 0


        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

Outcomes