перемещение блоков в автокаде используя excel vba

[Kefirrr]

Вновь обращаюсь к ВАМ за помощью. Пытаюсь немножко автоматизировать процесс построения чертежей используя excel.

Есть .dwg-файл , где располагаются несколько блоков. Хочу один блок (со всеми атрибутами) переместить на новое место. Как мне это сделать?

Конечно, я знаю команду move(откуда, куда). Но не получается переместить блок. Нужно как-то найти определенный блок (скорее всего по elem.handle) и указать нужную точку.

На данный момент у меня получается просто вставить блок, подобный какому-нибудь, в определенное место, НО без атрибутов.
Пожалуйста, подскажите

[doober]

Kefirrr, на ошибках не учимся.

[Kefirrr]

закинула версию 2004 autocad-а

[doober]

Всё тот же принцип поиска блока.

Const acSelectionSetCrossing As Integer = 1
Sub zamena()
    Set ACADApp = GetObject(, "AutoCAD.Application")
    Set ADOC = ACADApp.ActiveDocument
    Dim pt1(0 To 2) As Double, X As Double, Y As Double
    Dim pt2(0 To 2) As Double
    Dim MovePoint(2) As Double

    MovePoint(0) = 1000
    MovePoint(1) = 1000

    X = 1792.891
    Y = 1503.5127
    pt1(0) = X - 2
    pt2(0) = X + 2
    pt1(1) = Y - 2
    pt2(1) = Y + 2
    Set objSelCol = ADOC.SelectionSets
    For Each objSelSet In objSelCol
        If objSelSet.Name = "a_doober" Then
            objSelSet.Delete
            Exit For
        End If
    Next
    Set objSelSet = objSelCol.Add("a_doober")

    objSelSet.Select acSelectionSetCrossing, pt1, pt2

    For Each entry In objSelSet

        ObjectName = entry.ObjectName
        If ObjectName = "AcDbBlockReference" Then

            entry.InsertionPoint = MovePoint

            entry.Update
        End If
    Next entry

    objSelSet.Delete
    ADOC.Close (True)
    Set ADOC = Nothing
    ACADApp.Quit
    Set ACADApp = Nothing
End Sub

Справка в помощь.

[Kefirrr]

Все работает, спасибо.
Только единственное, что я не могу понять, почему используется команда insertblock? а блок перемещается. Из-за того, что вставляется именно определенный блок?
Туплю страшно, но очень хочется понять, если не сложно, можете последние строчки объяснить

[doober]

Нужно как-то найти определенный блок (скорее всего по elem.handle) и указать нужную точку.

Это ваше основное заблуждение.
В базе данных все примитивы и объекты хранятся с ключом ID.
Объект же можно найти и по координатам,что я и делал.
Есть блок,все его свойства хранятся в объекте типа AcDbBlockReference.
InsertionPoint-это координаты точки расположения блока на чертеже.
Это свойство блока.Меняя координаты точки положения-мы меняем положение блока на чертеже.
Команды здесть нигде не используются.
Если вам надо,я могу привести здесь пример использования хендла объекта и команды автокада

[Kefirrr]

Doober, спасибо, что разъяснили в чем я заблуждалась.
Если не сложно, можете привести какие-нибудь примеры с Handle, чтобы иметь небольшое представление

[doober]

Поиск на листах Автокада внедренных листов Excel,открытие их по очереди.

[Kefirrr]

Doober, простите, что вновь к Вам обращаюсь, надеюсь вы подскажите в чем ошибка.
у меня есть файл с несколькими блоками, эти блоки мне нужно расположить определенным образом. я для каждого блока прописываю нужную координату, а затем(пользуясь кодом, который вы подсказали) хочу переместить на свое место. Все работает, но почему-то некоторые блоки наслаиваются на другие блоки (хотя их координаты разнятся).
Я решила сделать промежуточное перемещение, чтобы проанализировать какие блоки не туда перемещаются,но и при промежуточном такая же фигня получается.

Если не сложно- посмотрите плиз. У меня есть предположение, что дело в самих блоках, но что именно с ними, не знаю

[doober]

У вас ошибка есть,нижние блоки остаются на местах.
Подкрасил повторы красным.
С вашего разрешения удалил лишние листы и модули с кодом.
Применил свой подход.
Я долго не мог понять,что должно в итоге получиться.
В результате отсортировал блоки по индексу.
И немного уменьшил количество сторок кода
Вы такой результат ожидали?