Code:
Option Strict Off
Imports System
Imports NXOpenModule NXJournal
Sub Main (ByVal args() As String)
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim drawingSheet1 As Drawings.DrawingSheet = Workpart.DrawingSheets.CurrentDrawingSheet
Dim drawingSheetBuilder1 As Drawings.DrawingSheetBuilder
drawingSheetBuilder1 = workPart.DrawingSheets.DrawingSheetBuilder(drawingSheet1)
Dim Hoehe As String = drawingSheetBuilder1.Height
Dim Laenge As String = drawingSheetBuilder1.Length
Dim Pos_X As String = Laenge/2
Dim Pos_Y As String = Hoehe/2
Dim fontIndex2 As Integer
fontIndex2 = workPart.Fonts.AddFont("lubalin", FontCollection.Type.Nx)
Dim text1(0) As String
text1(0) = "in Bearbeitung"
Dim nullAnnotations_SimpleDraftingAid As Annotations.SimpleDraftingAid = Nothing
Dim draftingNoteBuilder1 As Annotations.DraftingNoteBuilder
draftingNoteBuilder1 = workPart.Annotations.CreateDraftingNoteBuilder(nullAnnotations_SimpleDraftingAid)
Dim letteringPreferences1 As Annotations.LetteringPreferences
letteringPreferences1 = workPart.Annotations.Preferences.GetLetteringPreferences()
draftingNoteBuilder1.Text.TextBlock.SetText(text1)
draftingNoteBuilder1.Style.LetteringStyle.Angle = 45.0
draftingNoteBuilder1.Style.LetteringStyle.GeneralTextCharSpaceFactor = 1.0
draftingNoteBuilder1.Style.LetteringStyle.GeneralTextSize = 10.0
draftingNoteBuilder1.Style.LetteringStyle.GeneralTextFont = fontIndex2
Dim nullView As View = Nothing
Dim point1 As Point3d = New Point3d(Pos_X, Pos_Y, 0.0)
draftingNoteBuilder1.Origin.Origin.SetValue(Nothing, nullView, point1)
Dim nXObject1 As NXObject
nXObject1 = draftingNoteBuilder1.Commit()
draftingNoteBuilder1.Destroy()
End Sub
End Module