Сообщество программистов Autodesk в СНГ

ADN Club => Inventor API => Тема начата: R.I.Chernov от 19-01-2015, 16:42:09

Название: Работа с подавленными вхождениями
Отправлено: R.I.Chernov от 19-01-2015, 16:42:09
Доброго времени суток, уважаемые форумчане! Подскажите пожалуйста, можно ли обратится к подавленному вхождению?
Например, чтобы считать пользовательский параметр внутри него?
Название: Re: Работа с подавленными вхождениями
Отправлено: Павел Тер-Микаэлян от 26-01-2015, 16:08:20
Тоже интересует этот вопрос, т.к. oCompDef.Occurrences.Item(1).Definition.Parameters.Item(1).Value не работает если Occurrences.Item(1)подавлен, и как быть?
Название: Re: Работа с подавленными вхождениями
Отправлено: Алексей Романов от 26-01-2015, 17:46:37
Цитата: Pabloa от 26-01-2015, 16:08:20
если 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
Название: Re: Работа с подавленными вхождениями
Отправлено: Павел Тер-Микаэлян от 27-01-2015, 15:56:59
Надеялся, что можно сделать как-то иначе, но раз нельзя, так нельзя) буду делать по вашему) Спасибо за ответ!!
Название: Re: Работа с подавленными вхождениями
Отправлено: R.I.Chernov от 27-01-2015, 17:45:35
Алексей, спасибо за ответ! Тему пока не закрываю, быть может найдется умелец, который предложит иное решение?! :)
Название: Re: Работа с подавленными вхождениями
Отправлено: Алексей Романов от 28-01-2015, 10:02:27
Цитата: R.I.Chernov от 27-01-2015, 17:45:35
может найдется умелец, который предложит иное решение?!
Чтобы было понятно... Когда элемент подавлен, то он выгружается из памяти, oCompDef.Occurrences.Item(1).Definition не определен, а без него параметры и свойства не достать средствами VBA и AddIn...