---

MoinZ

hier
http://ww3.cad.de/foren/ubb/Forum4/HTML/009498.shtml

habe ich die ursprüngliche Frage gestartet.

Nach Urs Hinweis auf das Journal habe ich da ein wenig mit rumgespielt.

Das Ergebnis findet sich im Anhang. Da ich selber aber ein absoluter VB Dummie bin, die Frage, wie ich das aufgezeichnete Journal so modifiziere, das die Eingaben, die im Dateiauswahlfenster beim Anlegen der neuen Zeichnung gemacht worden sind, entweder neu abgfragt werden oder das z.B. der Dateiname des Arbeitsteils als Vorgabe genommen werden.

Schön wäre es auch noch, das vor dem Erstellen der Zeichnung abgefragt würde, ob das Referenz-Set "ASTRALONE" schon existiert, und wenn nicht, ein entsprechendes leeres Referenzset angelegt würde.

Der absolute Hammer wäre, wenn bei nicht vorhandenem Referenzset "ASTRALONE" nicht nur das Ref-Set angelegt, sondern gleich noch eine Elementauswahl gestartet würde...

ThanX in Advance

------------------
Grüße Meinolf

Ich steh auf flotte Dreier

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

---

der anhang fehlt...
du kannst auch den journal-text direkt einfügen....

------------------
gruss urs 

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

---

neues_Astralon.vb.txt

Uuuppps

her it is

------------------
Grüße Meinolf

Ich steh auf flotte Dreier

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

---

hallo Meinolf

unten der code, hab einmal etwas gemacht....

zum schluss müsste noch etwas sicherheit für den "dau" eingabeut werden....

--------------------------------------------------------

Option Strict Off
Imports System
Imports System.Windows
Imports System.Windows.Forms
Imports NXOpen

Module NXJournal
Sub Main

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

' ----- das ist der ganze pfad mit namen und endung
Dim pfad As String = workPart.FullPath

' ----- die endung wird "abgschnitten" resp. mit "leer" ersetzt
pfad=pfad.Replace (".prt” , "")

' ----- das ist der filename ohne endung
Dim filename As String = workPart.Leaf

' ----- start datei neu
Dim fileNew1 As FileNew
fileNew1 = theSession.Parts.FileNew()

fileNew1.TemplateFileName = "Astralonen_Vorlage_Stator_DIN_A1.prt"

fileNew1.Application = FileNewApplication.Drafting
fileNew1.Units = Part.Units.Millimeters

Dim zusatz As String = "_Z.prt"
Dim name_zchn As String = pfad+zusatz

fileNew1.NewFileName = name_zchn

fileNew1.MasterFileName = filename

fileNew1.UseBlankTemplate = False
fileNew1.MakeDisplayedPart = True

Dim nXObject1 As NXObject
nXObject1 = fileNew1.Commit()

workPart = theSession.Parts.Work
displayPart = theSession.Parts.Display

fileNew1.Destroy()

Dim drawingSheet1 As Drawings.DrawingSheet = CType(workPart.DrawingSheets.FindObject("Blatt_1"), Drawings.DrawingSheet)

drawingSheet1.Open()

' ----- reference set tauschen
Dim components1(0) As Assemblies.Component
Dim component1 As Assemblies.Component = CType(workPart.ComponentAssembly.RootComponent.FindObject("COMPONENT "+filename+" 1"), Assemblies.Component)

components1(0) = component1
Dim errorList1 As ErrorList
errorList1 = workPart.ComponentAssembly.ReplaceReferenceSetInOwners("ASTRALONE", components1)

errorList1.Dispose()

End Sub
End Module

------------------
gruss urs 

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

---

Hallo Urs,

Suuuuuupppppper, das funzt sehr schön.

Vielen vielen Dank.

------------------
Grüße Meinolf

Ich steh auf flotte Dreier

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