---

Textzentrieren1.jpg

Hallo Catia-Gemeinde!

Beim nachträglichen Ausrichten von Text im Blatthintergrund bekomme ich eine Fehlermeldung (siehe Anhang).
Das Ändern der Textgröße unmittelbar vorher klappt.
In der Dokumentation steht folgendes:

Property Justification( ) As CatJustification 

Returns or sets the drawing text font justification property.
True if the drawing text font is justified.
Example:
This example sets the Justification type of the MyText drawing text to the right
MyText.Justification = catRight

Hier mein Code:

Dim iFontSize As Real
iFontSize = 2.5
DrwTexts.GetItem("TitleBlock_Text_Kunde-Kürzel").SetFontSize 0, 0, iFontSize
'Vorlage    MyText.Justification = catRight
DrwTexts.GetItem("TitleBlock_Text_Kunde-Kürzel").Justification = catRight  'catCenter

Scheinbar ist das Ausrichten von Texten kein Thema, sodass ich in den bisherigen Beiträgen nichts fand.
Habt Ihr eine Idee, wo ich Fehler im Code habe?

MfG  Stephan

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

---

Servus
Das gehört eigentlich ins Forum CATIA Programmierung.
Ändere mal die Zeile:

Code:

---

DrwTexts.GetItem("TitleBlock_Text_Kunde-Kürzel").TextProperties.Justification = catRight

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 20. Mai. 2014 editiert.]

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

---

Hallo Bernd!

Danke für den Tipp, so gehtŽs!
Um dann die Eigenschaft sichtbar zu machen, musste nur noch das Update angefügt werden:

----------------------------------------------------------------------
DrwTexts.GetItem("TitleBlock_Text_Kunde-Kürzel").TextProperties.Update
----------------------------------------------------------------------

Dir noch einen schönen Tag!

Stephan

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