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