|
Scriptsprache für
Journals einstellen
Die Journal
Programmiersprache wird über die "User Interface
Preferences" eingestellt. Diese öffnet man über "Menu/Preferences/User
interface" oder gibt "User Interface Preferences" im
"Command Finder" ein. Im Reiter "Journal" bzw.
"Tools/Journal" bei neueren Versionen kann die Sprache
festgelegt werden.
Journal-Aufbau
Hier der Aufbau eines
Journals. NX möchte, dass der Hauptteil des Scripts
zwischen Sub Main() und dem dazugehörigen End
Sub steht.
|
|
Imports System
Imports NXOpen
Module NXJournal
Public theSession
as Session =
Session.GetSession()
Public lw
as
ListingWindow = theSession.ListingWindow
Sub Main()
'
ab hier steht der eigentliche Programmteil
MsgBox("Hallo
Welt")
' Ausgabe über Message
Box
lw.Open
lw.WriteLine("Hallo
Welt")
' Ausgabe über
Information Fenster
End Sub
End Module |
Journal Ausführungs-/ Speicherort
ExecutingJournal liefert
den Dateipfad des gerade ausgeführten Journals
zurück.
|
|
dim theSession
as Session =
Session.GetSession()
dim s
as String =
Nothing
s = theSession.ExecutingJournal()
MsgBox(s) |
Prüfen auf Part oder Assembly
Ist das aktuelle Part
ein Assembly oder Single-Part?
|
|
Imports
NXOpen.Assemblies
Public
theSession as Session = Session.GetSession()
Public workPart
as Part = theSession.Parts.Work
...
dim Assy
as
ComponentAssembly =
workPart.ComponentAssembly
if
IsNothing(Assy.RootComponent)
then
MsgBox("Part")
else
MsgBox("Assembly")
end if |
Fenster Schließen aber Bauteil offen lassen
|
