---

Hallo Zusammen,

ich habe in meinem CATDrawing einen Textfeld.
Als Attribute ist es als Text.177 und defniert habe ich es als Benennung(Textfeld rechte Maustaste--> Defnition --> Benennung reingeschrieben)

Ich habe hier im Form 2 Beispiele gefunden.
Aber irgendwie übernimmt er mir den Inhalt von meinem Textfeld in VBA nicht oder bringt mir eine Fehlermeldung, wie

Fehler beim Komplilieren
Unzulässige Verwendung einer Eigenschaft

Worauf muß ich hier noch achten?

  Dim Benennung As DrawingText
  Set Benennung.Text = Benennung.Add(txtben1.Text, 160.732, 43.152)

Danke für Eure Unterstützung

Schöne Grüße
Feyza : )

------------------
   

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

---

Hallo nochmal an Alle,

kann mir wirklich keiner weiter helfen?! 

Schöne Grüße
Feyza

------------------
   

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

---

Hallo Feyza,

so gehts:

Gibt es den Text in CATIA noch nicht, so muß er neu erzeugt werden:

Dim oTexts As DrawingTexts
Set oTexts = ActiveDocument.Sheets.Item(xxx).Views.Item(yyy).Texts
Dim Benennung As DrawingText
Set Benennung = oTexts.Add(txtben1.Text, 160.732, 43.152)

Ist der Text bereits vorhanden und soll nur den Wert aus VB übernehmen, dann so:

Dim Benennung As DrawingText
Set Benennung = oTexts.GetItem("Text.177")
Benennung.Text = txtben1.Text

Am besten ist es , wenn man dem CATIA-Text einen speziellen Namen gibt (über die Eigenschaften des Textes). Dann kann er auch im Programmcode besser identifiziert werden.
z.B.:

Dim Benennung As DrawingText
Set Benennung = oTexts.GetItem("mein spezieller TextName")
Benennung.Text = txtben1.Text

Gruß
Steffen

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

---

makro-vba.jpg

Hallo Steffen,

danke Dir für Deine Antwort.
Ich bekomme aber die Fehlermeldung Laufzeitfehler '91'

bei der Zeile

Dim oTexts As DrawingTexts
Dim Benennung As DrawingText
hier --> Set Benennung = oTexts.GetItem("Text.177")
Benennung.Text = txtben1.Text

Ich habe statt dem Punkt auch Benennung drin stehen gehabt.
Aber trotzdem schreibt es den Text nicht in den Textfeld.

siehe Bild1 zur Verdautlichung

Danke.
Schöne Grüße
Feyza : )

------------------
   

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