Catia 搜索和删除
Catia Search and delete
当我手动搜索 & select 并删除对象时，catia 会显示一个 "Delete" 对话框，我可以在其中 select "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()
选择要删除的项目后，您可以
而不是 oSelection.Delete()
_CATIA.StartCommand("Delete")
您应该会看到与之交互的对话框。
如果要自动处理对话框，则必须使用WINAPI 方法。
当我手动搜索 & select 并删除对象时，catia 会显示一个 "Delete" 对话框，我可以在其中 select "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()
选择要删除的项目后，您可以
而不是 oSelection.Delete()_CATIA.StartCommand("Delete")
您应该会看到与之交互的对话框。
如果要自动处理对话框，则必须使用WINAPI 方法。