[99xt1]

Здравствуйте.

Есть чертеж в котором вставлены обычные (не динамические и без атрибутов) блоки. Каждый блок вставлен всего один раз. Их список можно получить при помощи извлечения данных в виде таблицы (1й столбец - Название блока, 2й столбец - название слоя).

Хочу изменять в Excel название слоя, затем подгружать в автокад. И чтобы блоки в соответствии с таблицей Excel изменяли свои слои.

Возможно такое? Может есть уже решение (поиском не нашел)?

[Сергей812]

1. Возможно
2. Может, именно такого решения нет. Есть примеры работы с блоками, со слоями. Я бы не заморачивался, и написал бы подключение из экселя к акаду - меньше телодвижений, имхо.
3. Для ускорения работы приложения можно не извлекать данные встроенными средствами, а опять же программно из экселя - причем сделать два скрытых столбца в таблице: дублирующий исходные имена слоев (иначе как потом будете искать слои для переименования - придется перебирать все блоки опять) и содержащий хэндлы блоков (для ускорения доступа к чертежу).

p.s.
1. Из встроенных средств есть транслятор слоев
2. Возможно, этот вопрос уместнее смотрелся бы в ветке программирования

[max4airkin]

вот попробуйте по такому принципу, как в приложенных файлах
1. извлечь в эксель имена блоков и их координаты, слои даже можно и не извлекать
2. в новой колонке задать требуемые слои каждому блоку
3. записать с помощью формулы СЦЕПИТЬ скрипт для автокада, скопировать его в комстроку.

в скрипте пробел=нажатию Enter, где-то два или более пробела подряд -экспериментируйте
беда в том, что при вводе названия слоя пробел атокадом воспринимается именно как пробел, поэтому пришлось разнести строки и копировать надо именно несколько ячеек в столбце с пропущенными строками
беда2 в том, что если через точку вставки блока проходит какая-то другая геометрия или не проходит геометрия блока (т.е. базовая точка блока "на пустом месте"), то результаты будут совсем не те, что ожидались.

[99xt1]

Сообщение от max4airkin вот попробуйте по такому принципу, как в приложенных файлах 1. извлечь в эксель имена блоков и их координаты, слои даже можно и не извлекать 2. в новой колонке задать требуемые слои каждому блоку 3. записать с помощью формулы СЦЕПИТЬ скрипт для автокада, скопировать его в комстроку. в скрипте пробел=нажатию Enter, где-то два или более пробела подряд -экспериментируйте беда в том, что при вводе названия слоя пробел атокадом воспринимается именно как пробел, поэтому пришлось разнести строки и копировать надо именно несколько ячеек в столбце с пропущенными строками беда2 в том, что если через точку вставки блока проходит какая-то другая геометрия или не проходит геометрия блока (т.е. базовая точка блока "на пустом месте"), то результаты будут совсем не те, что ожидались.

Логику вашего решения понял. Спасибо. Но здесь все равно приходится каждую строчку вносить.

[max4airkin]

Сообщение от 99xt1 Но здесь все равно приходится каждую строчку вносить.

Почему? Я пачкой копировал для всех трех блоков и вставлял. Только в конце пришлось еще нажать Enter.

[99xt1]

На работе не получалось. Дома стоит английский автокад. Завтра на работе попробую

[99xt1]

Попробовал. Очень много ошибок выскакивает. Видимо, потому что в названиях слоев есть пробелы, скобки, точки и т.д.

[v.psk]

Сообщение от 99xt1 Возможно такое? Может есть уже решение (поиском не нашел)?

такое возможно, но не в той ветке форума. /посредством программирования на вба.
Т.е. в автокаде можно загрузить данные из листа экселя и поочередно опросить блоки, с присвоением им нужных слоев.
Мб организовать работу по другому, но с использованием штатных средств?

[ButcheR]

Если это делается для выборочного отключения каких-либо блоков, то я бы сделал автоматически настроенное выключение в диспетчере конфигурации слоёв - один раз настроил список и всё

