根据元模型帮助，cls_ObjectSelection上有一个RemoveObjects方法。 是您需要的吗？

我今天做了更多的实验，并扩展了昨天的脚本，以包括更高级的选择对话框的示例

'创建选择对象
 dim Selected，Selected2 
 set Selected = ActiveModel.CreateSelection（）
 set Selected2 = ActiveModel.CreateSelection（）
 输出Selected.Objects.Count＆" BEFORE"
 Selected.AddObjects Selected.Model，PdPDM.cls_Table，False，True 
 Selected.ShowObjMultiSelection选定的"对象"
 输出Selected.Objects.Count＆" AFTER"
 输出"现在列出之前未选择的表" 
输出"-请注意，此对话框在对话框中提供了更多选择和过滤选项" 
 output Selected2.Objects.Count＆" BEFORE"
 'ActiveModel.ShowObjMultiSelection ActiveModel，"表格"
 selected2.ShowAdvancedObjMultiSelection活动模型，cls_Table，""，Selected.Objects'显示ActiveModel中的所有表，任何构造型，
'（如果它们从原始选择中排除）
 输出Selected2.Objects.Count＆" AFTER" 
 

嗨乔治，

不是。 在ShowObjMultiSelection上是"取消"按钮。 我试图抓住用户单击"取消"按钮的那一刻。 问题是我找不到物业。 你知道我在哪里可以找到吗？

谢谢

M。

您可以尝试

假设您已选择表和列。

结果= selObj.ShowObjMultiSelection（表格，"列"）

单击取消按钮，结果为false。

单击"确定"按钮，结果为true。