Hier der Quellcode zum Scheiben :
Wie kann man daraus lesen ???????????????
Dim oapp As Inventor.Application
Dim odoc As Inventor.DrawingDocument
odoc = _invApp.ActiveDocument
Dim obox As Inventor.TextBox
For Each obox In odoc.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes
Select Case obox.Text
REM ..............................................................................
Case "FIRMA"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox12.Text)
REM ..............................................................................
Case "Firma_2"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox1.Text + TextBox16.Text)
REM ..............................................................................
Case "ANSCHRIFT"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox5.Text)
REM ..............................................................................
Case "Zeichnungsstand"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox2.Text)
REM ..............................................................................
Case "Zeichnungs Nr."
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox3.Text)
REM ..............................................................................
Case "Maßstab"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox15.Text + TextBox4.Text)
REM ..............................................................................
Case "1. Bezeichnung"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox9.Text)
REM ..............................................................................
Case "2. Bezeichnung"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox8.Text)
REM ..............................................................................
Case "Projekt Nr."
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox7.Text)
REM ..............................................................................
Case "Projekt Bezeichnung"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox6.Text)
REM ..............................................................................
Case "Kunde"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox17.Text)
REM ..............................................................................
Case "Toleranzklasse"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, ComboBox2.Text)
REM ..............................................................................
Case "Index"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, ComboBox1.Text)
REM ..............................................................................
Case "Datum Ersteller"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox14.Text)
REM ..............................................................................
Case "Ersteller"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox13.Text)
REM ..............................................................................
Case "Datum Prüfer"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox11.Text)
REM ..............................................................................
Case "Prüfer"
Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, TextBox10.Text)
End Select
Next
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP