---

Hallo,

ich fülle mein Schriftfeld zum Teil per Feldtext aus und zum Teil fülle ich es mit benutzerdefinierten iprop aus. Nachteilig ist bei dieser Variante, das ich nicht alle Angaben in einem Fenster machen kann. Ich muss bei der Feldtexteingabe auf ein Icon klicken wo ich dann zu den iprop gelange. Ist es möglich ein Fenster zu benutzen per VBA oder per Formular wo ich Feldtext und beutzerdefinierte iprop ausfüllen kann?

Danke

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

---

Hi,

ja das geht seit ein paar Inventorversionen. Man kann den Feldtext nun auch via VBA greifen.

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

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

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

---

Und wie gehts das? Könnte ich das auch in einer Regel einfügen?Weil mit dem VBA-Editor kenne ich mich überhaupt nicht aus.

Danke

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

---

Kannst Du mal eine idw als Vorlage hochladen oder ein paar Screenshots machen wie
Deine Vorgehensweise beim Ausfüllen des Schriftfeldes ist?

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

---

screen1.jpg screen2.jpg screen3.jpg

Wie bei Bild eins zu sehen gebe ich meinen Feldtext ein. Als zweites muss ich oben rechts auf den Button "iprop" klicken (Bild 2). Als drittes öffnet sich ein weiteres Fenster wo ich dann das benutzerdefinierte iprop eintragen kann.
 
Mein Ziel ist es, alles in einem Fenster einzugeben.

Danke

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

---

Hier schonmal ein Ansatz zum Thema "Feldtext".

Bei Case "Wert" bzw. "test" kannst Du schonmal einen Feldtext von Dir eintragen und in der Zeile drunter bei "ccccc" bzw. "ffffff" den Wert dazu.

Wenn Du mir noch eine Liste der Feldtexte gibst und eine Liste der iProperties die Du füllen möchtest (mit der Info ob die iPropŽs existieren oder erst neu angelegt werden müsssen) kann ich Dir dafür auch noch was basteln.

Code:

---

Public Sub TitleBlock_text()

Dim oapp As Inventor.Application
Dim odoc As Inventor.DrawingDocument
Set oapp = ThisApplication
Set odoc = oapp.ActiveDocument
Dim obox As Inventor.TextBox

For Each obox In odoc.ActiveSheet.TitleBlock.Definition.sketch.TextBoxes

    Select Case obox.Text
            Case "Wert"
            Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, "ccccc")
            Case "test"
            Call odoc.ActiveSheet.TitleBlock.SetPromptResultText(obox, "fffffff")
    End Select
   
Next
   
End Sub

---

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

---

Danke für diesen Ansatz.

Wenn ich diesen aber im Regeleditor einfüge kommt immer die Fehlermeldung:

"Fehler in Regelprogrammformat: Alle anderen SUbs oder Funktionen müssen hinter Sub Main () stehen.

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

---

Sry,
ist VB...
Den Editor öffnen, neues Modul anlegen, Code einfügen und
ausführen lassen...

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

---

Ich komme leider nicht weiter. Hat jemand noch Anmerkungen zu diesem Thema?

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