[99xt1]

Сообщение от v.psk Мб организовать работу по другому, но с использованием штатных средств?

У меня есть таблица Эксель, в которой проставлены позиции оборудования и сроки когда оно будет закупаться, придет на склад, предположительно будет смонтированно и т.п. Из этой таблицы я делаюразные отчеты в табличной форме. Но также начальство захотело видеть всю ситуацию на плане установки в разных цветах. Отсканированный план вставил в виде подложки в Автокад. На нем сделал блоки оборудования. И теперь надо кидать их по разным слоям.
Пока не вижу какие другие штатные средства использовать.

[v.psk]

Сообщение от 99xt1 Но также начальство захотело видеть всю ситуацию на плане установки в разных цветах. Отсканированный план вставил в виде подложки в Автокад. На нем сделал блоки оборудования. И теперь надо кидать их по разным слоям.

тогда .... все-равно макросы.
ятп рабочая среда - эксель. А автокад нужен для визуализации.
Если дополнить данные столбцов координатами вставки в чертеж, то можно создавать файл (изменять) каждый раз.

[Владимир_М]

удалил... пока писал свое тут уже много информации прошло

[99xt1]

Да, Именно

Сообщение от v.psk ятп рабочая среда - эксель. А автокад нужен для визуализации.

Файл с координатами вставки блоков и именем нового слоя есть. Как сделать

Сообщение от v.psk можно создавать файл (изменять) каждый раз.

?

[ButcheR]

Сообщение от Владимир_М удалил... пока писал свое тут уже много информации прошло

Можно поиском выбирать ненужные блоки и через изоляцию объектов показывать визуализацию не заморачиваясь со слоями вообще

[99xt1]

Сообщение от ButcheR Можно поиском выбирать ненужные блоки и через изоляцию объектов показывать визуализацию не заморачиваясь со слоями вообще

Блоки нужны все. Просто они получаются раскрашены в разные цвета (по цвету слоя).

[v.psk]

Сообщение от 99xt1 Как сделать

на основе кода Doober'a ятд. /см пост №8 http://www.programmersforum.ru/showthread.php?t=223815 /
Пробуйте. Вам охотнее помогут если попросите переместить тему в соотв. ветку.

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

----- добавлено через ~2 мин. -----
...или одинаковые блоки делать

Сообщение от 99xt1 Так вроде тема в ветке программирования? Или попросить переместить в VBA? Попробую. Код Doober (измененный) надо вставлять в Автокаде, как я понимаю?

Да. Наверное в ВБА. Там еще много нюансов, но работать удобнее таким образом ятд.
Нужно загружать макрос в автокаде.

[Владимир_М]

Сообщение от ButcheR Можно поиском выбирать ненужные блоки и через изоляцию объектов показывать визуализацию не заморачиваясь со слоями вообще

Сообщение от 99xt1 Но также начальство захотело видеть всю ситуацию на плане установки в разных цветах.

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

[99xt1]

Сообщение от Владимир_М Тем более, по последним данным разведки даже и не в слоях дело, а в цветах...

Слои чем хороши, что при импорте в pdf встроенным принтером они сохраняются и в файле pdf можно отключать видимость слоев. Поэтому нужны слои.

----- добавлено через ~4 мин. -----

Сообщение от v.psk на основе кода Doober'a ятд. /см пост №8 http://www.programmersforum.ru/showthread.php?t=223815 / Пробуйте. Вам охотнее помогут если попросите переместить тему в соотв. ветку. ----- добавлено через 49 сек. ----- .. правда определения блоков уже должны быть... ну или каждый раз рисовать ----- добавлено через ~2 мин. ----- ...или одинаковые блоки делать

Так вроде тема в ветке программирования? Или попросить переместить в VBA?
Попробую. Код Doober (измененный) надо вставлять в Автокаде, как я понимаю?

[Владимир_М]

Сообщение от 99xt1 Слои чем хороши, что при импорте в pdf встроенным принтером они сохраняются и в файле pdf можно отключать видимость слоев. Поэтому нужны слои.

