| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Angeforderte Eingabe füllen (1923 mal gelesen)
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 27. Okt. 2009 20:29 <-- editieren / zitieren --> Unities abgeben:
Hallo In einem Schriftfeld ist eine angeforderte Eingabe, die ich per VBA füllen möchte. Über ThisApplication.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(24).Text seh ich den vorausgefüllten Text. Nur geändert bekomme ich ihn nicht. Kann mir jemand mit einem Codeschnipsel helfen? ------------------ MfG RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 27. Okt. 2009 21:09 <-- editieren / zitieren --> Unities abgeben: Nur für rkauskh
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 28. Okt. 2009 09:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Danke, die richtige Hilfeseite hatte ich schon offen, nur in der falschen Zeile gesucht. Wenn ich den hier versuche, klappts trotzdem nicht. Code:
Dim oDrawDoc as DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocumentDim oTextBox As TextBox Set oTextBox = oDrawDoc.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(116) Call oDrawDoc.ActiveSheet.TitleBlock.SetPromptResultText(oTextBox, "Versuchstext")
Was stimmt daran nicht? Sag jetzt bitte nicht "ALLES". ------------------ MfG RK Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Moderator Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 28. Okt. 2009 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für rkauskh
|
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2166 Registriert: 15.11.2006 Windows 10 x64, AIP 2022
|
erstellt am: 28. Okt. 2009 10:48 <-- editieren / zitieren --> Unities abgeben:
Hallo Es liegt an der Definition Code: Dim oTextBox As TextBox Set oTextBox = oDrawDoc.ActiveSheet.TitleBlock.Definition.Sketch.TextBoxes.Item(116)
Auch wenn ich daran keinen Fehler entdecken kann. Laufe ich mit einer For-Next-Schleife durch alle (116) Textboxen geht's. EDIT: Das Brett vor'm Kopf hat die Sicht versperrt. Wenn Item(116) keine angeforderte Eingabe ist, wundert der Fehler nicht. ------------------ MfG RK [Diese Nachricht wurde von rkauskh am 28. Okt. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |