Hi,
I'm creating an Add-in to copy variable when check out files. I don't know where I'm Doing mistake. Its getting an error.
Could you please check and let me 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
poInfo.mbsAddInName = "Update old Revision"
poInfo.mbsCompany = "test"
poInfo.mbsDescription = "Update old Revision"
poInfo.mlAddInVersion = 1
poInfo.mlRequiredVersionMajor = 10
poInfo.mlRequiredVersionMinor = 0
poCmdMgr.AddHook(EdmCmdType.EdmCmd_PostLock)
End Sub
Public Sub OnCmd(ByRef poCmd As EdmCmd, ByRef ppoData As Array) Implements IEdmAddIn5.OnCmd
Dim AffectedFile As EdmCmdData
Select Case poCmd.meCmdType
Case EdmCmdType.EdmCmd_PostLock
Dim myVault As IEdmVault12 = CType(poCmd.mpoVault, IEdmVault12)
Dim Inc_RevA As Integer
Dim Cur_RevA As Integer
For Each AffectedFile In ppoData
Dim myfile As IEdmFile5 = myVault.GetFileFromPath(AffectedFile.mbsStrData1)
Dim myvars As IEdmEnumeratorVariable10 = Nothing
myvars = CType(myfile.GetEnumeratorVariable(), IEdmEnumeratorVariable10)
myvars.GetVar("A", "@", Cur_RevA)
MsgBox(Cur_RevA)
myvars.SetVar("B", "@", Inc_RevA)
myvars.CloseFile(True)
Next
End Select
End Sub
End Class
Thanks
SolidworksApi/macros