[stuff]

Всем привет.

Добавляю новый атрибут в выделенные блоки:

Код:

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

Sub SelectObjectsOnscreen1()
  
 Dim acEnt As AcadEntity
 Dim varAtts As Variant
 Dim intCnt As Integer
 Dim Msg As String
 Dim IsElectric As Boolean
 
 Dim newBlock As AcadBlock
 Dim newAtr As AcadAttribute
 
 Dim insertionPoint1(0 To 2) As Double
 insertionPoint1(0) = 5
 insertionPoint1(1) = 5
 insertionPoint1(2) = 0

 ' Создание нового набора
 Dim sset As AcadSelectionSet
 Set sset = ThisDrawing.SelectionSets.Add("SS23")
 
 On Error GoTo ErrorHandler
 
 ' Запрос пользователю выбрать объекты и добавление их в набор
 sset.SelectOnScreen
 
 ' Перебор выбранных объектов
 For Each acEnt In sset


   If TypeOf acEnt Is AcadBlockReference Then

      If acEnt.HasAttributes Then
      
         varAtts = acEnt.GetAttributes
      
         For intCnt = LBound(varAtts) To UBound(varAtts)
         
           If Trim(varAtts(intCnt).TagString) = "ЕЛ.ПОТУЖНІСТЬ,КВТ" And Trim(varAtts(intCnt).TextString) <> "" Then
              IsElectric = True
           End If
         
         Next intCnt

         'Если это электрический элемент, создаем в нем атрибут принадлежности к электрическому щиту
         If IsElectric = True Then
            Set newBlock = ThisDrawing.Blocks(acEnt.Name)
            Set newAtr = newBlock.AddAttribute(100, acAttributeModeInvisible, "принадлежности к электрическому щиту", insertionPoint1, "NameElectricalPanel", NameElectricalPanel)
            
            newAtr.Visible = True
            newAtr.Invisible = False
            
            newAtr.Update
            
            acEnt.Visible = True
            acEnt.Update
            
            
         End If
         
      End If
      
   End If
   
 Next acEnt
 
ErrorHandler:
 ' Удаление набора
 sset.Delete
 
 ' Если возникла ошибка, ее описание
 If Err.Number <> 0 Then
    Msg = "Error # " & str(Err.Number) & " was generated by " _
            & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
 End If
         
 
End Sub

Обновляю этим фрагментом кода:

Код:

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

newAtr.Visible = True
newAtr.Invisible = False
            
newAtr.Update
            
acEnt.Visible = True
acEnt.Update

После добавления, новый атрибут нельзя увидеть в списке всех атрибутов, через интерфейсное окно AutoCad.

Видимость нового атрибута в блоке можно установить только по средством AutoCad - Редактировать -> Объект -> Атрибуты -> Диспетчер атрибутов блоков... -> Обновить -> Ok



ВОПРОС: Как программно обновить блоки с новым атрибутом?

[Кулик Алексей aka kpblc]

Сообщение от stuff Как программно обновить блоки с новым атрибутом?

Самый простой вариант - в тихом режиме выполнить _.attsync.

[Сергей812]

Сообщение от Кулик Алексей aka kpblc в тихом режиме выполнить _.attsync.

только при этом учитывайте:

Прим.: Команда АТРОБНОВИТЬ удаляет любое, внесенное командами АТРЕД или АТРЕДАКТ изменение формата или свойства. Она также удаляет любые дополнительные данные, связанные с блоком, и может повлиять на динамические блоки или блоки, созданные в приложениях сторонних разработчиков.

[stuff]

Сообщение от Кулик Алексей aka kpblc Самый простой вариант - в тихом режиме выполнить _.attsync.

Спасибо.

Этот код решил проблему при обновлении одного блока:

Код:

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

ThisDrawing.SendCommand "(acet-attsync" & Chr(34) & acEnt.Name & Chr(34) & ") "

Но если прописать этот код в цил перебора блоков, то на втором блоке выдает ошибку:

Error # -2145386296 was generated by AutoCAD Недoпустимый контекст выпoлнения

Что может быть? Хотелось в цикле перебирать все изменённые блоки.

[Кулик Алексей aka kpblc]

Может, надо использовать не .Name, а .EffectiveName
А так - смотри:
_.attsync <Enter> _n <Enter> * <Enter>
Решит твою проблему?

----- добавлено через 38 сек. -----
Сергей812, так я и не говорю, что решение универсальное

----- добавлено через ~2 мин. -----
P.S. Вообще, учитывая, как в ACAD живут атрибуты, без танцев с бубнами их не синхронизировать. Андрей Бушман, если я правильно помню, в свое время пытался сделать аналог _.attsync на .NET, и потерпел фиаско.

[Сергей812]

Offtop:

Сообщение от stuff 'Если это электрический элемент, создаем в нем атрибут принадлежности к электрическому щиту If IsElectric = True Then

