Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  vba - Text in CATDrawingsTextfeld einfügen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  vba - Text in CATDrawingsTextfeld einfügen (3944 mal gelesen)
Feyza
Mitglied



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von tberger an!   Senden Sie eine Private Message an tberger  Schreiben Sie einen Gästebucheintrag für tberger

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 08. Apr. 2011 10:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

Versuch es mal mit txtben1.value anstelle von .text

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

Feyza
Mitglied



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Thomas,

danke für Deine Rückantwort.

Leider kommt die gleiche Fehlermeldung.

------------------
Schöne Grüße
Feyza : )

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 08. Apr. 2011 11:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

Servus
IMHOIn my humble oppinion (Meiner Meinung nach) 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.Text

Oder ü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



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von Christian.O an!   Senden Sie eine Private Message an Christian.O  Schreiben Sie einen Gästebucheintrag für Christian.O

Beiträge: 1212
Registriert: 17.07.2009

erstellt am: 08. Apr. 2011 11:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 08. Apr. 2011 11:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 08. Apr. 2011 12:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Feyza 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von Feyza an!   Senden Sie eine Private Message an Feyza  Schreiben Sie einen Gästebucheintrag für Feyza

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz