Проект по продвижению BIM-комплементарных решений на российском рынке
0 Пользователей и 1 Гость просматривают эту тему.
если Occurrences.Item(1)подавлен, и как быть?
Dim oldDoc As AssemblyDocumentSet oldDoc = ThisApplication.ActiveDocumentDim occ As ComponentOccurrenceSet occ = oldDoc.ComponentDefinition.Occurrences(1)Dim patch As Stringpatch = occ.OccurrencePath(1).ReferencedFileDescriptor.FullFileNameCall ThisApplication.Documents.Open(patch, False)Dim doc As DocumentFor Each doc In ThisApplication.Documents If doc.File.FullFileName = patch Then MsgBox doc.DisplayName doc.Close True Exit For End IfNext
может найдется умелец, который предложит иное решение?!