---

Hallo miteinander,

gibt es eine einfache Möglichkeit aus den vorhandenen CATParts per Skript jeweils das dazugehörige 3DXML zu erzeugen?
Die "Hilfe" und "Suche" war bisher nicht sehr erfolgreich. :-(

Danke vorab und Grüße
4077

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

---

Hi,

ich weiß ja nicht um wie viele CATParts es sich bei Dir handelt.
Aber wenn es nicht soooo viele sind, dann könntest Du ein neues CATProdukt erstellen und alle CATParts darin einfügen. -> einfach auf den Nullpunkt, Positionierung ist egal.
Dann davon ein 3DXML speichern. Dieses 3D XML mit Winzip oder ähnliches öffnen und entpacken. Damit hast Du von allen Einzelteilen jeweils ein eigenes 3DXML File.

Gruß
Stefan

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

---

Hallo 4077,

in diesem Fall hilft sogar der Makrorecorder.
Nachfolgender Einzeiler speichert das aktive Dokument als 3dxml, wobei das aktive Dokument ein CATProduct sein muß.

Sub CATMain()
    CATIA.ActiveDocument.ExportData "C:\PartName.3dxml", "3dxml"
End Sub

Dann baut man noch eine Schleife über alle CATParts die man konvertieren will:

1. CATProduct erzeugen
2. CATPart reinhängen
3. nach 3dxml konvertieren
4. CATProduct schließen

Ich hoffe, Dir hilfts.

Gruß
Steffen

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

---

Oh, Danke! (auch wenn ich mich spät bedanke  , die liebe Arbeit halt)
Das werde ich mir doch glatt mal anschauen und ausprobieren.

Danke nochmal
4077

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

---

  Hallo

Stammt von hier  leicht geändert :  http://catia.cad.de/v5/download.htm

'Script zum Exportieren von V5-Parts und Produkten in STEP203'
'Erstellt von Jens Hansen / info@catia.cad.de'
'Dieses Script ist kostenlos verfügbar und darf weder verkauft noch Angeboten werden'
'Adresse zum Download: http://catia.cad.de'

Language="VBSCRIPT"

Sub CATMain()

folderinput = InputBox ("Wo befinden sich Ihre Daten ?","Eingabe","C:\Qeullordner\",500,1000)
folderoutput = InputBox ("Wohin soll gespeichert werden?","Eingabe","C:\Zielordner\",500,1000)

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Dim PartDocument1 As Document
Set documents1 = CATIA.Documents
Dim document1 As Document

PFADEINGABE =  folderinput & f1.name
Set PartDocument1 = CATIA.Documents.Open(PFADEINGABE)

PFADAUSGABE = folderoutput & f1.name & ".3dxml"
PartDocument1.ExportData PFADAUSGABE, "3dxml"

s = s & f1.name
s = s & vbCrLf

Next

'Bei Bedarf kann eine Schlussnachricht eingeblendet werden, wo die umgewandelten Elemente aufgelistet sind. Hierfür in nachfolgender zeile die Hochkommas entfernen.'
'MsgBox "fertig !" & vbCrLf & s '

CATIA.quit

End Sub

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

---

Hallo zusammen,
ist es möglich aus einer Koolisions Analyse(Interference)
für jede Kool. Paarung eine 3DXML per Skript zu erzeugen????
Vielen Dank

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