[Mikha]

Код:

[Выделить все]

Private Sub testInsBlock()
Dim BlockRef As AcadBlockReference
Dim InsPt(0 To 2) As Double
Dim BName As String
Dim i As Long: Dim N As Long

'Число вставляемых блоков
N = 10000
'Имя вставляемого блока; предварительно блок нужно загрузить в чертеж
BName = "m_point_03"
For i = 1 To N
    Set BlockRef = ThisDrawing.ModelSpace.InsertBlock(InsPt, BName, 1, 1, 1, 0)
    DoEvents
Next i
Debug.Print "Complete"

End Sub

Данный код вставляет в чертеж множество блоков. Во время выполнения кода постоянно увеличивается загрузка оперативной памяти (смотрел по диспетчеру задач). По окончании работы процедуры память не освобождается. А освобождается она только после закрытия AutoCAD. Расход памяти напрямую зависит от количества вставляемых блоков и от самих блоков. Так, например, при вставке 10000 блоков (см. вложение) программа безвозвратно расходует порядка 100 МБ оперативной памяти.
В чем проблема и как ее можно избежать?

P.S. AutoCAD 2006; WinXP

[Александр Ривилис]

Избежать никак.

[Sleekka]

Насколько я понимаю, что лисп что ВБА декларативные языки высокого уровня, и с память освобождать не получится, хотя в лиспе есть какие-то функции но я с ними пока не дружу.

[Александр Ривилис]

Дело скорее не в языках, а в менеджере памяти AutoCAD.

[Mikha]

Избежать никак.

Звучит как приговор
Проблема заключается во внутренней реализации метода ThisDrawing.ModelSpace.InsertBlock
причем не важно с помощью чего он вызван (кроме VBA написал аналогичную процедуру на Delphi – результат тот же).
Следующие способы вставки блоков также вызывают утечку памяти:
1. Операция копирования
Set BlockRefCopy = BlockRef.Copy
2. Командная строка
ThisDrawing.SendCommand "-insert" + vbCr + …

В сообщении №1 был не совсем прав. Память освобождается не только после закрытия AutoCAD, но и после закрытия того рисунка, в который были вставлены блоки.
Это можно использовать следующим образом:

Код:

[Выделить все]

Private Sub testInsBlockС()
Dim BlockRef As AcadBlockReference 'Ссылка на блок
Dim InsPt(0 To 2) As Double 'Точка вставки блока
Dim BName As String 'Имя вставляемого блока;блок должет быть загружен в чертеж
Dim i As Long: Dim j As Long 'Счетчики
Dim TotalCount As Long 'Число вставляемых блоков
Dim CloseCount As Long 'Число блоков, после вставки которого происходит закрытие-открытие файла чертежа
Dim FileName As String 'Полное имя файла чертежа

BName = "m_point_03"
TotalCount = 10001
CloseCount = 1000
FileName = ThisDrawing.FullName

If FileName = "" Then
    MsgBox "Сначала нужно сохранить чертеж"
    Exit Sub
End If
For i = 1 To TotalCount
    Set BlockRef = ThisDrawing.ModelSpace.InsertBlock(InsPt, BName, 1, 1, 1, 0)
    j = j + 1
    If (j = CloseCount) Or (i = TotalCount) Then
        ThisDrawing.Close True
        Application.Documents.Open FileName
        j = 0
    End If
    DoEvents
Next i
MsgBox "Complete"
End Sub

Но у данного способа есть несколько существенных недостатков:
1. С увеличением количества вставленных блоков увеличивается время открытия файла
2. В ходе вставки блоков чертеж сохраняется, отменить изменения невозможно

Возможно, у кого-то есть другие идеи, с удовольствием их выслушаю.

[Sleekka]

Идея - держать блоки в одном файле - вставлять весь файл как блок, а потом вставлять нужные блоки из active документ.

[Makswell]

А лисповая функция (gc) здесь не поможет?

[Александр Ривилис]

Сообщение от Makswell А лисповая функция (gc) здесь не поможет?

Ну а как она в принципе могла бы помочь? Она чистит неосвобожденную память lisp-переменных и только.

[AlexV]

Интересно, а какой практический смысл в этом коде? Зачем в одну точку вставлять 10000 одинаковых блоков?

[Mikha]

Сообщение от AlexV Интересно, а какой практический смысл в этом коде? Зачем в одну точку вставлять 10000 одинаковых блоков?

Вставка в чертеж блоков (высотная отметка) на основании текстового файла. Для простоты примера все блоки вставляются в одну точку, в реальной программе у каждого блока свои координаты.

[AlexV]

Как вариант, вставлять по 1000 (к примеру) блоков в файл, сохранять под именем Name1.dwg, следующие 1000 в Name2.dwg ну и так далее. А когда все повставляются, повтыкать их все внешней ссылкой в итоговый файл
(Что-то типа

Set Bl_ref = ThisDrawing.ModelSpace.AttachExternalReference(Path & Name & i, RName, InsPoint, 1, 1, 1, 0, False)

, а затем

ThisDrawing.Blocks.Item(RName.name).Bind True Bl_ref.Delete ThisDrawing.Blocks.Item("RName").Delete

)
(в Path - путь к папке с сохраненными Name_.dwg)
Не уверен, конечно, что это процесс убыстрит, но чем черт не шутит..

[Mikha]

>>Sleekka #6
>>AlexV #11
За идеи спасибо, если в голову больше ничего не придет, то реализую их в коде, может и получится что-нибудь толковое. Но все-таки хотелось бы найти более простое и надежное решение.

Еще один "безумный" вариант - запись вставляемых блоков в виде файла .dxf (файл текстовый, проблем с утечкой памяти не будет), а уже затем вставлять его в нужный .dwg файл

[Александр Ривилис]

Сообщение от Mikha Еще один "безумный" вариант - запись вставляемых блоков в виде файла .dxf (файл текстовый, проблем с утечкой памяти не будет), а уже затем вставлять его в нужный .dwg файл

Совершенно не уверен, что из-за того что dxf-файл текстовый не будет проблем с утечкой. Скорее уверен в обратном.

[Mikha]

>>Александр Ривилис #13
Я имел ввиду программное создание текстового файла в формате .dxf без использования AutoCAD. В этом случае проблем с памятью не будет.
Проблемы будут со вставкой этого файла в существующий файл .dwg