---

Hihi,

ich muss in meinem Produkt feststellen, ob mein Part oder Produkt aktiv oder inaktiv ist.

Momentan mach ich das über den Parameter Aktivierungsstatus,
z.B. 'Produkt.1\Aktivierungsstatus der Komponente'.

Gibt es einen schnelleren/einfacheren bzw. halt anderen Weg festzustellen ob mein Produkt aktiv ist?

Danke für alle Tips!

------------------
MfG,
Florian Held

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Florian,

AFAIK geht es nur über eine Parameterabfrage. Das haben wir hier schon mal diskutiert.

Gruß
CAMiCADse

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

lol - IsInactive-Eigenschaft... Auf diesen Suchbegriff bin ich leider nicht gekommen als ich nach Themen zu meinem Problem hier im Forum gesucht habe ^^.

Ich hab noch ne andere Möglichkeit (mehr oder weniger gut) gefunden:
Im Produkt ne neue Komponente erstellen.
Funktioniert: Aktiv + wieder löschen
Error: Hat nicht funktioniert also inaktiv/entladen.

------------------
MfG,
Florian Held

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Bsp.-Code zum Abfragen/Editieren des "Component Activation State" aller Knoten in einer Produkt-Struktur siehe unten.

Gruß TomTom

Language="VBSCRIPT"

Public oSel

Sub CATMain()
  Set oProducts = Catia.ActiveDocument.Product.Products
  Set oSel = Catia.ActiveDocument.Selection
  SUB_Scan oProducts
End Sub

Sub SUB_Scan(oProducts)
  For Each oItem In oProducts
      If oItem.Parameters.Count > 0 Then
        Set oComActState = oItem.Parameters.Item(oItem.Parent.Parent.PartNumber & "\" & oItem.Name & "\" & "Component Activation State")
        If oComActState.Value = 0 Then
            oSel.Clear
            oSel.Add(oItem)
            sMsg = MsgBox(oItem.Name & " ist deaktiviert.  " & vbLf & "Soll der Knoten wieder aktiviert werden?", 68, " Deaktivierter Knoten im Tree gefunden")
            If sMsg = 6 Then
              oComActState.Value = 1
            End If
            oSel.Clear
        Else
            If oItem.Products.Count > 0 Then
              SUB_Scan oItem.Products
            End If
        End If
      Else
        If oItem.Products.Count > 0 Then
            SUB_Scan oItem.Products
        End If
      End If
  Next
End Sub

------------------
tomtom1972

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Danke für das Script, hab mit diesem Beispiel den Fehler in meinem gefunden. Wer Programmieren will sollte halt schreiben können. Oder zumindest intelligent genug sein seine Tippfehler zu finden...

Danke!

------------------
MfG,
Florian Held

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo allerseits!

Bin beim rekursiven auslesen einer Produktstruktur (und prüfen ob Parts geladen sind) auf einen Fehler gestoßen und zwar liest er bei einem bestimmten Part Parameters.Count=1 aus, obwohl das Part ungeladen ist.. Wenn ich das Part aus dem Produkt entferne und wieder hereinlade erkennt er es korrekt.. Ist die Produktstruktur beschädigt, oder gibt es noch eine zuverlässigere Methode, den Status zu ermitteln?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP