Code:
Option Strict OffImports System
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UF
Imports NXOpen.Utilities
Imports System.IO
Module NXJournal
Public sess As Session = Session.GetSession
Sub Main(ByVal args() As String)
Dim UndoM As Session.UndoMarkId = sess.SetUndoMark(Session.MarkVisibility.Visible, "-")
Dim MForm As New Form1
Dim Schwa_Form As New Form2
MForm.ShowDialog()
Dim theSession As Session = Session.GetSession()
End Sub
Sub LW(Message As String)
sess.ListingWindow.Open()
sess.ListingWindow.WriteLine(Message)
End Sub
End Module
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Button_Schaft = New System.Windows.Forms.Button()
Me.Button_Rund = New System.Windows.Forms.Button()
Me.Button_Schwa = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button_Schaft
'
Me.Button_Schaft.Location = New System.Drawing.Point(128, 37)
Me.Button_Schaft.Name = "Button_Schaft"
Me.Button_Schaft.Size = New System.Drawing.Size(75, 23)
Me.Button_Schaft.TabIndex = 0
Me.Button_Schaft.Text = "Schafthalter"
Me.Button_Schaft.UseVisualStyleBackColor = True
'
'Button_Rund
'
Me.Button_Rund.Location = New System.Drawing.Point(209, 37)
Me.Button_Rund.Name = "Button_Rund"
Me.Button_Rund.Size = New System.Drawing.Size(97, 23)
Me.Button_Rund.TabIndex = 0
Me.Button_Rund.Text = "Rundhalter"
Me.Button_Rund.UseVisualStyleBackColor = True
'
'Button_Schwa
'
Me.Button_Schwa.Location = New System.Drawing.Point(12, 37)
Me.Button_Schwa.Name = "Button_Schwa"
Me.Button_Schwa.Size = New System.Drawing.Size(110, 23)
Me.Button_Schwa.TabIndex = 0
Me.Button_Schwa.Text = "Schwalbenschwanz"
Me.Button_Schwa.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(344, 121)
Me.Controls.Add(Me.Button_Schwa)
Me.Controls.Add(Me.Button_Rund)
Me.Controls.Add(Me.Button_Schaft)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button_Schaft As System.Windows.Forms.Button
Friend WithEvents Button_Rund As System.Windows.Forms.Button
Friend WithEvents Button_Schwa As System.Windows.Forms.Button
Private Sub Button_Schwa_Click(sender As Object, e As EventArgs) Handles Button_Schwa.Click
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim markId1 As Session.UndoMarkId
Dim basePart1 As BasePart
Dim partLoadStatus1 As PartLoadStatus
basePart1 = theSession.Parts.OpenBaseDisplay("C:\XXXXXX.prt", partLoadStatus1)
Dim displayPart As Part = theSession.Parts.Display
'partLoadStatus1.Dispose()
'markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Enter Gateway")
'
'Dim markId2 As Session.UndoMarkId
'
'markId2 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Enter Modeling")
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Open Component Fully")
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Open Component")
Dim nErrs1 As Integer
nErrs1 = theSession.UpdateManager.DoUpdate(markId1)
Dim Schwa_Form As New Form2
Schwa_Form.ShowDialog()
End Sub
End Class
################
Hier kommt dann noch die Form2, Eigenständig, funktioniert sie wenn das Bauteil manuell geladen wurde. Also hier liegt der Fehler nicht.
################