---

Hallo ,
bin gerade an der Erstellung eines Start-Macro

hier möchte hier unter anderem ein Jpeg-Bild von dem geöffneten Teil abspeichern.

Das Problem liegt darin das ich die Bilddatei genau in dem Ordner abspeichern möchte wo
die UG-Datei abgespeichert ist.
Auch soll die Jpeg-Datei genau nach der 3D-Datei benannt sein.

Habe leider wenig Ahnung mit Makro.
kenne auch die UG-Befehl nicht um hier weiterzukommen.
Das Makro soll ohne User-Eingabe (Auswahl von Ordner bzw. Eingabe von Bildname) ablaufen.

Würde mich sehr über Hilfe freuen.

Hier der Makro-Text den ich bisher erzeugt habe:

MENU, 0, UG_FILE_EXPORT_JPEG UG_GATEWAY_MAIN_MENUBAR ! <MB/Toolbar>
DIALOG_BEGIN "JPEG Image File" 0 ! ExSpecial
BEG_ITEM  0 (1 WIDE 0) = "U:\Test-Datei.jpg"  ! JPEG File
BEG_ITEM  3 (1 BOOL 0) = 1  ! Use White Background
EVENT VALUE_CHANGED -50 0, 3, 0, 0, 0! Use White Background
ASK_ITEM  3 (1 BOOL 0) = 0  ! Use White Background
EVENT VALUE_CHANGED -50 0, 3, 0, 0, 0! Use White Background
ASK_ITEM  3 (1 BOOL 0) = 1  ! Use White Background
END_ITEM  0 (1 WIDE 0) = "U:\Test-Datei.jpg"  ! JPEG File
END_ITEM  3 (1 BOOL 0) = 1  ! Use White Background
DIALOG_END -2, 0 ! JPEG Image File: OK

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

---

Hallo Michael,

zunächst mal herzlich willkommen bei den NX- Programmierern.

Zum Erzeugen und Abspeichern einer Grafik würde ich Dir raten, es mal mit einem Journal zu versuchen. Über ein Macro wird's m.E. nicht funktionieren, u.a wegen fehlender Möglichkeiten, Namen auszulesen und zu ändern.

Erster Schritt dazu ist das Aufzeichnen des interaktiven Ablaufs.

Gruß, Michael

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

---

Vielen Danke schon mal für die Antwort.

Habe soeben versucht mit einen Journal diese hinzubekommen.
Leider komme ich da nicht weiter.
Ich verwende Journals in VB
Offenbar wird gerade dieses Werkzeug "Export Jpeg" nicht unterstützt.

Ev. weiß jemand ein anderen Weg um ein jpeg von der aktuellen Ansicht zu erzeugen.

Das durch aufzeichnen erzeugte Journal habe ich angehängt.

--------------------------------------------------------------------
Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

' ----------------------------------------------
'  Menu: File->Export->JPEG...
' ----------------------------------------------
' ----------------------------------------------
'  Menu: Tools->Journal->Stop Recording
' ----------------------------------------------

End Sub
End Module

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

---

Hallo Michael,

über die Suchfunktion findet sich z.B. dieser Beitrag.

Gruß, Michael

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

---

Hallo Michael,

mit dem Journal sieht es so aus:

'        Begin

Imports System

Imports NXOpen
Imports NXOpen.UF

Public Class JPG_Export
Public Shared Sub Main(args As String())

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim workPart As Part = theSession.Parts.Work

Dim image_name As String = workPart.FullPath.Replace("prt", "jpg")
theUfSession.Disp.CreateImage(image_name, UFDisp.ImageFormat.Jpeg, UFDisp.BackgroundColor.Original)

End Sub

Public Shared Function GetUnloadOption(dummy As String) As Integer
Return CInt(Session.LibraryUnloadOption.Immediately)
End Function

End Class

'        Ende

------------------
Gruß
Wladimir

[Diese Nachricht wurde von wladlaw am 18. Okt. 2012 editiert.]

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

---

Erstmal vielen Danke für eure Unterstützung.

Das Journal läuft jetzt so wie gewünscht.

Ich glaub ich muss nun wieder ein wenig in VB einsteigen um mir das Leben im UG zu erleichtern.

Danke...

Gruß Michael

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