solidWorks EPDM 二次开发入门篇 （二）

然后把类库编译成dll 再创建一个窗体 在窗体中添加已编译好的dll

'窗体的主要代码
Imports EdmLib
Imports YTZhaoyang.Trainning.FilesInfo      '自己写的类库文件

Public Class frmTestBatchList
Dim vault As IEdmVault7
Dim Finfo As FilesInfo.FilesInfo
Public Sub New()

' 此调用是 Windows 窗体设计器所必需的。
InitializeComponent()

' 在 InitializeComponent() 调用之后添加任何初始化。
vault = New EdmVault5
End Sub

Private Sub btn_InsertFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_InsertFiles.Click
Finfo = New FilesInfo.FilesInfo(filePath.Text, vault)  '创建FilesInfo对象，并读取文件数据
End Sub

Private Sub frmTestBatchList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
vault.LoginAuto("Trainning", Me.Handle.ToInt32)    '登陆PDM

Dim userMgr As IEdmUserMgr5        '定义UserMgr5类型对象
userMgr = vault
Dim pos As IEdmPos5
pos = userMgr.GetFirstUserPosition
Dim user As IEdmUser5
While Not pos.IsNull
user = userMgr.GetNextUser(pos)
ComboBox1.Items.Add(user.Name)
End While
End Sub

Private Sub btn_GetInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GetInfo.Click
Dim lst As List(Of Dictionary(Of String, String)) = Finfo.GetFilesInfo("零件信息")
For Each dic As Dictionary(Of String, String) In lst
Dim item As ListViewItem = ListView1.Items.Add(dic("项目类型"))
For Each key As String In dic.Keys
item.SubItems.Add(dic(key))
Next
Next
End Sub
End Class

运行结果如图

首先点击读取文件，然后点击获取信息