Dobrý den,

tohle by jít bez problémů mělo. K publikacim se dostanete přes vlastnost objektu Product.Publications,
jednotlivá publikace, resp. publikovaný objekt se získá metodou Publications.Item("název publikace").

Ten se pak dá porovnat s objektem, pro který má publikace existovat.

Pro vytvoření publikace existuje metoda Publication.SetDirect("název publikace",reference na object").

No upřímně,

tohle je někdy vyšší dívčí. Rozhodně doporučuju používat metodu CreateReferenceFromObject, jenže ta je dostupná jen a pouze v rámci Partu, u sestavy se tomu ...FromName nevyhnete.

V názvu musí být celá kontextová cesta od aktivní sestavy až k LeafProductu (to je ten, se kterým se pracuje - v rámci sestavy je Part de facto také Product), takže něco jako

Product1.1/Product2.1/ ... /ProductX.1/!Název reference

a jakákoliv nepřesnost se trestá.

Doporučuju se kousek makra nahrát rekordérem, podívat se, jak se reference vytvořila (bude tam přesný název), a pak se ve vašem makru dopracovat k tomu samému. Je to pakárna, protože se musíte vracet přes Parent nahoru k mateřské sestavě a skládat celou kontextovou cestu od Produktu, ve kterém se pracuje až k aktivní sestavě.

A kde se objevuje chyba? Vytvoří se alespoň prázdná nová publikace? Odkazuje se reference na dané Body?

Přijde mi dost krkolomná konstrukce pro vytvoření reference. Proč tam jako parametr nepoužijete rovnou oObject, což je Body, z kterého referenci vytváříte?

Jinak ale v zásadě nevidím nic, co by bylo špatně. Jedině snad, a to se pak omlouvám za mystyfikaci, že by pro tvorbu publikace skutečně musela být použita metoda CreateReferenceFromName. Já určitě používám to, co jsem psal o pár příspěvků výše, ale nevidím rozdíl mezí způsobem vytvoření reference - pokud nejste v sestavě a není nutné rozlišovat mezi instancemi, mělo by ...FromObject stačit. Vytvářím tak všechny reference při jakékoliv tvorbě geometrie v rámci partu, ...FromName je nutnost např. při měření nebo vytváření vazeb v sestavě.

Tady jsem na3el jeden starý testovací skript, který bezpečně funguje....

Sub CATMain()

   Dim oDocument As Document

   Dim oProduct As CATBaseDispatch 

   Dim oReference As Reference

   Dim oPublications As Publications

   Dim oPublication As Publication

   Dim SrEfName As String



   Set oDocument = CATIA.ActiveDocument

   Set oProduct = oDocument.Product



   sRefName = oProduct.PartNumber & "/!PartBody" 

   Set oReference = oProduct.CreateReferenceFromName(sRefName)



   Set oPublications = oProduct.Publications

   Set oPublication = oPublications.Add("Publikace")



   oPublications.SetDirect "Publikace", oReference

End Sub

No to je jasné, publikace je vždy unikátní - právě proto, aby se linky chovaly korektně a nemohlo dojít k záměně při nahrazení partů v sestavě. Jedinečnost určuje celá kontextová cesta k partu, pak cesta v partu k feature.

Body by se určitě neměla jmenovat stejně (dokonce se dá zapnout kontrola unikátnosti názvů v partu), pak se vyhnete tomuto problému.

Problém je v tvorbě reference, protože je stejný název - vždy se tak odkážete na první Body, protože je prostě první v pořadí. Catie se pak nejak automaticky popere s názvem publikace a přidá si jedničku na konec,

Zkuste druhé Body před tvorbou reference přejmenovat (klidně na xxx.2), vytvořte publikaci, a pak body přejmenujte zpět. To lze.

Za mě bych si pojmenoval ta Body na xxx.1, xxx.2 a není co řešit.