---

FehlermeldungMethodebeiText.jpg

Hallo Catia-Gemeinde!

Mit folgendem Makro wechsel ich in den Blatthintergrund.
Dort möchte ich den Text TitleBlock_Text_Projektnr-u-Bezeichnung auslesen, und bearbeitet zurückschreiben.
Nur scheitere ich schon am Auslesen bzw. bekomme ich beiliegende Fehlermeldung zu MsgBox.

So schwer kann es wohl nicht sein!

Vielleicht könntet Ihr mir auf die Sprünge helfen?

MfG  Stephan

Sub CATMain()
Dim Doc As Document
Set Doc = CATIA.ActiveDocument
Dim drwsheets As DrawingSheets
Set drwsheets = CATIA.ActiveDocument.Sheets
Set drwsheetsorder =  CATIA.ActiveDocument.DrawingRoot
'Set sheet1 = drwsheets.item(1)
'Set sheet2 = drwsheets.item(2)
' newsheetorder = Array(sheet2, sheet1)
' drwsheetsorder.reorder_Sheets(newsheetorder)

'CATIA.ActiveDocument.DrawingRoot.GetActiveSheet
Dim Blattmenge As Integer
Dim X As Integer
Blattmenge = CATIA.ActiveDocument.Sheets.Count
MsgBox("Blattmenge =  " & Blattmenge )
Dim ActuSheet As DrawingSheet
Dim DrwTexts As DrawingTexts
Dim ActuText As DrawingText

For X =1 To Blattmenge
Set ActuSheet = drwsheets.item(X)
ActuSheet.Activate 'Set SheetToWorkIn =  MyDrawingDoc.Sheets.ActiveSheet
MsgBox("aktives Blatt =  " & X)

Set drwviews = ActuSheet.Views
Set mainview = drwviews.item(1)
Set backview = drwviews.item(2)
backview.Activate
Set DrwTexts = backview.Texts

Set ActuText = DrwTexts.Texts.Item(2)
'Set ActuText = DrwTexts.Item(1).Text
'Set ActuText = DrwTexts.Texts("TitleBlock_Text_Projektnr-u-Bezeichnung").Text
'Set ThisDrawingText = backview.Texts.Item(2)
'ActuText = DrwTexts.Item("TitleBlock_Text_Projektnr-u-Bezeichnung").Text
MsgBox("ActuText =  " &  ActuText )

Next
End Sub

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

---

Servus
Lass mal das "Texts" (ist sonst doppelt) weg:

Code:

---

Set ActuText = DrwTexts.Item(2)

---

Die passt eher ins Programmier-Forum.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

FehlermeldungEigenschaftuMethodebeiText.jpg

Hallo Bernd!

Danke für Deine Antwort!
Jetzt sieht das Makro so aus:

Sub CATMain()
Dim Doc As Document
Set Doc = CATIA.ActiveDocument
Dim drwsheets As DrawingSheets
Set drwsheets = CATIA.ActiveDocument.Sheets
Set drwsheetsorder =  CATIA.ActiveDocument.DrawingRoot

Dim Blattmenge As Integer
Dim X As Integer
Blattmenge = CATIA.ActiveDocument.Sheets.Count
MsgBox("Blattmenge =  " & Blattmenge )
Dim ActuSheet As DrawingSheet
Dim DrwTexts As DrawingTexts
Dim ActuText As DrawingText

For X =1 To Blattmenge
Set ActuSheet = drwsheets.item(X)
ActuSheet.Activate 'Set SheetToWorkIn =  MyDrawingDoc.Sheets.ActiveSheet
MsgBox("aktives Blatt =  " & X)

Set drwviews = ActuSheet.Views
Set mainview = drwviews.item(1)
Set backview = drwviews.item(2)
backview.Activate
Set DrwTexts = backview.Texts

'Set ActuText = DrwTexts.Texts.Item(1)
'Set ActuText = DrwTexts.Item(1).Text
'Set ActuText = DrwTexts.Texts("TitleBlock_Text_Projektnr-u-Bezeichnung").Text
'Set ActuText = backview.Texts.Item(2)
'ActuText = DrwTexts.Item("TitleBlock_Text_Projektnr-u-Bezeichnung").Text

Set ActuText = DrwTexts.Item(1)
MsgBox("ActuText =  " &  ActuText )

Next
End Sub

'TitleBlock_Text_Projektnr-u-Bezeichnung
'`Blatt .1\Background View\DrwDressUp.1\TitleBlock_Text_Projektnr-u-Bezeichnung\Activity`
'`Blatt .1\Main View\Name` Main View
'`Blatt .1\Background View\Name` Background View

Es kommt ein Fehler, wie im Anhang zu sehen ist: "Das Objekt unterstützt diese Eigenschaft oder Methode nicht".
Die MsgBox kann ActuText sicher nicht ohne Grund nicht darstellen.
Vielleicht kommt man über die Parameter heran, wobei meine Versuche fehl schlugen.

MfG  Stephan

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

---

Servus
Welche Zeile ist diese mit dem Fehler?
IMHO liefert dir ActuText nur das Text-Objekt und nicht den String selbst zurück.
Probiere es mal so:

Code:

---

MsgBox("ActuText =  " &  ActuText.Text )

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Danke für diesen Hinweis, nun kann ich

- den Textinhalt auslesen:
Set ActuText = DrwTexts.Item(X)
MsgBox("ActuText =  " &  ActuText.Text )
ActuTextString  =ActuText.Text
MsgBox("ActuTextString  =  " &  ActuTextString )

- den Textinhalt zuweisen:
ActuText.Text = "Gehäuse S re./li."
!
Die Zeichnungen waren an verschiedenen Tagen erstellt worden.
Nun fiel mir auf, dass der DrawingText eine Bezeichnung bzw. Komponentennamen hat (z.B. TitleBlock_Text_DDate_1).
Wenn ich über den Komponentennamen an den Text heran käme, wäre das sehr praktisch.
Mit beiliegenden Bild wird vielleicht deutlicher, was ich meine.

MfG  Stephan

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

---

Komponentenname.jpg

Sorry, Ždas Bild!

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

---

Servus
IMHO geht das leider nicht.
Entweder eine Schleife über die Texts-Collection laufen lassen und entsprechende Text "suchen".
Oder über die Suche den Text selektieren lassen. (ggf zunächst Ansicht selektieren und dann in Selektion suchen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Mit den vorliegenden Mitteln ist die Aufgabe schon komfortabel zu machen.

Dir , Bernd, ein abschließens Großes Danke!

MfG  Stephan

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