Катя Поиск и удаление

Question

Когда я вручную ищу, выбираю и удаляю объект, catia показывает диалоговое окно «Удалить», где я могу выбрать «Удалить всех исключительных родителей» и «Удалить всех детей». Когда я выполняю тот же процесс, используя следующий код, диалоговое окно «Удалить» не отображается, и я не могу включить «удалить все дочерние элементы», чтобы успешно удалить объект. Как разрешить catia показать диалоговое окно «Удалить» при запуске следующего кода? или можно включить строку, где я тоже могу удалить детей?

Dim productDocument1 As ProductDocument = _CATIA.ActiveDocument
Dim oSelection As Selection = productDocument1.Selection
oSelection.Search("Name= *Object*,All")

If oSelection.Count2 > 0 Then oSelection.Delete()

Answer 1

После выбора элементов для удаления вместо oSelection.Delete () вы можете сделать

_CATIA.StartCommand("Delete") 

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

Если вы хотите автоматически обрабатывать диалог, тогда вам придется использовать методы WINAPI.