Отправлено: Пашин Евгений от 17-09-2015, 14:27:53
1. В листах нахожу блоки и взрываю их
2. Нахожу количество объектов до взрыва и после взрыва.
3. Количество объектов после взрыва показывает неверно. Вернее показывает так, словно копирование блоков прошло, а сами блоки не взорваны. По завершению процедуры количество объектов значительно отличается от того, что показывает AutoCAD.
Попробую еще проще объяснить:
1. Открываем чертеж
2. Создаем лист
3. В листе создаем прямоугольник и внутри прямоугольника 100 любых объектов (линии, круги и т.п.)
4. Превращаем все эти объекты в блок
5. Удаляем все посторонние объекты, затем в этот же лист вставляем блок (внутри блока 101 объект)
6. Если выделить все объекты листа, то в свойствах можно увидеть, что объект лишь 1!
7. Затем выполняем процедуру, которая написана в коде
8. В результате количество объектов до взрыва будет 2 (туда, видимо спрятался скрытый видовой экран), а после взрыва покажет 3 объекта!
9. Теперь выделяем все объекты на экране и что мы видим? 102 объекта!
И как теперь быть?
Код - vb.net [Выбрать]
- Imports Autodesk.AutoCAD.Runtime
- Imports Autodesk.AutoCAD.Interop
- Imports Autodesk.AutoCAD.Interop.Common
- <CommandMethod("GALAUTODESKENTITIESSHOW", CommandFlags.Session)> _
- Public Sub SPDS_Autodesk_Entities()
- Dim acApp As IAcadApplication = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
- Dim acDoc As IAcadDocument = acApp.ActiveDocument
- For Each acLayout As IAcadLayout In acDoc.Layouts
- acDoc.ActiveLayout = acLayout
- acApp.ZoomExtents()
- Select Case Strings.Trim(acLayout.Name)
- Case "Model", "Модель", "Элементы оформления"
- Case Else
- Dim acSelSet As IAcadSelectionSet = acDoc.SelectionSets.Add("SS" & acLayout.Name)
- acSelSet.SelectOnScreen()
- MsgBox("Before: " & acDoc.ActiveLayout.Block.Count) ' Здесь есть подвох (какой? не понятно!)
- acDoc.SendCommand("_ctab" & vbCr & acLayout.Name & vbCr)
- For Each acEntity As IAcadObject In acSelSet
- Select Case acEntity.ObjectName
- Case "AcDbBlockReference"
- Dim acEntityCopy As IAcadEntity = acEntity.Copy
- acEntityCopy.Layer = "Exploded_Entities"
- acDoc.SendCommand("_explode" & vbCr & "(handent """ & acEntityCopy.Handle & """)" & vbCr & vbCr)
- End Select
- Next
- MsgBox("After: " & acDoc.ActiveLayout.Block.Count) ' Объектная модель видимо не обновилась!
- End Select
- Next
- End Sub
Отправлено: Алексей Кулик от 17-09-2015, 15:44:31
Я бы сразу после строки MsgBox("Before: " & acDoc.ActiveLayout.Block.Count) прошел бы по описанию блока и вывел названия объектов, попавших в него.
P.S. Код может запросто не работать: обработка т.н. NUS-блоков (с разными масштабированиями по разным направлениям) вообще не отслеживается, ну да бог с ним.
P.P.S. Даже если забыть про ненужность Interop, код выглядит недоработанным. Зачем набор примитивов создавать? А если такой набор уже есть?
Отправлено: Алексей Кулик от 17-09-2015, 15:48:17
Отправлено: Дмитрий Загорулькин от 17-09-2015, 15:59:13
Off-Topic: показать
Отправлено: Алексей Кулик от 17-09-2015, 16:00:53
Off-Topic: показать
Отправлено: Дмитрий Загорулькин от 17-09-2015, 16:15:27
Off-Topic: показать
Отправлено: Александр Ривилис от 17-09-2015, 16:39:16
И как теперь быть?Забросить COM/ActiveX и написать нормальный код. Ты не понимаешь, что SendCommand срабатывает асинхронно в большинстве случаев?
Отправлено: Windcastle от 17-09-2015, 21:15:00
А разве у вхождения блока нет метода Explode
У обычных блоков есть, но у меня необычные блоки и примитивы. У них нет метода "Object.Explode", увы.
Зачем набор примитивов создавать? А если такой набор уже есть?
Мне нужно поискать во взорванных объектах некую информацию: размеры области, занимаемые каждым из объектов внутри блока; цвет; слой, на котором объекты находятся; стиль линии каждого объекта; у текстов - значение текста (ищу все тексты с символами ", ЦВ") и т.д. Разработчики данных блоков и примитивов не хотят делиться своими библиотеками - разработками... Приходится их взрывать.
После того, как я соберу всю информацию, я удалю все эти объекты. Исходные блоки и примитивы остаются нетронутыми. Как будто я и не копался в чертеже.
Забросить COM/ActiveX и написать нормальный код.
Увы, я не обладаю временем, чтобы учиться, а потом (когда-нибудь), эту задачу сдать... Людям нужно работать сейчас. Я учусь... в час по чайной ложке.
Ты не понимаешь, что SendCommand срабатывает асинхронно в большинстве случаев?
Понимаю, но мы уже решали этот вопрос с помощью CommandFlags.Session. И оно действительно работает. Кроме этого случая.
Я зашел в тупик...
Отправлено: Алексей Кулик от 17-09-2015, 21:41:48
Взрывание объектов и последующее уничтожение полученных примитивов = замусоривание и фрагментация БД чертежа. Я предпочитаю такое не делать.
Можешь предоставить образец такого файла? Честное слово, просто интересно покопаться будет (если завтра меня на работе опять не напрягут по самое не балуй).
Отправлено: Алексей Кулик от 17-09-2015, 21:42:13
Отправлено: Александр Ривилис от 17-09-2015, 23:45:27
Увы, я не обладаю временем, чтобы учиться, а потом (когда-нибудь), эту задачу сдать... Людям нужно работать сейчас. Я учусь... в час по чайной ложке.
Я зашел в тупик...Это как раз тот случай, когда ты должен бросить всё и учится. Иначе из тупика ты не выйдешь.
У обычных блоков есть, но у меня необычные блоки и примитивы. У них нет метода "Object.Explode", увы.Если это AcDbBlockReference, то это вставка блока и метод Object.Explode должен работать. Разве что у описания блока стоит признак нерасчленяемости (object.Explodable). Тогда этот признак нужно убрать, а потом уже расчленять.
Отправлено: Пашин Евгений от 18-09-2015, 06:43:18
Это как раз тот случай, когда ты должен бросить всё и учится. Иначе из тупика ты не выйдешь.
Согласен, но в первую очередь у меня стоит C#!
Если это AcDbBlockReference, то это вставка блока и метод Object.Explode должен работать.
Таковой один из трех объектов, с ним я так и поступаю (я имею ввиду IAcadBlockReference) ))) Остальные имеют другой тип ISiberiaFormat (в этом объекте я ищу уйму всевозможной информации) и ISiberiaNodeMark (от него мне нужен только текст). К последним двум, как раз, у меня и есть "претензии"!
Думаю это только начало: нашел еще объекты ISiberiaBreaking, но в нем вроде ничего интересующего меня нет.
Отправлено: Пашин Евгений от 18-09-2015, 07:25:41
Можешь предоставить образец такого файла? Честное слово, просто интересно покопаться будет (если завтра меня на работе опять не напрягут по самое не балуй).
Да, конечно! Подготовлю чертеж и документ. Приложу к этому же сообщению.
Заранее, благодарю.
Отправлено: Алексей Кулик от 18-09-2015, 09:22:20
Отправлено: Пашин Евгений от 18-09-2015, 10:23:55
так что помочь не смогу
Ничего страшного :)
Найду решение все равно!
Отправлено: Александр Ривилис от 23-09-2015, 13:22:19