Это понятно. Просто я-то отвечал в #12 именно по поводу изменения слоя... Как при этом еще и цвет объектов внутри блока поменять, уже другой вопрос...

[99xt1]

В общем путем поисков и "работы мысли" родился следующий код:

Код:

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

Public Graphics As AcadApplication
 
Public Sub Montag_Sklad_Zakup()
 
    Dim strDrawing As String
    Dim i  As Integer
    Dim BlockName  As String
    Dim NewLayerName  As String
    Dim blk As AcadBlockReference
     
    On Error Resume Next
    Set Graphics = GetObject(, "AutoCAD.Application")
    If Err.Description > vbNullString Then
        Err.Clear
        Set Graphics = CreateObject("AutoCAD.Application")
    End If

    Graphics.Visible = True
    Graphics.WindowState = acMax
    strDrawing = "z:\путь к файлу.dwg"
    Graphics.Documents.Open (strDrawing)
 
    On Error GoTo 0
    
On Error Resume Next
    Err.Clear
    
    i = 2
    Do While Cells(i, 1) <> Empty
        BlockName = Cells(i, 1).Value

        NewLayerName = Cells(i, 7).Value
        For Each blk In AutoCAD.ActiveDocument.ModelSpace
        If blk.Name = BlockName Then
        blk.Layer = NewLayerName
        End If
        Next
        i = i + 1
    Loop
End Sub

Работает. Может кто подскажет какие-нибудь оптимизационные "секреты" (чтобы работал быстрее)?

[Boxa]

99xt1, оптимизация... Тут не оптимизировать нужно, тут весь алгоритм менять нужно, он ужасен O(n^2).
При обработке каждой ячейки, Ваш алгоритм, перебирает ВСЕ объекты чертежа, КАЖДЫЙ РАЗ!!! Перебирает даже обработанные ранее объекты!
Кстати, кто Вам сказал, что все объекты в пространстве модели именно блоки?

[99xt1]

Этот чертеж делал я сам. В пространстве модели есть 2 растра и остальные только блоки.

Это мой первый код. Так что если хотите помочь, то прошу помощи как сделать лучше.

[trir]

Зачем тут Excel?

[99xt1]

Сообщение от trir Зачем тут Excel?

Составляю отчет в виде таблицы Excel где указываю сроки закупки оборудования.
Начальство хочет на основании этого отчета, чтобы на плане это оборудование раскашивалось определенными цветами в зависимости от срока поставки.
Каждый период - свой слой с определенным цветом.
Каждая единица оборудования - один блок. Вот и беру данные из Excel о сроке и перемещаю блоки на определенные слои.

[trir]

dotNET+XML

[99xt1]

Сообщение от trir dotNET+XML

Общую логику понял. Но я не программист. А инженер-технолог и свой "недокод" собирал неделю по разным кусочкам дома вечерами. А с вашим боюсь очень долго разбираться буду))

[Boxa]

Сообщение от 99xt1 Так что если хотите помочь, то прошу помощи как сделать лучше.

Я не очень хорошо помню VBA, но для начала самая простая оптимизация:

Пройтись по модели и собрать блоки в отдельную коллекцию (objectID + BlockName).
Потом проходясь по этой коллекции назначать слой и перемещая из нее уже обработанные блоки в коллекцию (objectID + BlockLayer).
Пройтись по новой коллекции и назначить слои.

Хотя если помнить, что самая затратная по времени операция, это чтение чертежа, то может имеет смысл поменять циклы местами, один раз проходится по объектам чертежа и много раз проходить по таблице значений...

[trir]

Нужен словарь, где key=BlockName; value=LayerName

[Boxa]

Сообщение от trir Нужен словарь, где key=BlockName; value=LayerName

само собой разумеется, нужно сгруппировать таблицу в екселе по этим двум полям...

[Сергей812]

Сообщение от 99xt1 If Err.Description > vbNullString Then

увидел и вздрогнул - чем вам код ошибки не угодил, зачем строки теребить?)

