Работа с подавленными вхождениями

[R.I.Chernov]

Доброго времени суток, уважаемые форумчане! Подскажите пожалуйста, можно ли обратится к подавленному вхождению?
Например, чтобы считать пользовательский параметр внутри него?

[Павел Тер-Микаэлян]

Тоже интересует этот вопрос, т.к. oCompDef.Occurrences.Item(1).Definition.Parameters.Item(1).Value не работает если Occurrences.Item(1)подавлен, и как быть?

[Алексей Романов]

если Occurrences.Item(1)подавлен, и как быть?

Открыть его (лучше в фоновом режиме), достать параметры, закрыть, что-то типа этого:

Код: [Выделить]

Dim oldDoc As AssemblyDocument
Set oldDoc = ThisApplication.ActiveDocument
Dim occ As ComponentOccurrence
Set occ = oldDoc.ComponentDefinition.Occurrences(1)
Dim patch As String
patch = occ.OccurrencePath(1).ReferencedFileDescriptor.FullFileName
Call ThisApplication.Documents.Open(patch, False)
Dim doc As Document
For Each doc In ThisApplication.Documents
  If doc.File.FullFileName = patch Then
      MsgBox doc.DisplayName
      doc.Close True
      Exit For
  End If
Next

[Павел Тер-Микаэлян]

Надеялся, что можно сделать как-то иначе, но раз нельзя, так нельзя) буду делать по вашему) Спасибо за ответ!!

[R.I.Chernov]

Алексей, спасибо за ответ! Тему пока не закрываю, быть может найдется умелец, который предложит иное решение?!

[Алексей Романов]

может найдется умелец, который предложит иное решение?!

Чтобы было понятно... Когда элемент подавлен, то он выгружается из памяти, oCompDef.Occurrences.Item(1).Definition не определен, а без него параметры и свойства не достать средствами VBA и AddIn...