AnsweredAssumed Answered

PDM Add-in Check in can't  catch

Question asked by Pichaiyan Prabaharan on Dec 10, 2018
Latest reply on Dec 10, 2018 by Lee CS Young

I'm testing a  find actions sample code(Refer Below) from SolidWorks help.

In that I able to catch all options expect Check-In.

 

May I know what is the issue ?

 

 

Imports EdmLib


Public Class Class1
    Implements IEdmAddIn5


    Public Sub GetAddInInfo(ByRef poInfo As EdmAddInInfo, poVault As IEdmVault5, poCmdMgr As IEdmCmdMgr5) Implements IEdmAddIn5.GetAddInInfo


        'Specify add-in information
        poInfo.mbsAddInName = "My first add-in"
        poInfo.mbsCompany = "The name of my company"


        poInfo.mbsDescription = "This is a very nice add-in."
        poInfo.mlAddInVersion = 1


        'Specify minimum version of SOLIDWORKS Enterprise PDM
        poInfo.mlRequiredVersionMajor = 5
        poInfo.mlRequiredVersionMinor = 2


        'Notify when a file has been added
        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostAdd)


        'Notify when a file has been checked out
        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostLock)


        'Notify when a file is about to be checked in
        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PreUnlock)


        'Notify when a file has been checked in
        poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostUnlock)




    End Sub


    Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd




        'Check the type of hook that triggered this call
        Dim name As String
        Select Case poCmd.meCmdType
            Case EdmCmdType.EdmCmd_PostAdd
                name = "PostAdd"
            Case EdmCmdType.EdmCmd_PostLock
                name = "PostLock"
            Case EdmCmdType.EdmCmd_PreUnlock
                name = "PreUnlock"
            Case EdmCmdType.EdmCmd_PostUnlock
                name = "PostUnlock"
            Case Else
                name = "?"
        End Select


        'Check the upper and lower bounds of the array
        Dim message As String
        message = ""
        Dim index As Long
        index = LBound(ppoData)
        Dim last As Long
        last = UBound(ppoData)


        'Append the paths of all files to a string
        While index <= last
            message = message + ppoData(index).mbsStrData1 + vbLf
            index = index + 1
        End While


        'Display a message to the user
        message = "The following files were affected by a " + name + " hook:" + vbLf + message


        Dim vault As EdmVault5
        vault = poCmd.mpoVault
        vault.MsgBox(poCmd.mlParentWnd, message)


    End Sub
End Class

 

 

Thanks

Outcomes