---

Hi liebe Catia Gemeinde,

zurzeit schreib ich wieder fleißig an meinem Macro für den Datenexport.
Dabei bekomme ich  "igs", "model", "step" auch ohne Probleme exportiert.
Nur bei dem Export von "stl" hab ich ein Problem.
Soweit ich weiß, muss ich dafür ja ein "newwindow" erstellen, und hierbei liegt mein Problem.
Es muss ja wie auf den zwei angefügten Fotos aussehen! Oder?  

   
>> neues Document >>
   

Vorgehen:
1. gewünschtes Selektieren
2. hide/show
3. newwindow / neues Document
4. exportdata
5. close window

So richtig!?

Und leider hat mir das aufzeichnen vom Macro nicht weiter geholfen.
Sitz jetzt an dem Problem schon knapp 20 Stunden und probier hin und her.   

1. sind meine annahmen richtig
2. wie bekomme ich das neue fenster mit dem gewünschten inhalt?

lg Stefan

------------------
ODI PROFANUM VULGUS

[Diese Nachricht wurde von Smerg am 15. Jan. 2009 editiert.]

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

---

Hallo Smerg,

deine geplante Vorgehensweise sollte funktionieren. Das OpenInNewWindow kannst du so umsetzen (
Auszug Doku):

Code:

---

FileToOpen = "e:\users\psr\Parts\ThisIsANicePart.CATPart"
Dim Doc As Document
Set Doc = Documents.Open(FileToOpen)

'An den Pfad kommst du so:
FileToOpen = SelectedProduct.ReferenceProduct.Parent.FullName

---

Alternativ, kannst du auch ein "AllCATPart" erzeugen. Damit bleibt dann auch die Positionierung der STL-Daten erhalten.

Gruß
CAMiCADse

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

---

hmmm, ist leider nicht, dass was ich meine...

Ich möchte direkt aus einem Produkt heraus ein neues Window machen und dort nur aus dem aktiven Produkt, die Komponenten für den stl Export einfügen... und soweit ich weiß geht der Export eines Produktes nicht als stl!?

------------------
ODI PROFANUM VULGUS

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

---

Servus
Nur so ne Idee:
zuerst als cgr exportieren und diesen dann in stl konvertieren.

Gruß
Bernd

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

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

---

ich werd mal mitm Chef reden, ob wir den Ansatz so verfolgen können. Danke jedenfalls für den Tipp...

/----> also Chef sagt, es wär nicht gut, wir das so machen würden

Gibts den kein Weg, ein neues Fenster mit dem Product in Part zu erstellen!? Sollte doch irgendwie gehen... gruebel***grummel*

[Diese Nachricht wurde von Smerg am 19. Jan. 2009 editiert.]

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

---

hat jemand von euch noch nen anderen Ansatz oder nen guten Tipp!?

------------------
ODI PROFANUM VULGUS

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

---

Ich hab dich noch nicht ganz verstanden, hast du eine Produktstruktur in der du ein Part selektieren lassen möchtest?
Und alles was in dem Part im show liegt möchtest du als stl eportieren?
Oder möchtest du alle Parts eines Produkts die im show liegen wandeln?

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

---

also, er werden sicherlich mehrere Parts sein, aber ich hab es mit meinem Macro so geregelt, dass immer nur ein Part im Show ist...

d.h. ich brauch nur noch ein neues Fenster mit dem im Show befindlichen Part + entsprechende Bodys...

Bis jetzt bekomme ich immer nur das ganze Produkt rüber...

------------------
ODI PROFANUM VULGUS

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

---

Hall Smerg,

Zitat:

---

Original erstellt von Smerg:
hmmm, ist leider nicht, dass was ich meine...

Ich möchte direkt aus einem Produkt heraus ein neues Window machen und dort nur aus dem aktiven Produkt, die Komponenten für den stl Export einfügen... und soweit ich weiß geht der Export eines Produktes nicht als stl!?

---

hmmm, hast du meinen Vorschlag schon mal ausprobiert?
Solltest du mal machen, ist nämlich genau dass, was du meinst...(Vorausgesetzt, da funkt kein PDM dazwischen)

Da CATIA das Document nicht neu von der Platte lädt, sondern das bereits geladene -im aktuellen Zustand- in einem neuen Fenster öffnet, entspricht es einem "OpenInNewWindow".

Gruß
CAMiCADse

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

---

Deinen Vorschlag bzw. den von bgrittmann werde ich morgen mal mit meinem Teamleiter besprechen. Mal sehen was dabei rum kommt...

Kann mir aber denken, dass er es ohne zwischenspeichern haben will.

Bzw. wie bekomme ich aus dem CatProduct ein Catpart, dass du hier öffnen willst.  

Zitat:

---

FileToOpen = "e:\users\psr\Parts\ThisIsANicePart.CATPart"

---

Denke mal sobald ich irgendwie aus dem CatProduct nen Catpart bekomme, sollte ich den Rest mir zusammen schreiben können.

Hab beim rum stöbern das hier CatProductToCatpart... gefunden.
Nur 1. es funktioniert bei mir nicht bzw. hab ich es nicht eingestellt bekommen, dass der Menüpunkt mir angezeigt wird
"CatProductToCatpart"

Bzw. glaube ich nicht, dass das in der Firma umgesetzt werden wird/darf....

------------------
ODI PROFANUM VULGUS

So ich hab die Lösung... heut früh ist es mir gekommen, wie du es meinst!!! War auch die Lösung meines Problems... thx a lot

[Diese Nachricht wurde von Smerg am 23. Jan. 2009 editiert.]

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

---

Hallo

wie kann ich denn ein CGR in ein STL umwandeln?

Gruß!

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

---

Habe gerade festgestellt dass ichs direkt als STL Speichern kann.
Jetzt bräuchte ich nur noch den Befehl für den Import von STL Daten. Der Recorder zeichnet da leider nichts auf...

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

---

Servus
Ein STL fügst du in ein CATProduct über die Methode "AddComponentsFromFiles" ein:

Code:

---

Sub CATMain()

Dim productDocument1 As ProductDocument
Dim product1 As Product
Dim products1 As Object
Dim arrPartDocument(0) As Variant

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
         
arrPartDocument(0) = "c:\temp\TestSTL.stl"
products1.AddComponentsFromFiles arrPartDocument, "All"

End Sub

---

Gruß
Bernd

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

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