Это уже классика)

А как костыль к решению: вставить атрибут изначально и попробовать играться уже с видимостью вставки атрибута. Можно было бы хранить в расширенных данных вставки блока - но VBA вроде не позволяет создать PaletteSet (палитру) или "внедряться" в окно свойств. А без этого вменяемый интерфейс не сделаешь, имхо.

Сообщение от Кулик Алексей aka kpblc Андрей Бушман, если я правильно помню, в свое время пытался сделать аналог _.attsync на .NET, и потерпел фиаско.

хм?

[stuff]

Сообщение от Кулик Алексей aka kpblc Может, надо использовать не .Name, а .EffectiveName

C .EffectiveName на втором блоке при переборе выделенных блоков выдает туже самую ошибку...

Error # -2145386296 was generated by AutoCAD Недoпустимый контекст выпoлнения

Сообщение от Кулик Алексей aka kpblc _.attsync <Enter> _n <Enter> * <Enter>

Как эту команду на VBA написать?

Пробовал так:

Код:

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

ThisDrawing.SendCommand "_.attsync <Enter> " & acEnt.Name & " <Enter> * <Enter>"

Пишет неправильное ключевое слово...

[Сергей812]

Сообщение от stuff <Enter>

на это ругается, Алексей так пишет лишь для наглядности.

[Кулик Алексей aka kpblc]

Сергей812, где-то было обсуждение, что представленный код то ли некорректно срабатывал, то ли еще что-то. Точно не помню

[stuff]

Вообщем есть три рабочих команды для обновления блока:

Код:

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

ThisDrawing.SendCommand "(acet-attsync" & Chr(34) & acEnt.Name & Chr(34) & ") "
ThisDrawing.SendCommand "ATTSYNC" & vbCr & "ИМЯ" & vbCr & acEnt.Name & vbCr
ThisDrawing.SendCommand "_.attsync" & vbCr & "ИМЯ" & vbCr & acEnt.Name & vbCr

Они прекрасно обновляют один выделенный блок.

Но выдают ошибку, если их вставить в цикл перебора выделенных блоков...

Почему возникает ошибка на втором блоке в цикле перебора?

----- добавлено через ~32 мин. -----
Получается, что команда ATTSYNC не корректно работает, если выбрано несколько блоков...
Если выбран только один блок - то все Ok

[Кулик Алексей aka kpblc]

Я звездочку зачем поставил, как думаешь?

[stuff]

Проблема решилась, если использовать PostCommand:

Код:

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

ThisDrawing.PostCommand "(acet-attsync" & Chr(34) & acEnt.Name & Chr(34) & ") "

https://forums.autodesk.com/t5/visua...d/td-p/5854952

I have found a work around this problem. In stead of Using "ThisDrawing.SendCommand" with a parameter list, you can use "ThisDrawing.PostCommand" with the same parameter list. The command will then be processed asynchronously in stead of synchronously, but with the same parameter list it will behave the same way. I used this work around in a macro where I print multiple drawing views, using a loop.

[VVA]

Сообщение от Кулик Алексей aka kpblc _.attsync <Enter> _n <Enter> * <Enter>

Сообщение от Кулик Алексей aka kpblc Я звездочку зачем поставил, как думаешь?

stuff, Попробуй так

Код:

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

ThisDrawing.SendCommand "_.attsync" & vbCr & "_N" & vbCr & "*" & vbCr

или даже так

Код:

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

ThisDrawing.SendCommand "_.attsync\n_N\n*\n"

[stuff]

PostCommand решает все проблемы

[Сергей812]

Сообщение от stuff PostCommand решает все проблемы

и добавляет новые - так как работает асинхронно в момент простоя акада)

[Barmaley Bubusikin]

Сообщение от Сергей812 так как работает асинхронно в момент простоя акада)

1. Правильно ли я понял что с 2015 PostCommand выполняется синхронно, а SendCommand - асинхронно?
2. При выполнении кода из топика появляется ошибка: no function definition: ACET-ATTSYNC. Ошибка не появляется, если перед этим вручную выполнить хотя бы один раз АТРОБНОВИТЬ. Это можно как-то обойти?

[Barmaley Bubusikin]

Сообщение от Barmaley Bubusikin При выполнении кода из топика появляется ошибка: no function definition: ACET-ATTSYNC. Ошибка не появляется, если перед этим вручную выполнить хотя бы один раз АТРОБНОВИТЬ.

Сделал так. Для первого вхождения выполняю:

Код:

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

 ThisDrawing.SendCommand "ATTSYNC" & vbCr & "ИМЯ" & vbCr & acEnt.Name & vbCr

для следующих:

Код:

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

 ThisDrawing.PostCommand "(acet-attsync" & Chr(34) & acEnt.Name & Chr(34) & ") "