---

Hallo,

seh den Fehler gerade nicht.

Catia soll einfach das Textfeld auf der Zeichnung suchen in dem "xyz" steht und da "a" reinschreiben.

Sub CATMain()
   
        Dim oDoc As DrawingDocument
        Set oDoc = CATIA.ActiveDocument
        Dim oSheets As DrawingSheets
        Set oSheets = oDoc.Sheets
        Dim oSheet As DrawingSheet
        Set oSheet = oSheets.ActiveSheet
               
        On Error Resume Next
        Set oDoc = CATIA.ActiveDocument
        If Err.Number <> 0 Then
            On Error GoTo 0
            Box = MsgBox("Das geöffnete Dokument ist KEINE Zeichnung!" + Chr(10) + "Das Makro wird beendet", vbCritical, "Falscher Dateityp")
            Exit Sub
        End If
       
        Dim oTexts As DrawingTexts
        Set oTexts = oSheet.Texts
        Dim oText As DrawingText

        For i = 1 To oTexts.Count
        If oTexts.Item(i).Name = "xyz" Then
        Set oText.Item = "a"
        Exit For
        End If
               
End Sub

Danke

123student

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

---

müsste es nicht

Code:

---

If oTexts.Item(i).Name = "xyz" Then
        Set oTexts.Item(i).Name = "a"

---

lauten?

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

---

Hallo 123student,

den Inhalt des betreffenden Textfeldes, wenn du es zugewiesen hast bekommst du mit .Text :

If oTexts.Item(i).Text = "xyz" Then

Die Neubefüllung setzt du mit:

oTexts.Item(i).Text = "a"

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

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

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 22. Aug. 2011 editiert.]

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

---

Hallo,

Catia ändert den Inhalt des Textfeldes leider immer noch nicht.

Habe den Code folgendermassen geändert:

Sub CATMain()
   
        Dim oDoc As DrawingDocument
        Set oDoc = CATIA.ActiveDocument
        Dim oSheets As DrawingSheets
        Set oSheets = oDoc.Sheets
        Dim oSheet As DrawingSheet
        Set oSheet = oSheets.ActiveSheet
               
        On Error Resume Next
        Set oDoc = CATIA.ActiveDocument
        If Err.Number <> 0 Then
            On Error GoTo 0
            Box = MsgBox("Das geöffnete Dokument ist KEINE Zeichnung!" + Chr(10) + "Das Makro wird beendet", vbCritical, "Falscher Dateityp")
            Exit Sub
        End If
       
        Dim oTexts As DrawingTexts
        Set oTexts = oSheet.Texts
        Dim oText As DrawingText

        For i = 1 To oTexts.Count
        If oTexts.Item(i).Text = "xyz" Then
        Set oText.Item(i).Text = "a"
        Exit For
        End If
               
End Sub

Stimmt vielleicht etwas mit den Deklarationen nicht?

Danke

123student

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

---

Hallo 123student,

in deinem Script stimmt einiges nicht.

1. .Texts sind Objekte der Klasse View. Du kannst die nicht am Sheet anhängen
2. Versuche es mal mit meinem Script
3. Dieses Script geht aber auch nur auf das aktuelle Sheet. Baue eine weitere Schleife ein, wenn du über alle Sheets laufen möchtest um die Texte zu finden.

Sub CATMain()
   
Dim oDoc As DrawingDocument
Set oDoc = CATIA.ActiveDocument

Dim oSheets As DrawingSheets
Set oSheets = oDoc.Sheets
       
Dim oSheet As DrawingSheet
Set oSheet = oSheets.ActiveSheet

On Error Resume Next
               
Set oDoc = CATIA.ActiveDocument
     
If Err.Number <> 0 Then
    On Error GoTo 0
    Box = MsgBox("Das geöffnete Dokument ist KEINE Zeichnung!" + Chr(10) + "Das Makro wird beendet", vbCritical, "Falscher Dateityp")
    Exit Sub
End If
       
Dim oTexts As DrawingTexts
Dim oText As DrawingText

Dim oViews As DrawingViews
Set oViews = oSheet.Views
       
Dim oView As DrawingView

For h = 1 To oViews.Count
    Set oView = oViews.Item(h)
           
    Set oTexts = oView.Texts
       
    For i = 1 To oTexts.Count
        Set oText = oTexts.Item(i)
               
        If oText.Text = "xyz" Then
            oText.Text = "a"
            Exit For
       
        End If
    Next
   
Next

       
End Sub

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

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

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 22. Aug. 2011 editiert.]

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

---

Hallo,

vielen Dank jetzt funktioniert es.

hab zum ersten mal was im Drawing programmiert.

Vielen Dank für die Hilfe.

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