Autor
|
Thema: vba - Text in CATDrawingsTextfeld einfügen (3944 mal gelesen)
|
Feyza Mitglied
Beiträge: 605 Registriert: 12.01.2004 CATIA Catia V5-R6 R2014 - Windows Win/Windows Server 2008 AutoCAD Mechanical 2014 Oracle VB.NET
|
erstellt am: 08. Apr. 2011 10:45 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich möchte gerne in Catia V5 R19 über vba, von einem Textfeld (txtben1), das auf einer Form ist, in einem CATDrawing in einem Textfeld (Text.177) den Inhalt von dem Textfeld - txtben1 reinschreiben. Dim Benennung As DrawingText Set Benennung = Benennung.GetItem("Text.177") Benennung.Text = txtben1.Text Er bringt mir aber folgende Fehlermeldung: Laufzeitfehler '91' Objektvariable oder With-Blockvariable nicht festgelegt
Könntet Ihr hier bitte mir weiterhelfen. Danke vielmals.
------------------ Schöne Grüße Feyza : ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tberger Mitglied Application Manager CATIA V5 / V6
Beiträge: 1385 Registriert: 13.01.2007 WIN 7 64bit V5R21SP3HF49 3DX/V6 R2016x
|
erstellt am: 08. Apr. 2011 10:57 <-- editieren / zitieren --> Unities abgeben: Nur für Feyza
|
Feyza Mitglied
Beiträge: 605 Registriert: 12.01.2004 CATIA Catia V5-R6 R2014 - Windows Win/Windows Server 2008 AutoCAD Mechanical 2014 Oracle VB.NET
|
erstellt am: 08. Apr. 2011 11:00 <-- editieren / zitieren --> Unities abgeben:
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 08. Apr. 2011 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für Feyza
Servus IMHO musst du das Blatt und die Ansicht angeben wo der Text sind. Dann kannst du über Item auf das Textfeld greifen. zB: Dim Benennung As DrawingText Set Benennung = CATIA.ActiveDocument.sheets.item(1).views.item(2).texts.item("Text.177") Benennung.Text = txtben1.TextOder über eine Selektion das Textfeld suchen:
Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = drawingDocument1.Selection selection1.Search "(Name=Text.177 & CATDrwSearch.DrwText),all" Gruß Bernd
------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Feyza Mitglied
Beiträge: 605 Registriert: 12.01.2004 CATIA Catia V5-R6 R2014 - Windows Win/Windows Server 2008 AutoCAD Mechanical 2014 Oracle VB.NET
|
erstellt am: 08. Apr. 2011 11:35 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, danke Dir für Deine Hilfe. Ich möchte meinen Schriftkopf, der im Hintergrund ist, ausfüllen. Hier ist leider kein Ansicht dabei, dann bringt er Fehlermeldung. Gibt es eine andere Möglichkeit einen Textfeld im CATDrawing auszufüllen. ------------------ Schöne Grüße Feyza : ) [Diese Nachricht wurde von Feyza am 08. Apr. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian.O Mitglied Konstrukteur
Beiträge: 1212 Registriert: 17.07.2009
|
erstellt am: 08. Apr. 2011 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für Feyza
Servus, dann mußt den Weg über die Suche gehen und damit arbeiten. Code: Dim drwText As DrawingText Set drwText = objSel.Item(1).Value drwText.Text = txtben1.Text
------------------ Mit freundlichen Grüßen aus Tirol Christian Obholzer Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 08. Apr. 2011 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für Feyza
Servus AFAIR ist Views.item(1) immer der Vordergrund und Views.item(2) der Hintergrund. "Normale" Ansichten sind dann item(3) und folgende Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Feyza Mitglied
Beiträge: 605 Registriert: 12.01.2004 CATIA Catia V5-R6 R2014 - Windows Win/Windows Server 2008 AutoCAD Mechanical 2014 Oracle VB.NET
|
erstellt am: 08. Apr. 2011 12:24 <-- editieren / zitieren --> Unities abgeben:
Hallo, bei: Dim Benennung As DrawingText Set Benennung = CATIA.ActiveDocument.Sheets.Item(1).Views.Item(3).Texts.Item("Benn1") Benennung.Text = txtben1.Text kommt folgende Fehlermeldung: Laufzeitfehler '2147352565 (8002000b)': The method Item failed ----------------------------------------- Bei:
Dim drwText As DrawingText Set drwText = objSel.Item(1).Value drwText.Text = txtben1.Text Fehlermeldung: Object erforderlich ------------------ Schöne Grüße Feyza : ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 08. Apr. 2011 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Feyza
Servus Scheinbar kann man nicht über den Namen (bei Item) direkt auf das Textfeld zugreifen. Also am einfachst die Selektion/Suche verwenden. Und z deinem Code der Suche: welche Suche hast du durchgeführt? Wenn du im VBA-Editor programmierst kannst du dort die Variablen im Watch oder Local-Fenster untersuchen. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. [Diese Nachricht wurde von bgrittmann am 08. Apr. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Feyza Mitglied
Beiträge: 605 Registriert: 12.01.2004 CATIA Catia V5-R6 R2014 - Windows Win/Windows Server 2008 AutoCAD Mechanical 2014 Oracle VB.NET
|
erstellt am: 11. Apr. 2011 08:08 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Zusammen, vielen Dank für Eure Hilfe. Eigentlich stand alles oben : )) vielen vielen Dank für Eure Hilfe: Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim selection1 As Selection Set selection1 = drawingDocument1.Selection selection1.Search "(Name=Benenn1 & CATDrwSearch.DrwText),all" Dim drwText As DrawingText Set drwText = selection1.Item(1).Value drwText.Text = txtben1.Text
MsgBox ("Ausgeführt") ------------------ Schöne Grüße Feyza : ) [Diese Nachricht wurde von Feyza am 11. Apr. 2011 editiert.] [Diese Nachricht wurde von Feyza am 11. Apr. 2011 editiert.] [Diese Nachricht wurde von Feyza am 11. Apr. 2011 editiert.] [Diese Nachricht wurde von Feyza am 11. Apr. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |