AnsweredAssumed Answered

PDM Data card Button addin

Question asked by Pichaiyan Prabaharan on Dec 5, 2018
Latest reply on Dec 7, 2018 by Mario Zahren

Like • Show 0 Likes0
Comment • 7

I need to create a add-in for data card button.

I tried something, But its not working properly.

here are my codes

Imports EdmLib


Public Class VbAddinSS


Implements IEdmAddIn5


Private vault1 As IEdmVault5 = Nothing


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


poInfo.mbsAddInName = "Test1"
poInfo.mbsCompany = "Test"
poInfo.mbsDescription = "For Testing"
poInfo.mlAddInVersion = 1
poInfo.mlRequiredVersionMajor = 10
poInfo.mlRequiredVersionMinor = 0


'Get Card Button Click
poCmdMgr.AddHook(EdmCmdType.EdmCmd_CardButton)


End Sub


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


If Left(poCmd.mbsComment, 9) = "MyButton:" Then


MsgBox("Reached")


End If






End Sub
End Class

When I click the button its prompt the following error.

Please fix this

Thanks

Artem Taturevych Dec 5, 2018 5:12 AM

Correct Answer

Check this article (especially points 4 and 5): How To Create SOLIDWORKS PDM Professional Add-In

Most likely you are targeting to Framework 4.0 or newer and you are using wrong version of interop.

See the reply in context

No one else had this question

Outcomes

7 Replies

Artem Taturevych Dec 5, 2018 5:12 AM
Unmark Correct
Correct Answer
Check this article (especially points 4 and 5): How To Create SOLIDWORKS PDM Professional Add-In

