Разорвать СПДС-объекты программно

[Icu]

Здравствуйте! У меня чертеж с СПДС графикой, версия Civil3D 2016 с СПДС-object enabler'ом, но работать мне нужно в 2019 версии, в которой enabler я не установил, потому что с ним программа становится крайне не стабильной. Чтобы иметь возможность работать с чертежом в 2019 версии, я хочу разорвать все СПДС объекты в 2016 версии. Для этого я хочу выбирать все объекты СПДС и разрывать их по типу explode. Я могу методом простого перебора находить СПДС объекты, но не знаю, как их разрывать. Т.е. я перебираю все объекты в чертеже, могу выделить каждый отдельный объект СПДС, но как разорвать его я не знаю. Подскажите, как можно решить эту задачу? Следующая на подходе задача: проверять все определения блоков в чертеже на наличие СПДС графики, взрывать объекты СПДС и изменять определения блоков.

[Александр Ривилис]

Icu,
Проверь есть ли у них метод explode - если есть попробуй воспользоваться им. Если нет, то попробуй через команду Explode.
Кстати, речь идёт об Autodesk SPDS Extenstion или СПДС GraphiCS?

[Icu]

Проверь есть ли у них метод explode - если есть попробуй воспользоваться им. Если нет, то попробуй через команду Explode.
Кстати, речь идёт об Autodesk SPDS Extenstion или СПДС GraphiCS?

Я не могу точно сказать, что за enabler у меня установлен. Я перебираю объекты типа Object, метода explode у него нет. А как провернуть эту операцию через команду explode?

[Александр Ривилис]

Я перебираю объекты типа Object, метода explode у него нет.

Что для этих объектов возвращает метод ObjectName?

[Александр Ривилис]

А как провернуть эту операцию через команду explode?

Как-то так. Для каждого из объектов получаем его метку (свойство Handle) и передаём в эту функцию:

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

1. Private Sub ExplodeObj(entHandle As String)
2.     Dim qM As String
3.     qM = """"
4.     ThisDrawing.SendCommand "(command " & qM & "_EXPLODE" & qM & " " & "(handent " & qM & entHandle & qM & ")) "
5.     DoEvents
6. End Sub

Код не тестировал - перепроверь его.

P.S.: Код исправил по замечанию Icu

[Icu]

Что для этих объектов возвращает метод ObjectName?

Возвращает имена с префиксом mcsDbObject.

[Александр Ривилис]

Возвращает имена с префиксом mcsDbObject.

Ага. Это объекты СПДС GraphiCS. Уточни у производителя нет ли готовой команды, которая бы расчленяла все их объекты.
Кажется вот эта команда: spexplodeall

[Icu]

Возвращает имена с префиксом mcsDbObject.

Ага. Это объекты СПДС GraphiCS. Уточни у производителя нет ли готовой команды, которая бы расчленяла все их объекты.
Кажется вот эта команда: spexplodeall

Суть в том, что обычный _explode прекрасно справляется с этими объектами при выполнении операции руками.

[Icu]

А как провернуть эту операцию через команду explode?

Как-то так. Для каждого из объектов получаем его метку (свойство Handle) и передаём в эту функцию:

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

1. Private Sub ExplodeObj(entHandle As String)
2.     Dim qM As String
3.     qM = """"
4.     ThisDrawing.SendCommand "(command " & qM & "_EXPLODE" & qM & " " & "(handent " & qM & entHandle & qM & "))
5.    DoEvents
6. End Sub

Код не тестировал - перепроверь его.

Проверил ваш код. Внёс единственную правку - добавил пробел после финальной скобки перед кавычкой. Работает. Спасибо! Финальный вариант:

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

1. Private Sub ExplodeObj(entHandle As String)
2.     Dim qM As String
3.     qM = """"
4.     ThisDrawing.SendCommand "(command " & qM & "_EXPLODE" & qM & " " & "(handent " & qM & entHandle & qM & ")) "
5.     DoEvents
6. End Sub

[Александр Ривилис]

Icu,
Открытый вопрос остаётся с объектами СПДС внутри блоков.

[Icu]

Icu,
Открытый вопрос остаётся с объектами СПДС внутри блоков.

Да, с этим буду эксперементировать. Можете дать какую-нибудь наводку? С определениями блоков пока ни разу не сталкивался.

[Александр Ривилис]

Icu,
Открытый вопрос остаётся с объектами СПДС внутри блоков.

Да, с этим буду эксперементировать. Можете дать какую-нибудь наводку? С определениями блоков пока ни разу не сталкивался.

Тут боюсь, что командой не обойтись. Нужно анализировать состав всех блоков и если есть объекты СПДС, то входить в редактор блоков расчленять объекты, и закрывать блок с сохранением изменений.

[Icu]

Тут боюсь, что командой не обойтись. Нужно анализировать состав всех блоков и если есть объекты СПДС, то входить в редактор блоков расчленять объекты, и закрывать блок с сохранением изменений.

В общем, ситуация такая: могу программно войти в редактор блока, а выйти - уже никак. _blclose работает, только выдавая диалог подтверждения сохранения. Но это не все и не самое главное: способ "подрыва" объектов, использованный ранее, не срабатывает внутри редактора блока. Получаю цепочку сообщений в командной строке:

Команда: (command "_EXPLODE" (handent "87426")) _EXPLODE
Выберите объект: <Неверное имя объекта: E0F94E60>
nil
Выберите объект: *Прервано*
Команда:
Команда: (command "_EXPLODE" (handent "87427")) _EXPLODE
Выберите объект:

Не могу понять, в чем дело.

[Александр Ривилис]

Не могу понять, в чем дело.

А как ты получаешь примитивы внутри блока?

[Александр Ривилис]

_blclose работает, только выдавая диалог подтверждения сохранения.

Можешь её запускать через lisp:

Код - Auto/Visual Lisp [Выбрать]

1. (command "_bclose" "_save")