Datum: 25.9. 2012 | Zobrazeno: 9807x
Konfigurace CATIA:

Text dotazu:

Language="VBSCRIPT"



Sub CATMain()



Dim acDoc



Dim acProd



Dim tmpString



Dim FileName



Dim  FileSeparator



Set acDoc = CATIA.ActiveDocument



Set acProd = acDoc.Product



acProd.ApplyWorkMode  DESIGN_MODE









Set parameters1 = acProd.UserRefProperties



Set strParam1 = parameters1.CreateString("COSI", "")



strParam1.ValuateFromString "---"



Set acProd = acProd.ReferenceProduct







End Sub  

Toto jsem částečně opsala a částečně vyzobala z makra vytvořeného záznamem.

Language="VBSCRIPT"



Sub CATMain()



Dim acDoc



Dim acProd



Dim tmpString



Dim FileName



Dim  FileSeparator



Set acDoc = CATIA.ActiveDocument



Set acProd = acDoc.Product



acProd.ApplyWorkMode  DESIGN_MODE







For Each oDoc IN CATIA.Documents



Set parameters1 = acProd.UserRefProperties



Set strParam1 = parameters1.CreateString("COSI", "")



strParam1.ValuateFromString "---"



Set acProd = acProd.ReferenceProduct



NEXT





End Sub  

Pokud vložím toto a je otevřeno třeba 10 komponent. Spustí makro 10x ale na to právě aktivním a zatoží COSI, COSI.1, COSI.2 ... .

Takže je zjevné, že je cosi špatně.

Prosím o radu.
1. Jak vložím properties COSI s obsahem --- všem otevřeným partům?
2. Jak příkaz tomu partu přepíše jen obsah toho COSI nikoliv založí novýs indexem....?