Zdravím,

tohle je trochu potíž (jindy zase možná výhoda). Kolekce s paramerty sestavy obsahuje všechny parametry rekurzivně až k poslednímu Partu, který se v sestavě nachází. Řešení existuje - stačí do názvu parametru přidat PartNumber:

oParameter = oAsmParameters.GetItem("Part1\nazev_parametru")

a je vyřešeno.

Tohle je jednoduché. U partu se parametr vytvoří takto:

oParameters = oPartDocument.Part.Parameters

oStrParam = oParameters.CreateString("nazev","hodnota")

U AddedProperty je to trochu jiné. Vlastnost UserRefProperties, což je kolekce AddedProperties, je dostupná jen u objektu Product. Tento objekt je ale dostupný i v partu a přistupuje se k němu úplně stejně.

oAddedProperties = oPartDocument.Product.UserRefProperties

oStrParam = oAddedProperties.CreateString("nazev 2","hodnota 2")

V sestavě je to při vytváření stejné, při čtení trochu jinak, protože objekt Parameters obsahuje všechny parametry vnořených podsestav a jejich partů. Nejprve vždy zkouším, zda jde o parametr:

oParameter = oProduct.Parameters.RootParameterSet.AllParameters.GetItem("nazev")

Pokud parametr neexistuje, skončí to chybou (to je ošetřeno přes Try-Catch) a pak zkouším Added property:

oParameter = oProduct.Parameters.Item(oProduct.PartNumber & "\" & nazev)

Přidáním PartNumber s lomítkem do názvu se odfiltrují parametry, který se jmenují shodně, ale jsou v podsestavách.