Most likely you are targeting to Framework 4.0 or newer and you are using wrong version of interop.
Like • Show 2 Likes2
Actions
- Pichaiyan Prabaharan @ Artem Taturevych on Dec 6, 2018 3:54 AM
  Mark Correct
  Correct Answer
  Thanks. That's works fine.
  Could you please suggest some example to get the checked out status of the file which this card belongs to ?
  I need to get the status of the file whether this file has been checked out or not.
  
  Thanks a lot
  Like • Show 1 Like1
  Actions
  - Mario Zahren @ Pichaiyan Prabaharan on Dec 6, 2018 4:06 AM
    Mark Correct
    Correct Answer
    IEdmVault7 vault2 = null;
    if (vault1 == null)
    {
        vault1 = new EdmVault5();
    }
    vault2 = (IEdmVault7)vault1;
    if (!vault1.IsLoggedIn)
    {
        //Log into selected vault as the current user
        vault1.LoginAuto(VaultsComboBox.Text, this.Handle.ToInt32());
    }
    
    IEdmFile9 aFile = default(IEdmFile9);
    IEdmFolder5 ppoRetParentFolder;
    aFile = (IEdmFile9)vault2.GetFileFromPath(ListBox.Items[0].ToString(), out ppoRetParentFolder);
    
    bool checkedOut = false;
    checkedOut = aFile.IsLocked;
    
    msg = msg + "File is checked out? " + checkedOut + Constants.vbLf;
    if (checkedOut)
    {
    msg = msg + "Lock path: " + aFile.LockPath + Constants.vbLf;
    msg = msg + "Locked by: " + aFile.LockedByUser.Name + ", User ID: " + aFile.LockedByUserID + Constants.vbLf;
    msg = msg + "Locked in: " + aFile.LockedInFolder.Name + ", Folder ID: " + aFile.LockedInFolderID + Constants.vbLf;
    msg = msg + "Locked on: " + aFile.LockedOnComputer;
    }
    MessageBox.Show(msg);
    
    Here a quick copy of a snippet from the api-help
    Like • Show 1 Like1
    Actions
    - Pichaiyan Prabaharan @ Mario Zahren on Dec 6, 2018 4:11 AM
      Mark Correct
      Correct Answer
      VB.net please?
      Like • Show 1 Like1
      Actions
      - Mario Zahren @ Pichaiyan Prabaharan on Dec 6, 2018 4:20 AM
        Mark Correct
        Correct Answer
        (Get File Information Example (VB.NET)) from api-help
        
        Imports System.IO
        Imports System.Xml.Serialization
        Imports System.Collections
        Imports System.Collections.Generic
        Imports System.Data
        Imports System.Diagnostics
        Imports System.Windows.Forms
        Imports System.ComponentModel
        Imports EPDM.Interop.epdm
        
        Public Class Form1
        
            Private vault1 As IEdmVault5 = Nothing
        
            Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
                Try
                    Dim vault1 As IEdmVault5 = New EdmVault5()
                    Dim vault As IEdmVault8 = DirectCast(vault1, IEdmVault8)
                    Dim Views As EdmViewInfo() = Nothing
        
                    vault.GetVaultViews(Views, False)
                    VaultsComboBox.Items.Clear()
                    For Each View As EdmViewInfo In Views
                        VaultsComboBox.Items.Add(View.mbsVaultName)
                    Next
                    If VaultsComboBox.Items.Count > 0 Then
                        VaultsComboBox.Text = DirectCast(VaultsComboBox.Items(0), String)
                    End If
                Catch ex As System.Runtime.InteropServices.COMException
                    MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + " " + ex.Message)
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End Sub
        
            Public Sub BrowseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseButton.Click
                Try
                    ListBox.Items.Clear()
        
                    If vault1 Is Nothing Then
                        vault1 = New EdmVault5()
                    End If
                    If Not vault1.IsLoggedIn Then
                        'Log into selected vault as the current user
                        vault1.LoginAuto(VaultsComboBox.Text, Me.Handle.ToInt32())
                    End If
        
                    'Set the initial directory in the Open dialog
                    OpenFileDialog.InitialDirectory = vault1.RootFolderPath
                    'Show the Open dialog
                    Dim DialogResult As System.Windows.Forms.DialogResult = Nothing
                    DialogResult = OpenFileDialog.ShowDialog()
                    'If the user didn't click Open, exit
                    If Not (DialogResult = System.Windows.Forms.DialogResult.OK) Then
                        Return
                    End If
        
                    For Each FileName As String In OpenFileDialog.FileNames
                        ListBox.Items.Add(FileName)
                    Next
                Catch ex As System.Runtime.InteropServices.COMException
                    MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + " " + ex.Message)
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End Sub
        
            Public Sub GetInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GetInfo.Click
                Try
        
                    Dim vault2 As IEdmVault7 = Nothing
                    If vault1 Is Nothing Then
                        vault1 = New EdmVault5()
                    End If
                    vault2 = DirectCast(vault1, IEdmVault7)
                    If Not vault1.IsLoggedIn Then
                        'Log into selected vault as the current user
                        vault1.LoginAuto(VaultsComboBox.Text, Me.Handle.ToInt32())
                    End If
        
                    Dim aFile As IEdmFile9
                    aFile = vault2.GetFileFromPath(ListBox.Items(0).ToString())
        
                    'Get configurations
                    Dim msg As String = "Configurations: " & vbLf
                    Dim folder As IEdmFolder5
                    folder = vault2.RootFolder
        
                    Dim cfgList As EdmStrLst5
                    cfgList = aFile.GetConfigurations
        
                    Dim pos As IEdmPos5
                    pos = cfgList.GetHeadPosition
                    Dim cfgName As String
                    While Not pos.IsNull
                        cfgName = cfgList.GetNext(pos)
                        msg = msg & cfgName & vbLf
                    End While
        
                    msg = msg & vbLf
        
                    'Get type of file
                    Dim typ As Integer
                    typ = aFile.FileType
                    msg = msg & "EdmFileType: " & typ & vbLf
        
                    msg = msg & vbLf
        
                    'Get category of file
                    Dim cat As IEdmCategory6
                    cat = aFile.Category
                    If Not IsNothing(cat) Then
                        msg = msg & "Category: " & cat.Name & ", Category ID: " & aFile.CategoryID & vbLf
                        msg = msg & vbLf
                    End If
        
                    'Get local file timestamp
                    Dim filePath As String = aFile.Name
                    Dim fileDate As Object
                    fileDate = aFile.GetLocalFileDate(filePath)
        
                    If Not IsNothing(fileDate) Then
                        Dim text As String
                        text = fileDate
                        msg = msg & aFile.GetLocalPath(folder.ID) & " was modified " & text & vbLf
                    Else
                        msg = msg & "There is no local copy of the file" & vbLf
                    End If
        
                    msg = msg & vbLf
        
                    'Get local version number
                    Dim versionNo As Integer
                    versionNo = aFile.GetLocalVersionNo(aFile.GetLocalPath(folder.ID))
        
                    If versionNo = -1 Then
                        msg = msg & "The local copy of " & aFile.Name & " does not match any existing versions" & vbLf
                    Else
                        Dim versionStr As String
                        versionStr = versionNo
                        msg = msg & "The local copy of " & aFile.Name & " has version " & versionStr & vbLf
                    End If
        
                    msg = msg & vbLf
        
                    'Get current version
                    Dim ver As Integer
                    ver = aFile.CurrentVersion
                    msg = msg & "Current version: " & ver & vbLf
        
                    msg = msg & vbLf
        
                    'Get local revision name
                    Dim revName As String
                    revName = aFile.GetLocalRevisionName(aFile.GetLocalPath(folder.ID))
        
                    If revName = "" Then
                        msg = msg & "The local copy of " & aFile.Name & " does not match any existing revisions" & vbLf
                    Else
                        msg = msg & "The local copy of " & aFile.Name & " has revision name " & revName & vbLf
                    End If
        
                    msg = msg & vbLf
        
                    'Get current revision
                    revName = aFile.CurrentRevision
                    msg = msg & "Current revision: " & revName & vbLf
        
                    msg = msg & vbLf
        
                    'Get local file size
                    Dim fileSize As Integer
                    fileSize = aFile.GetLocalFileSize2(aFile.GetLocalPath(folder.ID))
        
                    If fileSize = -1 Then
                        msg = msg & "The local copy of " & aFile.Name & " is missing" & vbLf
                    Else
                        msg = msg & "The local copy of " & aFile.Name & " has size " & fileSize & " bytes" & vbLf
                    End If
        
                    msg = msg & vbLf
        
                    'Get current workflow state
                    Dim state As IEdmState5
                    state = aFile.CurrentState
                    msg = msg & "Current workflow state: " & state.Name & vbLf
        
                    msg = msg & vbLf
        
                    'Get whether the file is checked out
                    Dim checkedOut As Boolean
                    checkedOut = aFile.IsLocked
                    msg = msg & "File is checked out? " & checkedOut & vbLf
                    If checkedOut Then
                        msg = msg & "Lock path: " & aFile.LockPath & vbLf
                        msg = msg & "Locked by: " & aFile.LockedByUser.Name & ", User ID: " & aFile.LockedByUserID & vbLf
                        msg = msg & "Locked in: " & aFile.LockedInFolder.Name & ", Folder ID: " & aFile.LockedInFolderID & vbLf
                        msg = msg & "Locked on: " & aFile.LockedOnComputer
                    End If
        
                    MessageBox.Show(msg)
        
                Catch ex As System.Runtime.InteropServices.COMException
                    MessageBox.Show("HRESULT = 0x" + ex.ErrorCode.ToString("X") + " " + ex.Message)
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End Sub
        
        End Class
        
        Back to top
        'Form1.Designer.vb
        <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
        Partial Class Form1
            Inherits System.Windows.Forms.Form
            ''' <summary>
            ''' Required designer variable.
            ''' </summary>
            Private components As System.ComponentModel.IContainer = Nothing
        
            ''' <summary>
            ''' Clean up any resources being used.
            ''' </summary>
            ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
            Protected Overrides Sub Dispose(ByVal disposing As Boolean)
                If disposing AndAlso (components IsNot Nothing) Then
                    components.Dispose()
                End If
                MyBase.Dispose(disposing)
            End Sub
        
        #Region "Windows Form Designer generated code"
        
            ''' <summary>
            ''' Required method for Designer support - do not modify
            ''' the contents of this method with the code editor.
            ''' </summary>
            Private Sub InitializeComponent()
                Me.VaultsLabel = New System.Windows.Forms.Label()
                Me.VaultsComboBox = New System.Windows.Forms.ComboBox()
                Me.BrowseButton = New System.Windows.Forms.Button()
                Me.ListBox = New System.Windows.Forms.ListBox()
                Me.GetInfo = New System.Windows.Forms.Button()
                Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog()
                Me.SuspendLayout()
                '
                'VaultsLabel
                '
                Me.VaultsLabel.AutoSize = True
                Me.VaultsLabel.Location = New System.Drawing.Point(13, 26)
                Me.VaultsLabel.Name = "VaultsLabel"
                Me.VaultsLabel.Size = New System.Drawing.Size(94, 13)
                Me.VaultsLabel.TabIndex = 0
                Me.VaultsLabel.Text = " Select vault view:"
                '
                'VaultsComboBox
                '
                Me.VaultsComboBox.FormattingEnabled = True
                Me.VaultsComboBox.Location = New System.Drawing.Point(16, 42)
                Me.VaultsComboBox.Name = "VaultsComboBox"
                Me.VaultsComboBox.Size = New System.Drawing.Size(121, 21)
                Me.VaultsComboBox.TabIndex = 1
                '
                'BrowseButton
                '
                Me.BrowseButton.Location = New System.Drawing.Point(16, 85)
                Me.BrowseButton.Name = "BrowseButton"
                Me.BrowseButton.Size = New System.Drawing.Size(98, 23)
                Me.BrowseButton.TabIndex = 3
                Me.BrowseButton.Text = "Browse..."
                Me.BrowseButton.UseVisualStyleBackColor = True
                '
                'ListBox
                '
                Me.ListBox.FormattingEnabled = True
                Me.ListBox.HorizontalScrollbar = True
                Me.ListBox.Location = New System.Drawing.Point(16, 114)
                Me.ListBox.Name = "ListBox"
                Me.ListBox.Size = New System.Drawing.Size(259, 43)
                Me.ListBox.TabIndex = 4
                '
                'GetInfo
                '
                Me.GetInfo.Location = New System.Drawing.Point(84, 178)
                Me.GetInfo.Name = "GetInfo"
                Me.GetInfo.Size = New System.Drawing.Size(98, 23)
                Me.GetInfo.TabIndex = 5
                Me.GetInfo.Text = "Get information"
                Me.GetInfo.UseVisualStyleBackColor = True
                '
                'OpenFileDialog
                '
                Me.OpenFileDialog.Title = "Open"
                '
                'Form1
                '
                Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
                Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
                Me.ClientSize = New System.Drawing.Size(317, 215)
                Me.Controls.Add(Me.GetInfo)
                Me.Controls.Add(Me.ListBox)
                Me.Controls.Add(Me.BrowseButton)
                Me.Controls.Add(Me.VaultsComboBox)
                Me.Controls.Add(Me.VaultsLabel)
                Me.Name = "Form1"
                Me.Text = "Get file information"
                Me.ResumeLayout(False)
                Me.PerformLayout()
        
            End Sub
        
        #End Region
        
            Friend WithEvents VaultsLabel As System.Windows.Forms.Label
            Friend WithEvents VaultsComboBox As System.Windows.Forms.ComboBox
            Friend WithEvents BrowseButton As System.Windows.Forms.Button
            Friend WithEvents ListBox As System.Windows.Forms.ListBox
            Friend WithEvents GetInfo As System.Windows.Forms.Button
            Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog
        End Class
        Like • Show 2 Likes2
        Actions
        Pichaiyan Prabaharan @ Mario Zahren on Dec 6, 2018 8:47 PM
        Mark Correct
        Correct Answer
        Hi,
        Thanks for your reply.
        since i'm not using any forms i don't know how to get the file that's only my problem.
        
        Dim aFile As IEdmFile9
                    aFile = vault2.GetFileFromPath(ListBox.Items(0).ToString())
        
        How to get file from card?
        Thanks
        
        Like • Show 1 Like1
        Actions
        Mario Zahren @ Pichaiyan Prabaharan on Dec 7, 2018 2:06 AM
        Mark Correct
        Correct Answer
        Please take a look at this topic:
        EdmCmdData
        
        Here you will find all the information you need.
        Hope it helps
        Mario
        Like • Show 1 Like1
        Actions

PDM Data card Button addin

Outcomes

Related Content

Recommended Content