SolidWorks EPDM二次开发入门（四）

今天我做了个，更新文件变量的例子，搞了好一会才弄出来。把代码贴下。

在未改变变量之前的文件

 

在VS里面创建一个类库类库中添加以下方法

 ''' <summary>

        ''' 获取文件

        ''' </summary>

        ''' <param name="files">添加后的所有文件</param>

        ''' <param name="SetName">BOM条目名</param>

        ''' <remarks></remarks>

        Public Sub GetFiles(ByRef files() As EdmListFile, ByVal SetName As String)

            lst.CreateListEx(SetName, 0, cols)  '调用IEdmBatchListing2中的方法，添加文件

            lst.GetFiles(files)  '获取files中的所有文件

        End Sub

        ''' <summary>

        ''' 更新文件信息

        ''' </summary>

        ''' <param name="vName">变量名称</param>

        ''' <param name="value">变量值</param>

        ''' <remarks></remarks>

        Public Sub BatchUpdateFileVariable(ByVal vName As String, ByVal value As Object)

            Dim varMgr As IEdmVariableMgr5    '定义变量的对象

            varMgr = vault

            Dim var As IEdmVariable5

            var = varMgr.GetVariable(vName)   '获取vName所对应的变量

            Dim Upate As IEdmBatchUpdate2    '定义update对象

            Upate = vault.CreateUtility(EdmUtility.EdmUtil_BatchUpdate)

            Dim files() As EdmListFile = Nothing

            GetFiles(files, "")             '获取文件

            For Each efile As EdmListFile In files

                Dim file As IEdmFile8 = vault.GetObject(EdmObjectType.EdmObject_File, efile.mlFileID)



                If Not file.IsLocked Then

                    file.LockFile(efile.mlFolderID, 0)

                End If

                Upate.SetVar(efile.mlFileID, var.ID, value, "", 1)   '把添加需要更新的内容



            Next

            Dim Errors() As EdmBatchError2 = Nothing

            Dim errcount As Integer = Upate.CommitUpdate(Errors)    '提交并捕捉错误



            If errcount > 0 Then

                MsgBox("有错误")

            Else

                MsgBox("更新成功")

            End If



        End Sub

然后再创建个窗体，更改变量之前要先读取文件（在SolidWorks EPDM二次开发入门（一）中写到了）添加 一个按钮

按钮代码如下

Try

            Finfo.BatchUpdateFileVariable("项目序号", "A395")  '调用后台更新函数

            Finfo.BatchUpdateFileVariable("项目名称", "SolidWorks")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

下面是更改后的文件变量