Dobrý den,
ano myslím tím neexistující reference. Myslel jsem si že to CATDUA dokáže, že je to jen otázka nastavení.

Jak by takové makro vypadalo? Na foru jsem žádnou podobnou diskuzi nenašl..

Zkusím se podívat ještě na zahraniční fora.

Děkuji

Zkuste tohle. Je to funkce jedné komplexní utility pro klonování sestav, kdy se musí nejprve chybějící reference odstranit. Vstupem funkce je produkt vrcholové sestavy sestavy.

Je to psané pro VB.NET, pro použití jako CATScript si budete muset nahradit ošetření Try ... Catch pomocí standardního OnError ..., jinak to funguje spolehlivě.

' rekurzivne prochazi sestavu a odebira produkty bez reference

Private Sub RemoveMissingProducts(ByVal oProduct As Product)

    Dim oSubProducts As Products

    Dim oSubProduct As Product

    Dim RefValid As Boolean



    ' nacteme vsechny instance v sestave

    oSubProducts = oProduct.Products



    For Each oSubProduct In oSubProducts

        RefValid = True

        ' overime existenci reference

        Try 

            If oSubProduct.ReferenceProduct.Parent Is Nothing Then 

                RefValid = False

            End If 

        Catch 

            RefValid = False

        End Try 



        ' zkusime odebrat instanci

        If RefValid = False Then 

            Try 'kvuli chybe v API to produkt odebere, ale shori

                ' odebereme instanci

                oProduct.Products.Remove(oSubProduct.Name)

            Catch ex As Exception

            End Try 



        Else 

            ' rekurze

            If oSubProduct.Products.Count > 0 Then

                RemoveMissingProducts(oSubProduct)

            End If 

        End If 

    Next 

End Sub

Upravil jsem kod pro visual basic viz. dole. Když ho ale sputim, tak mě smaže všechny party a produkty...

Sub CATMain()

Dim acDoc

Dim acProd

Set acDoc = CATIA.ActiveDocument

Set acProd = acDoc.Product

acProd.ApplyWorkMode DESIGN_MODE

RemoveMissingProducts acProd

End Sub

Private Sub RemoveMissingProducts(ByVal oProduct As Product)

    Dim oSubProducts As Products

    Dim oSubProduct As Product

    Dim RefValid As Boolean

    ' nacteme vsechny instance v sestave

Set oSubProducts = oProduct.Products

    For Each oSubProduct In oSubProducts

        RefValid = True

        ' overime existenci reference

        On Error GoTo ErrHandler1:

            If oSubProduct.ReferenceProduct.Parent Is Nothing Then

                RefValid = False

            End If

ErrHandler1:

            RefValid = False

        ' zkusime odebrat instanci

        If RefValid = False Then

On Error GoTo ErrHandler2:

            'Try kvuli chybe v API to produkt odebere, ale shori

                ' odebereme instanci

                oProduct.Products.Remove (oSubProduct.Name)

ErrHandler2:

        Else

            ' rekurze

            If oSubProduct.Products.Count > 0 Then

                RemoveMissingProducts (oSubProduct)

            End If

        End If

    Next

    MsgBox ("All missing products have been removing")

End Sub

Dobrý den, jakou funkci přesně plní příkaz

Catch ex As Exception

Děkuji

Máte to trochu zmatené. Dejte úplně pryč proměnnou RefValid, nebo ji použijte tak jak je myšleno. Na začátku se zjišťuje, jestli je reference platná tím, že se porovnává jeji rodič (soubor), zda je Nothing. To klidně můžete nahradit třeba zjištěním jeho názvu (.Parent.Name). Jenže ve skriptu to shoří, tak tam správně máte On Error...
Pak zjistíte kód chyby, a pokud je <> 0, už můžete odebrat instanci. To je ale třeba znovu ošetřit, protože tam chyba vzniká pokaždé, o když se instance odebere.
Na konci už se jen spouští rekurze, pokud produkt obsahuje podprodukty (= pokud jde o podsestavu).

Podle mě vám to druhé On Error přeskočí zbytek kódu. Dejte si tam message box, abyste zjistit zda se část kódu s rekurzí vykoná.

PS: Try - Catch je běžné ošetření potencionálních chyb.

Try 

  - pokusí se vykonat kód, kde očekávám chybu

Catch 

  - vykoná se, pokud chyba nastane

Finally

- vykoná se pokaždé

End Try