---

Hallo,

ich möchte gerne in einem Assembly ein einzelnes Part aktivieren + updaten. Das aktivieren funktioniert
Auszug:

'If param40_neu = 500 Then    'aktivieren Stift angefraesst
Set product3b = products40.Item(param01)
Set products3b = product3b.Products
Set product4b = products3b.Item(param40_neu&"_a")    'hier wähle ich den Exemplarnamen des CatParts aus
product4b.ActivateDefaultShape 'funktioniert aktiviert den Knoten meines Catia Parts
product4b.Update              'funktioniert nicht

beim Aufnehmen der Updatefunktion nimmt der Rekorder den Part Dateinamen dazu her.
Kann ich diesen aus meinem "product4b"  herauslesen oder hat man bei der Update funktion bessere Möglichkeiten.

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Hallo Norbert  ,

also deinen Code verstehe ich nicht über folgende Code funktioniert. Hierbei wird der erste Bauteil im Root-Produkt erst aktiviert, anschließend ein update durchgeführt und das Bauteil danach wieder deaktiviert.

Code:

---

Sub CATMain()

    Dim intRootProdObj As ProductDocument
    Dim intProdObj As Product
   
    Set intRootProdObj = CATIA.ActiveDocument
    Set intProdObj = intRootProdObj.Product.Products.Item(1)
   
    intProdObj.ActivateDefaultShape
    intProdObj.Update
    intProdObj.DesactivateDefaultShape
   

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

vielen Dank für das Feedback. Ich bin in meinem Assembly irgendwo (jedesmal woanders) im Baum, deswegen nützt mir das Item(1) nicht richtig.
Aber vielleicht hast du einen Tip für mich, wie ich aus diesem Item den Dateinamen herausbekomme. Ich finde leider nur Anleitungen zum ActiveDocument.

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Hallo Norbert,

es ist doch völlig unerheblich wo du im Produkt bist. Das ActiveDocument ist IMMER das Root-Produkt. Du kannst auch alle Parts auslesen und dann mit einer If..Then..Else nach dem entsprechenden Dateinamen suchen wenn du das Item nicht weißt.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

an das Item komme ich ran. Bei mir ist das die Zeile:

Set product4b = products3b.Item(param40_neu&"_a")

Ich würde jetzt gerne von diesem Exemplar den Dateinamen herauslesen. Hier hängt es bei mir.

G
NP

------------------
V5R18
Catia + Smarteam

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

---

Hi  ,

meinst du so etwas?

Code:

---

Sub CATMain()

    Dim intRootProdObj As ProductDocument
    Dim intProdObj As Product
    Dim intFileNameStr As String
    Dim intFileFullNameStr As String
   
 
    Set intRootProdObj = CATIA.ActiveDocument
    Set intProdObj = intRootProdObj.Product.Products.Item(1)
   
    intFileNameStr = intProdObj.ReferenceProduct.Parent.Name
    intFileFullNameStr = intProdObj.ReferenceProduct.Parent.FullName
   
    MsgBox "Es wurden folgende Strings gelesen:" + vbNewLine + vbNewLine + _
            "Dateiname:" + vbTab + intFileNameStr + vbNewLine + _
            "Dateipfad:" + vbTab + intFileFullNameStr, vbInformation, "Dateiname"
   
 
    intProdObj.ActivateDefaultShape
    intProdObj.Update
    intProdObj.DesactivateDefaultShape
 

End Sub

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

was macht in Deiner Zeile

Set intProdObj = intRootProdObj.Product.Products.Item(1)

der Wert Product und Products. Ich glaube da scheint bei mir das Problem zu liegen.

G
NP

------------------
V5R18
Catia + Smarteam

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

---

Hallo  ,

das sind keine Werte sondern Eigenschaften. Am besten du machst dir mal ein neues CATvba Projekt auf, fügst eine Modul ein und kopierst den Code hier rein. Im Anschluss blendest du im Editor über View -> Toolbars die Symbolleiste "Debug" ein. Jetzt markierst du das Objekt "intRootProdObj" und fügst es über das Kontextmenü zur Watchlist hinzu (RMT -> Add Watch -> OK). Falls das Watch-Fenster nicht eingeblendet ist, kannst du das über das über View (Menüleiste) nachholen.

Hast du das alles gemacht dann klickst du in die Suv CATMain und führst das Makro in Einzelschritten aus (Button -> Step into). Wenn du die Zeile Set intProdObj = intRootProdObj.Product.Products.Item(1) ausgefüht hast dann kannst du dir in der Watchliste die Eigenschaften "Product" und "Products" ansehen, Damit solltest du dann hinter das System kommen

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

ich muss mich ganz herzlich bedanken.
Ich glaube ich habe den Editor jetzt nach zwei Tagen herumprobieren endlich verstanden. 

Ich poste meine Lösung sobald ich fertig bin.

Gruß

Norbert

------------------
V5R18
Catia + Smarteam

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

---

Wie sieht es aus wenn ic in dem Product jetzt Part 1-4 habe und in das Part springen möchte, also es soll aktiviert werden und somit die Umgebung Part Design geöffnet werden, wie kann das realisiert werden?

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