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