---

Moin allerseits,

ich möchte eine .3dmap Datei, die ich vorher abgespeichert habe, erneut laden und dann in meinem Product quasi über die verglichenen Dateien "legen".
Diese Datei kommt heraus aus dem Vergleich der beiden vorher eingefügten Parts.
Allerdings kann aus irgendeinem Grund die FileSelectionBox die Datei nicht öffnen. Wieso das? 

Code:

---

Dim document1 As Document
Set document1 = documents1.Item("AddedMaterial.3dmap")
document1.Activate
document1.SaveAs CATIA.FileSelectionBox(makroname + " " + version + " - Bauteil1", "*.3dmap", CatFileSelectionModeSave)
Dim document2 As Document
Set document2 = documents1.Item("RemovedMaterial.3dmap")
document2.Activate
document2.SaveAs CATIA.FileSelectionBox(makroname + " " + version + " - Bauteil1", "*.3dmap", CatFileSelectionModeSave)
document2.Close
document1.Close
''
''=======================================================
'' Import AddedMaterial Only
''
''=======================================================
Set PP = CATIA.ActiveDocument.Product.Products
Dim var11(0)
var11(0) = CATIA.FileSelectionBox(Added + Material, "*.3dmap", CatFileSelectionModeOpen)
PP.AddComponentsFromFiles varll, "*.3dmap"

---

Noch schöner wäre es natürlich, wenn man die Bilder so angezeigt bekommt, wie es manuell, ohne Makro, der Fall ist. Allerdings habe ich da gar keine Ahnung wie das gehen soll 

Eine weitere Frage wäre da noch. Und zwar wie kann ich bei FileSelectionBox den Namen der Abgespeicherten Datei festlegen, aber den Ort wo es gespeichert wird, frei wählbar lassen?

Viele Grüße und schonmal Dankeschön!!!!

Max

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

---

Servus

Warum verwendest du denn die FileSelectionBox beim speichern und erneuten öffnen?
Falls der User den Pfad/Dateinamen beim speichern wqählen soll könntest du diesen doch zwischenspeichern und erneut beim öffnen nutzen. zB (ungetestet)

Code:

---

Dim sPathAddDocument as String
sPathAddDocument = CATIA.FileSelectionBox(makroname + " " + version + " - Bauteil1", "*.3dmap", CatFileSelectionModeSave)
document1.SaveAs sPathAddDocument

sFileList(0) = sPathAddDocument

PP.AddComponentsFromFiles sFileList, "All"

---

Um den Dateinamen festzulegen könntest du ja nach der Userselektion des Verzeichnisse/Dateiname den String nochmal entsprechend korrigieren.

Gruß
Bernd

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

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

---

Überragend! Danke Bernd!

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