Proszę bardzo, ale jeśli dopiero zaczynasz przygodę z ilogic polecam zrobienie tego w inny sposób:


1.wchodzisz w BOM
2.prawym klawiszem na Parts only > Enable
3.jeśli pole które Cie interesuje jest w tabeli - wypełniaj, możesz np. zaznaczyć całą kolumnę i wkelić tam wartość
4.jeśli nie ma prawy klawisz na szarym wierszu z nazwami iproperties > Runtime column customization





oAssyDoc = ThisDoc.Document
compdef = oAssyDoc.ComponentDefinition


For Each occ In compdef.Occurrences.AllLeafOccurrences

'iLogic will throw an exception if the current occ is suppressed.
'This Try-Catch loop will catch the exception and skip the offending part.

currentBOMStructure = occ.BOMStructure
'51970 = Normal
'51971 = Purchassed
'51972 = Reference
'51974 = Inseperable
'MessageBox.Show(occ.Name & vbLf & CStr(currentBOMStructure), "iLogic")

iProperties.Value(occ.Name, "Project", "Project") = "NAZWA PROJEKTU"

'tymczasowo'
Next occ

[ Dodano: 2014-05-16, 09:11 ]
w przyszłości olecam operowanie na stringu occ.Name np. Left(occ.name, 5)="pierwsze litery"
bardzo wygodnie da się zawężać przypisywanie właściwym elementom pożądanych parametrów