iLogic и VBA

[mikoyan985]

Есть необходимость организовать замену компонента в сборке таким образом: Component.Replace("Part1:1", "OtherPartfilename.ipt", True). Подскажите, как можно получить имя текущего компонента в сборке?

[MikhailovAndrey]

Добрый день! Добро пожаловать на форум!

Что значит имя текущего компонента? Как вы собираетесь сделать один из компонентов текущим?

Если конкретно об этом коде, то вместо Part1:1 вписываете имя конкретного компонента из дерева модели и все.

[mikoyan985]

Здравствуйте. Есть сборка, состоящая из одной детали (компонента). В сборке создано правило, в котором необходимо получить имя этого компонента и приравнять ему переменную.

[MikhailovAndrey · Accepted solution]

Считывание имени первого элемента сборки

Dim oAsmComp As ComponentDefinition
oAsmComp = ThisDoc.Document.ComponentDefinition
If oAsmComp.Occurrences.Count = 0 Then
'do nothing
Else
Dim oFirstName As String
oFirstName = oAsmComp.Occurrences(1).Name
End If

Считывание имени файла первого элемента сборки

Dim oAsmComp As ComponentDefinition
oAsmComp = ThisDoc.Document.ComponentDefinition
Dim oFirstName As String
oFirstName = oAsmComp.Occurrences(1).ReferencedFileDescriptor.FullFileName