Das ist eigentlich der Aufruf aus UGOpen.
Aber im Journaling heissen die Routinen fast genau so.
Hier noch ein BSP fürs Journaling:
Es werden die RGB Werte für die Körper im Part ausgegeben.
Imports System
Imports NXOpen
Imports NXOpen.UF
Module NXJournal
Sub Main
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim b As Body
Dim clr_name As String
Dim clr_values As Double() = {255,255,255}
Dim text As String
If Not s.Parts.Work Is Nothing Then
For Each b In s.Parts.Work.Bodies
ufs.Disp.AskColor(b.Color,0,clr_name,clr_values)
s.ListingWindow.Open()
text = CType(255 * clr_values(0), String) + " " + CType(255 * clr_values(1), String) + " " + CType(255 * clr_values(2), String)
s.ListingWindow.WriteLine(text)
s.ListingWindow.WriteLine(clr_name)
Next
End If
End Sub
End Module
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP