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

Автор Тема: Работа с подавленными вхождениями  (Прочитано 6257 раз)

0 Пользователей и 3 Гостей просматривают эту тему.

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Доброго времени суток, уважаемые форумчане! Подскажите пожалуйста, можно ли обратится к подавленному вхождению?
Например, чтобы считать пользовательский параметр внутри него?
В программировании я новичок...но ненадолго! ;)

Оффлайн Павел Тер-Микаэлян

  • ADN OPEN
  • ***
  • Сообщений: 124
  • Карма: 5
Re: Работа с подавленными вхождениями
« Ответ #1 : 26-01-2015, 16:08:20 »
Тоже интересует этот вопрос, т.к. oCompDef.Occurrences.Item(1).Definition.Parameters.Item(1).Value не работает если Occurrences.Item(1)подавлен, и как быть?

Отмечено как Решение R.I.Chernov 28-01-2015, 10:55:36

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Re: Работа с подавленными вхождениями
« Ответ #2 : 26-01-2015, 17:46:37 »
если 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

Оффлайн Павел Тер-Микаэлян

  • ADN OPEN
  • ***
  • Сообщений: 124
  • Карма: 5
Re: Работа с подавленными вхождениями
« Ответ #3 : 27-01-2015, 15:56:59 »
Надеялся, что можно сделать как-то иначе, но раз нельзя, так нельзя) буду делать по вашему) Спасибо за ответ!!

Оффлайн R.I.ChernovАвтор темы

  • ADN Club
  • *****
  • Сообщений: 568
  • Карма: 18
Re: Работа с подавленными вхождениями
« Ответ #4 : 27-01-2015, 17:45:35 »
Алексей, спасибо за ответ! Тему пока не закрываю, быть может найдется умелец, который предложит иное решение?! :)
В программировании я новичок...но ненадолго! ;)

Оффлайн Алексей Романов

  • ADN Club
  • **
  • Сообщений: 87
  • Карма: 20
Re: Работа с подавленными вхождениями
« Ответ #5 : 28-01-2015, 10:02:27 »
может найдется умелец, который предложит иное решение?!
Чтобы было понятно... Когда элемент подавлен, то он выгружается из памяти, oCompDef.Occurrences.Item(1).Definition не определен, а без него параметры и свойства не достать средствами VBA и AddIn...