Message 1 of 7
increase in process memory....

Not applicable
05-25-2008
06:17 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
hi..
i created a sub routine to increase a part's length repetitively.. but when i update it.. my process memory is increasing around 0.2Mb to 0.3 Mb for each repetition..
how to overcome this trouble.. coz i have to run this routine for more than 3000 times.. and is eating my RAM memory
i am pasting some part of the code here
--------------------------------------------------------------
Dim j As Double
Dim hoist As ComponentOccurrence
For Each hoist In hookocc.SubOccurrences
If hoist.Name = "hoist:1" Then
Dim hoistdef As PartComponentDefinition
Set hoistdef = hoist.Definition
Dim hoistlength As Parameter
Set hoistlength = hoistdef.Parameters.Item("hoistlen")
j = hoistlength.Value / 100 'm
hoistlength.Value = (j + 0.5) * 100 'm
Exit For
End If
Next
asmdoc.Update
--------------------------------------------------------------
i created a sub routine to increase a part's length repetitively.. but when i update it.. my process memory is increasing around 0.2Mb to 0.3 Mb for each repetition..
how to overcome this trouble.. coz i have to run this routine for more than 3000 times.. and is eating my RAM memory
i am pasting some part of the code here
--------------------------------------------------------------
Dim j As Double
Dim hoist As ComponentOccurrence
For Each hoist In hookocc.SubOccurrences
If hoist.Name = "hoist:1" Then
Dim hoistdef As PartComponentDefinition
Set hoistdef = hoist.Definition
Dim hoistlength As Parameter
Set hoistlength = hoistdef.Parameters.Item("hoistlen")
j = hoistlength.Value / 100 'm
hoistlength.Value = (j + 0.5) * 100 'm
Exit For
End If
Next
asmdoc.Update
--------------------------------------------------------------