Привет. есть код, который копирует все объекты одного слоя в другой
LrDst.StartEdit
Set Elem = LrSrc.Elements.FirstItem
Do While Elem.Key <> -1
OldKey = Elem.Key
ImKey = LrDst.AddElement(Elem)
Set Elem = LrSrc.Elements.NextItem
Loop
LrDst.StopEdit
Чтобы скопировать 30 000 контуров уходит 40 минут, при этом конечный файл (изначально пустой) разрастается до 200М ( исходный - 3.5М ). Что я делаю не так?
LrDst.StartEdit
Set Elem = LrSrc.Elements.FirstItem
Do While Elem.Key <> -1
OldKey = Elem.Key
ImKey = LrDst.AddElement(Elem)
Set Elem = LrSrc.Elements.NextItem
Loop
LrDst.StopEdit
Чтобы скопировать 30 000 контуров уходит 40 минут, при этом конечный файл (изначально пустой) разрастается до 200М ( исходный - 3.5М ). Что я делаю не так?