Макрос вставки атрибутов в блок

[sae.prc]

Код - Visual Basic [Выбрать]

1. Sub AddAttributePritok()
2. Dim blk As AcadBlockReference
3. Dim att As AcadAttribute
4. Dim insertionPoint(0 To 2) As Double
5. Dim height As Double
6. Dim mode As Long
7. Dim prompt As String
8. Dim tag As String
9. Dim value As String
10.  
11. ' Удалить существующий Selection Set, если он есть
12. On Error Resume Next
13. ThisDrawing.SelectionSets.Item("SelectionSet").Delete
14. On Error GoTo 0
15.  
16. ' Создать новый Selection Set
17. Dim selectionSet As AcadSelectionSet
18. Set selectionSet = ThisDrawing.SelectionSets.Add("SelectionSet")
19.  
20. ' Проверить, удалось ли создать Selection Set
21. If Not selectionSet Is Nothing Then
22. ' Предоставить пользователю возможность выбрать объекты
23. selectionSet.SelectOnScreen
24. ' Перебрать все выбранные объекты
25. For Each obj In selectionSet
26. ' Проверить, является ли объект блоком
27. If TypeOf obj Is AcadBlockReference Then
28. Set blk = obj
29. ' Задать параметры атрибута
30. height = 1#
31. mode = acAttributeModeInvisible
32. prompt = "тест"
33. insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
34. tag = "тест"
35. value = "привет"
36. ' Создать новый атрибут
37. Set att = blk.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
38. ' Обработать ситуацию, если добавление атрибута не удалось
39. If Not att Is Nothing Then
40. MsgBox "Атрибут успешно добавлен к блоку."
41. Else
42. MsgBox "Ошибка при добавлении атрибута к блоку.", vbExclamation
43. End If
44. End If
45. Next obj
46. ' Удалить Selection Set после использования
47. selectionSet.Delete
48. End If
49. End Sub

Код для добавления атрибута в блок - в чем ошибка, а так же как можно добавлять пакетно атрибуты в блок (и если у блока есть параметр видимости, то добавить атрибуты во все видимости)

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

Атрибуты по идее надо добавлять не к вхождению блока, а к его описанию. Соответственно надо ИМХО
а) пройтись по набору блоков и сформировать список имен блоков (без повторений, естественно)
б) по каждому из элемента списка имен - получить указатель на описание блока и уже в него добавлять описания атрибутов
в) выполнить _.attsync либо его аналог
г(по желанию)) пройтись по полученному в в. а) списку и установить значения добавленных атрибутов.