Затем: операция чтения из ячейки экселя - очень медленная. Одной строчкой считываете диапазон Range в переменную variant, и в этой переменной получаете двухмерный массив значений. И работаете дальше с этими значениями, а не с листом.

Следующее: кто за вас будет отключаться от акада в конце процедуры или при ошибке?

[99xt1]

Сообщение от Сергей812 увидел и вздрогнул - чем вам код ошибки не угодил, зачем строки теребить?) Затем: операция чтения из ячейки экселя - очень медленная. Одной строчкой считываете диапазон Range в переменную variant, и в этой переменной получаете двухмерный массив значений. И работаете дальше с этими значениями, а не с листом. Следующее: кто за вас будет отключаться от акада в конце процедуры или при ошибке?

Это я просто откуда-то кусок выдрал на подключение к автокаду.
Покажите как правильно, пожалуйста?

Пробовал два варианта подключения к Автокаду. Первый отсюда:

Код:

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

Sub main()
'***********************************
'*** Code From VisibleVisual.com ***
'***********************************
Dim ACAD As Object
Dim NewFile As Object
Dim MyAcadPath As String
Dim bReadOnly As Boolean
 
On Error Resume Next
ACAD = GetObject(, "ACAD.Application")
If (Err.Number <> 0) Then
   Err.Number = 0
    ACAD = CreateObject("autocad.Application")
   If (Err <> 0) Then
      MsgBox "Could Not Load AutoCAD!", vbExclamation, "Message"
      End
        End If
   End If
'If you want to see AutoCAD on screen
 'ACAD.Visible = True
MyAcadPath = "c:\Temp\Drawing2.dwg"
bReadOnly = True
NewFile = ACAD.Documents.Open(MyAcadPath, bReadOnly)
 
If (NewFile Is Nothing) Then
ErrorMessage:
    If NewFile = "False" Then End
    MsgBox ("Could not find the required spreadsheet that should be located at" & vbCr & MyAcadPath & vbCr & "Please rename or relocate the specified file as needed.")
   End
End If
 
 'Close AutoCAD Process
 'ACAD.Quit
 
ACAD = Nothing
NewFile = Nothing
 
End Sub

Очень долго работает. Несколько раз выскакивает окно типа "Excel ожидает пока другая программа что-то там с OLE". И в конце через две-три минуты "Невозможно открыть Автокад"

Второй отсюда, открывает файл очень быстро

Код:

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

Public Graphics As AcadApplication 
Public Sub OpnAcad() 
    Dim AngBracDwg As String 
    Set Graphics = GetObject(, "AutoCAD.Application") 
    If Err.Description > vbNullString Then 
        Err.Clear 
        Set Graphics = CreateObject("AutoCAD.Application") 
    End If 
    AngBracDwg = "c:\dwg\ba1.dwg" 
    Graphics.Documents.Open (AngBracDwg) 
End Sub

[Сергей812]

Сообщение от 99xt1 "ACAD.Application"

Сообщение от 99xt1 ("autocad.Application")

почему разные названия? Подключаетесь к одному объекту

а втором примере, если замените

Код:

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

If Err.Description > vbNullString Then

на

Код:

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

If (Err.Number <> 0) Then

- то скорость не особо измениться (просто всегда стараюсь при выборе операций между строками и числами использовать последние). Но главные тормоза в вашем коде - это в цикле две медленных операции: обращение к ячейкам листа экселя за значениями и обращение к акаду по COM-интерфейсу. Второе - неизбежно (хотя при большем количестве - десятки-сотни тысяч объектов в БД чертежа лучше другой алгоритм применить, как советовали выше). А вот ускорить обращение к ячейкам копированием Range в variant массив - это ускорение на порядок и выше. Ну и если подключились - то должны и отключиться, и освободить переменную Graphics.

[Inferi]

Попробуй подгрузить tmp.slp, команда test. Шапка таблицы должна начинаться в A1. Код без обработчика ошибок и проверок, написан на коленке.