Catia搜索和删除

Question

当我手动搜索、选择和删除一个对象时，catia会显示一个" delete“对话框，我可以在其中选择"Delete all exclusive parents”和"Delete all children“。当我使用下面的代码执行相同的过程时，" delete“对话框没有出现，并且我不能切换到"delete all Children”来成功删除对象。当我运行以下代码时，如何让catia显示"Delete“对话框？或者有没有可能合并一行，这样我也可以删除子元素？

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方法。