Как освободить память после пересчёта Clash

Здравствуйте! В процессе работы возникла следующая задача: в сборке имеется деталь, содержащая замкнутую поверхность; в эту сборку вставляется деталь параллелепипеда (на рисунке ниже схематично изображено сечение). По циклу параллелепипед перемещается в плоскости XY вдоль направляющей линии с малым шагом delta = 1-10 мм. После каждого перемещения просчитывается пересечение параллелепипеда с поверхностью с помощью метода Compute() объекта Clash (часть кода приведена ниже). Проблема состоит в том, что таких перемещений и вызовов Clash.Compute() десятки-сотни тысяч. В цикле новые объекты не создаются, только перемещается параллелепипед и вызывается метод Clash.Compute(), но после пересчёта Clash.Compute() постоянно увеличивается объём оперативной памяти, выделяемый процессом CATIA.exe, достигая нескольких гигабайт или CATIA вовсе "вылетает". Каким образом можно освобождать память после выполнения каждой итерации пересчёта Clash.Compute(), без закрытия докумета сборки?
- Код: Выделить всё
Dim ProdClashes As SPATypeLib.Clashes
Dim ProdClash As SPATypeLib.Clash
Dim cGroups As NavigatorTypeLib.Groups
Dim group1 As NavigatorTypeLib.Group
Dim group2 As NavigatorTypeLib.Group
Dim i As Long
Dim n as Long
Dim QPos(11)
' .....
' заполнение QPos(11) начальными значениями
' .....
n = 1
Set ProdClashes = Prod.GetTechnologicalObject("Clashes")
Set ProdClash = ProdClashes.Add
ProdClash.ComputationType = catClashComputationTypeBetweenTwo
ProdClash.InterferenceType = catClashInterferenceTypeContact
Set cGroups = Prod.GetTechnologicalObject("Groups")
Set group1 = cGroups.Add
Set group2 = cGroups.Add
group1.AddExplicit SurfaceProd ' поверхность
ProdClash.FirstGroup = group1
RootProducts.AddComponentsFromFiles QuadFile, "All"
Set QuadProd = RootProducts.Item(n) ' параллелепипед
group2.AddExplicit QuadProd
ProdClash.SecondGroup = group2
For i = 1 To 10000
QuadProd.Position.SetComponents QPos
ProdClash.Compute ' после пересчёта CATIA выделяет оперативную память
' .....
' проверяются условия, изменяется координата QPos
' новые объекты в цикле не создаются
' .....
Next i