由于集合不是命名对象，因此我认为您无法做到。 您必须诉诸这一点（有更多编程经验的人可能会提出更好的方法）：

 dim mdl
 对于模型中的每个MDL
    如果mdl.code =" PRODUCTS_AND_SERVICES_METAMODEL"，则输出mdl
 下一个

也许是这样的：

set ws = ActiveWorkspace

ws.children中的每个wsmdl

如果wsmdl.modelType =" PDM"而不是wsmdl.ModelObject为Nothing，则

我当前的解决方案是通过其唯一的文件路径直接处理模型：

'#Get PowerDesigner窗口作为新对象
 设置PD = CreateObject（" PowerDesigner.Application"）
 输出" PowerDesigner窗口已加载"
 '#选择目标和源模型作为对象
 Dim filenameTargetModel，filenameOldSourceModel，filenameNewSourceModel 
 filenameTargetModel =" C：\ GitRepos \ xxx"
 filenameNewSourceModel =" C：\ GitRepos \ yyy"
 filenameOldSourceModel =" C：\ GitRepos \ zzz"
 设置targetModel = PD.OpenModel（filenameTargetModel）
 设置newSourceModel = PD.OpenModel（filenameNewSourceModel）
 设置oldSourceModel = PD.OpenModel（filenameOldSourceModel）