---

Hallo,
wir haben einen Zeichnungsrahmen in der Maßstab und Positionsnummer über Feldtext händisch eingegeben werden. Ich habe zwar ein Macro welches Werte in de iProps. schreibt, aber nicht in die Feldtexte! Kann mir jemand bitte die Zeile zusenden mit der ich Werte in die Feldtexte schreiben kann?
Vielen Dank schon mal,
Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Michael,

Du kannst doch Dein Schriftfeld änder, so dass anstelle der manuellen Eingaben in den TExboxen die Properties angezeigt werden. Ist doch viel einfacher und geht ohne Code... 

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das mit den iProps wollte ich auch schon machen. Es ist aber ein Kunden-Rahmen, den ich nicht ändern darf. Die beiden Variablen existieren schon als iProp für andere Kunden-Rahmen, die ich ändern durfte!

Gruß
Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Function SetPromptValue(ByVal fBlock As TitleBlock, _
ByVal fPrompt As String, _
ByVal fValue As String)
'Changes the value of prompted entry in the title block
On Error Resume Next
Dim oTextbox As Inventor.TextBox
Dim oTextBoxes As Inventor.TextBoxes
Dim sData As String

Set oTextBoxes = fBlock.Definition.Sketch.TextBoxes
For Each oTextbox In oTextBoxes
sData = Trim(fBlock.GetResultText(oTextbox))
If InStr(oTextbox.FormattedText, fPrompt) Then
Call fBlock.SetPromptResultText(oTextbox, fValue)
End If
'MsgBox oTextbox.Text & " > " & sData
Next
On Error GoTo 0
End Function

Public Sub prompt_fill
Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument
Dim act_sheet As Sheet
Set act_sheet = oDoc.ActiveSheet
Dim tbdef As TitleBlock
Set tbdef = act_sheet.TitleBlock
SetPromptValue tbdef, "Maßstab", "Irgendwas"
End Sub

------------------

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für das Script Dann werde ich es mir mal zu Herzen nehmen.
Gruß
Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,

DANKE für dieses Tool.

Funktioniert 1a!

------------------
Gruß Lothar

---------------------------------------------------

Während man es aufschiebt, verrinnt das Leben.
Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

-----------------------------------------------------
Wir unterstützen die Arbeit der:
- Rettungshundestaffel des DRK Viersen
- Rettungshundestaffel Isar Ost

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP