---

Hallo,

ich bin relativ unerfahren im Programmieren, deshalb folgende (einfache?) Frage:

Ich möchte per Makro eine iges-Datei importieren.
Der Pfad der iges-Datei ist in einer Expression vorhanden.
Der Dateiname ist nicht bekannt, d.h. sie soll per Exlorer (in vorgegebenem Pfad) ausgewählt werden.

Wie ist das machbar?

Danke für eure Hilfe.
Tommes

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

---

Hmm gibts keine Lösungsansätze?

Wie kann ich denn den Verzeichnisbaum zur Auswahl einer Datei per Journal öffnen?

Gruß Tommes

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

---

Hallo Tommes,

der Ansatz wird vermutlich ohne grundsätzliche Kenntnisse deinerseits nicht viel nützen, dennoch mal der Versuch:

Die Expression auszulesen geht direkt über Expobj.Equation. Das ergibt einen String. Der kann einem FileOpenDialog als Startverzeichnis mitgegeben werden. Sobald der Dialog geöffnet und ein Dateiname angegeben wird, kommt wieder ein String zurück. Der wiederum kann als Name der Iges-Datei verwendet werden.

Gruß, Michael

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

---

Vielen Dank... mit ein wenig probieren hab ich die Dateiauswahl per Verzeichnisbaum jetzt hinbekommen.

Jetzt hab noch folgendes Problem beim Import der Datei:
Was muss ich beim Import als OutputFile angeben um immer in das jeweilig aktuelle File zu importieren?

igesImporter1.OutputFile = xxx

Gruß Tommes

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

---

Dann lass' es versuchsweise mal weg oder übergib' einen leeren String.

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

---

2014-01-2109-48-31_IGESImport.jpg

Hallo,

ich hab den iges-Import per Makro leider immer noch nicht hinbekommen. Ich hänge nach wie vor am igesImporter1.OutputFile =???
Ich will die iges Datei in das momenatan aktive prt einlesen. Beim Übergeben eines leeren Strings kommt folgende Fehlermeldung (siehe Anhang).

Kann mir jemand weiterhelfen?

Gruß Tommes

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

---

Hallo,

gib für "OutputFile" mal eine temporäre Datei an, z.B.: "C:\temp\import_iges.prt"

Ich hab auch mal ein Programm für den IGES-Import geschrieben.
Ich bin mir nicht mehr ganz sicher, aber ich glaube, da wird einfach temporär diese Datei erstellt und danach wieder automatisch gelöscht, zumindest finde ich in meinem Code keine direkte Anweisung zum Löschen!

Wenn es nicht klappt, sag nochmal Bescheid, dann poste ich mal den ganzen Code!

Viel Erfolg! 

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

---

Hi pleudel,

danke für deine Hilfe.
Hab es mit der temporären Datei mal probiert. Jetzt importiert er zwar was, ich weiß allerdings nicht wohin...
Die temporäre Datei ist nach Ablauf des Makros nicht mehr da und im aktiven prt ist auch nichts angekommen.

Wäre super, wenn du deinen Code mal posten könntest!

Gruß Tommes

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

---

So, hier mein Code:

Private Sub Import_IGES(Datei As String)

        Dim markId1 As Session.UndoMarkId
        markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

        Dim igesImporter1 As IgesImporter

'---------------------------Abfrage, welche NX-Version gerade geöffnet ist (weil bei uns mehrere Versionen im Einsatz sind), mittlerweile glaube ich aber, dass es auch einfach mit einer .def geht, was da der Unterschied ist, weiß ich leider nicht...
        If theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION").Contains("v7.5") Then
            igesImporter1.SettingsFile = "D:\UGNX75\iges\igesimport.def"
        ElseIf theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION").Contains("v8.0") Then
            igesImporter1.SettingsFile = "D:\UGNX8\IGES\igesimport.def"
        ElseIf theSession.GetEnvironmentVariableValue("UGII_FULL_VERSION").Contains("v8.5") Then
            igesImporter1.SettingsFile = "D:\UGNX85\IGES\igesimport.def"
        End If

'---------------------------diverse Einstellungen
        igesImporter1 = theSession.DexManager.CreateIgesImporter()
        igesImporter1.CopiousData = IgesImporter.CopiousDataEnum.LinearNURBSpline
        igesImporter1.SmoothBSurf = True
        igesImporter1.LayerDefault = 1
        igesImporter1.GeomFixupTol = 0.0127
        igesImporter1.ObjectTypes.Curves = True
        igesImporter1.ObjectTypes.Surfaces = True
        igesImporter1.ObjectTypes.Solids = True
        igesImporter1.ObjectTypes.Annotations = True
        igesImporter1.ObjectTypes.Structures = True
        igesImporter1.SimplifyGeometry = True
        theSession.SetUndoMarkName(markId1, "Import from IGES Options Dialogfenster")
        igesImporter1.ImportTo = IgesImporter.ImportToEnum.WorkPart
        igesImporter1.InputFile = Datei

'--------------------------- besagtes Outputfile
        igesImporter1.OutputFile = "C:\temp\import_iges.prt"

        Dim markId2 As Session.UndoMarkId
        markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Import from IGES Options")

        igesImporter1.FileOpenFlag = False
        igesImporter1.LayerMask = "0-99999"

        Dim nXObject1 As NXObject
        nXObject1 = igesImporter1.Commit()

        theSession.DeleteUndoMark(markId2, Nothing)
        theSession.SetUndoMarkName(markId1, "Import from IGES Options")

        igesImporter1.Destroy()

    End Sub

Ich muss hier allerdings erwähnen, dass in ein bereits geöffnetes Part importiert wird!
Ist das bei dir auch der Fall oder wohin willst du exportieren?
Dann müssen wir den Code noch etwas anpassen, und zwar ein leeres Part erstellen bzw. ein vorhandenes Startpart irgendwohin kopieren und dann dort hinein importieren!

Grüße

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

---

Hi,

habs hinbekommen, vielen Dank!
Hatte einen Fehler im Output-File.

Gruß
Tommes

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