. Net插件导致高内存消耗/泄漏（不在托管堆中）

     _
    Public Shared Sub AutoMemoryLeakTestCommand()
        If Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument IsNot Nothing Then
            Dim blockObjectIDs As New List(Of ObjectId)
            Dim directoryPath As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location)
            For x As Integer = 1 To 10
                For Each filePath In Directory.GetFiles(directoryPath)
                    If Path.GetExtension(filePath).Equals(".dwg", StringComparison.OrdinalIgnoreCase) Then
                        DynamicBlockHelper.AddDynBlockToDrawingFromFile(filePath, Path.GetFileNameWithoutExtension(filePath))
                        blockObjectIDs.Add(DynamicBlockHelper.InsertBlock(HostApplicationServices.WorkingDatabase, BlockTableRecord.ModelSpace, New Point3d(0, 0, 0), Path.GetFileNameWithoutExtension(filePath), 1, 1, 1, "NONE"))
                    End If
                Next
            Next
            For x As Integer = 1 To 3
                For Each objID In blockObjectIDs
                    Dim blockProperties = DynamicBlockHelper.GetBlockProperties(objID)
                    For Each blockProp In blockProperties
                        Dim propertyAttribs() As String = blockProp.Key.Split("~")
                        Dim propertyName As String = propertyAttribs(0)
                        Dim propertyType As String = propertyAttribs(2)
                        If propertyType = 5 AndAlso blockProp.Value.Count > 1 Then
                            For Each propValue As String In blockProp.Value
                                DynamicBlockHelper.SetParameter(objID, propertyName, propValue)
                            Next
                        End If
                    Next
                Next
            Next
        End If
    End Sub

    Public Shared Function SetParameter(ByVal BlockID As ObjectId, ByVal ParameterName As String, ByVal Value As String) As Boolean
        Dim doc As Document = ApplicationServices.Application.DocumentManager.GetDocument(BlockID.Database)
        Using lock As DocumentLock = doc.LockDocument()
            Using myTrans As Transaction = BlockID.Database.TransactionManager.StartOpenCloseTransaction()
                Try
                    Using myBRef As BlockReference = myTrans.GetObject(BlockID, OpenMode.ForWrite)
                        For Each myDynamProp As DynamicBlockReferenceProperty In _
                           myBRef.DynamicBlockReferencePropertyCollection
                            If myDynamProp.PropertyName.Equals( _
                               ParameterName, StringComparison.OrdinalIgnoreCase) = True Then
                                myDynamProp.Value = Value
                                myTrans.Commit()
                                Return True
                            End If
                        Next
                    End Using
                Catch ex As System.Exception
                    myTrans.Abort()
                    Try
                        EventLog.WriteEntry("MemLeakTest", ex.GetType().Name + ": " + ex.Message + Environment.NewLine + ex.StackTrace, EventLogEntryType.Error)
                    Catch eex As System.Exception
                    End Try
                End Try
                Return False
            End Using
        End Using
    End Function