---

Hallo zusammen!

Ich lade über ein Makro eine Baugruppe. In dieser Baugruppe möchte ich nun einen Parameter eines bestimmten Parts anfassen, bzw. verändern.

Bisher sieht das so aus:

Sub CATMain()

' ----------------------------------------- Öffnen der Baugruppe

Dim neuesprodukt As Document
Set neuesprodukt = CATIA.Documents.NewFrom ("X:\baugruppe.CATProduct")
Dim product1 As Product
Set product1 = neuesprodukt.Product

' ----------------------------------------- Bearbeiten des Parts

Dim neuespart As Document
Set neuespart = ???

End Sub

Wie kann ich jetzt definieren, welches der Parts verwendet wird? Geht doch sicher über den Namen!? evt. mit sowas wie "CATIA.Document.Partname"?

Und gleich noch die Zusatzfrage:

Wie erreiche ich, dass die New from - Operation nicht nur aufs Produkt angewendet wird, sondern auf auch alle Parts?

Wäre toll, wenn mir jemand helfen könnte.

Gruß, zizo

[Diese Nachricht wurde von zizorro am 10. Sep. 2004 editiert.]

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

---

Hallo zusammen!

Habe die Lösung gefunden:

Dim neuespart As Part
Set neuespart = CATIA.ActiveDocument.Product.Products.Item(n)

Das andere Problem, wie ich die NewFrom-Operation auch auf die im Produkt verbauten Parts übertrage, ist aber weiterhin aktuell.

Vielleicht weiss da jemand mehr.

Gruß, zizo

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

---

Hallo Zizo,

Deine Frage ist eine recht interessante Frage, den mit diesem Problem habe ich auch schon gekämpft. Soeben habe ich dazu auch noch ein Versuch unternommen, ich wollte mit dem Makro-Recorder den "New-From"- Arbeitsgang aufzeichnen, in welchem ich ein Produkt neu erzeugen möchte und alle untergeordneten Products sowie Parts über die Selektionsbox auswähle. Leider bringt CATIA bei der Makroaufzeichnung diese Dialogauswahl nicht, ist das evtl. ein Zeichen, dass es nicht möglich ist alle untergeordneten Elemente auch neu zu erstellen (über ein Makro)?
Wenn jemand dazu einen Tip oder eine Lösung hat, bin ich ebenso wie zizo sehr dankbar für eine Hilfe.

Gruß aus dem wilden Süden,

  fireman

------------------

Neugier ist der erste Schritt des Fortschritts

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

---

Hallo zusammen.
Ich wollte diese alte Problematik mal aufwärmen. Das Ding ist ja schon über 4 Jahre alt, aber nun auch für mich interressant geworden. Weiß da einer Rat?
gruß, Tom

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

---

Hallo,

Ich habe gerade Interesse an diesem Thema. Gibt es inzwischen eine bekannte Möglichkeit die "New from"-Fenster von Catia aufzurufen ?

Schöne Grüße,
Florent.

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

---

Hallo,

Ich antworte selbst: ich habe eine Möglichkeit gefunden, die nicht so elegant ist.

Es wird im VBA gemacht.

Code:

---

Sub CATMain()
    NewFrom ("C:\Temp\MyProduct.CATProduct")
End Sub

Public Sub NewFrom(iPath As String)
    If (iPath = "") Then
        Exit Sub
    End If

    CATIA.Application.StartCommand ("New from") 'Nur für englisch ..

    VBA.SendKeys iPath
    VBA.SendKeys "{ENTER}"
    CATIA.RefreshDisplay = True

End Sub

---

Das SendKeys emuliert, was der User manuell eingeben würden. So kriege ich die "New from"-Oberfläche von CATIA.

Gruß,
Florent.

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

---

Hallo,
ich verstehe das Makro nicht so recht 
ich würde auch gerne ein Product mit den dazugehörigen Parts über NewFrom aufrufen,
indem ich auf einen Button klicke.

was muss von dem Code nun in den Button und wo soll ich den Code aus "Sub CATMain"
hinschreiben?

Oder bedeutet das, dass ich daraus ein neues Modul machen kann und dann beim Buttonklick bloss das Modul aufrufen muss?

Danke im Vorraus vom Greenhorn 

------------------
Grüße aus dem schönen Düsseldorf
Michael

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

---

Servus
IMHO sollte es (wenn der Code in einem extra Modul "NEW" ist) reichen:
NEW.NewFrom ("C:\Temp\MyProduct.CATProduct")
Natürlich muss du dir noch Gedanken machen welchen Pfad/Dateinamen du vorgeben willst.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Super haut hin,
danke dir 

------------------
Grüße aus dem schönen Düsseldorf
Michael

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