---

Hallo Leute,
ich habe einen Frame und möchte dass mit Hilfe von Makrobefehle die Textfelder erstmal gesucht werden und danach bearbeiten werden.
Weiß jemand vielleicht wie die Befehle dafür lauten?
Ich danke euch im Voraus...
MFG
BM

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

---

Servus,

dieser Link sollte dir helfen.

PS: nächstes mal zuerst die SuFu verwenden

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo Christian.
Ich habe die Befehle mal ausprobiert aber ich weiss nicht ich kann die Textfelder immernoch nicht bearbeiten?

oView.Texts.GetItem("Text.111").Text = "hier kommt der inhalt" könnte ich nicht ganz einbauen, weil es immerwieder fehlermeldungen zeigt.

Ich danke dir schon im Voraus.
MFG
BM
Language="VBSCRIPT"

Sub CATMain()

'---- Begin resolution script for object : Text.120

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Background View")

Dim drawingTexts1 As DrawingTexts
Set drawingTexts1 = drawingView1.Texts

Dim drawingText1 As DrawingText
Set drawingText1 = drawingTexts1.Getitem("Text.73")

Dim j As Integer
Dim oText As DrawingText
Dim ocText As DrawingTexts

'Dim oView As DrawingView
Set ocText = drawingView1.Texts
For j = 1 To ocText.Count
Set oText = ocText.Item(j)

If oText.Text = "gesuchter text" Then
  oText.Text = "ersatz text"
End If

next

End Sub

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

---

Hallo,

wenn das so eine Art Schriftfeld-Editor werden soll, könnte man es evtl. so machen. Zunächst die Collection der DrawingTexts durchgehen.
In diesem Beispiel haben alle relevanten Drawingtexte mehr oder weniger sprechende Namen bekommen.

For i = 1 To drawingTexts1.Count
Set drawingText1 = drawingTexts1.Item(i)
If drawingText1.Name = Ae_gndt Then
  Text1_GDt.Text = drawingText1.Text
End If
.
.
hier kommt die Suche nach weiteren benannten Texten
.
.
next i

Hier wird jeder Schriftfeld-Text in ein Textfeld (Text1_GDt.Text) einer User-Form geladen. Die Variable Ae_gndt beinhaltet z.B. den Namen des CATIA-Textes der den Änderungsgrund beinhaltet.

Hier können sie geändert werden und mit

For i = 1 To drawingTexts1.Count
Set drawingText1 = drawingTexts1.Item(i)
If drawingText1.Name = Ae_gndt Then
  drawingText1.Text = Text1_GDt.Text
End If
.
.
.
.
next i

und wieder alle zurück in die Drawing geschrieben.

mfg
RAA

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