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