---

Fehlermeldung.jpg

Hallo,

ich möchte in einem neu erstellten Textfeld die Schriftfarbe
von schwarz nach blau ändern.

Hier http://ww3.cad.de/foren/ubb/Forum137/HTML/003086.shtml
letzter Beitrag funktioniert es.

Bei folgendem Code geht es nicht.

Fehlermeldung: Das Objekt MyText1 unterstützt die Eigenschaft VisProperties nicht.

'*************************************************************************
Sub CATMain()
 
x = "Textfeld 1"
y = "Textfeld 2"

Set oDrawing = CATIA.Documents.Add("Drawing")
Set oSheet = oDrawing.Sheets.ActiveSheet
Set oView = oSheet.Views.ActiveView

'-------------Textfelder erzeugen

Set MyText1 = oView.Texts.Add(x, 200.,200.)

Set MyText2 = oView.Texts.Add(y, 200.,150.)

'------------Textfelder formatieren

MyText1.Name = "Partnumber" 
MyText2.Name = "Partname" 

MyText1.SetFontName 0,  0, "CATIA Symbols"
MyText2.SetFontName 0,  0, "CATIA Symbols"

MyText1.VisProperties.SetRealColor 0, 0, 255, 0

'------------Reframe

Set specsAndGeomWindow1 = CATIA.ActiveWindow
Set specsViewer1 = specsAndGeomWindow1.ActiveViewer
specsViewer1.Reframe

End Sub
'**************************************************************

Die Fehlermeldung ist in der Zeile

MyText1.VisProperties.SetRealColor 0, 0, 255, 0.

Wenn man das Textfeld suchen lässt und dann die
Eigenschaft Textfarbe zuweist so:

'*******************************************
Set oText = CATIA.ActiveDocument.Selection

oText.Search "Drafting.Text.Name = 'Partnumber', all"

oText.VisProperties.SetRealColor 0, 0, 255, 0
'*******************************************

funktioniert es.

Das ist der Punkt den ich nicht verstehe.
So will ich es auch nicht machen, da es mir
umständlich erscheint.

Kann mir jemand in groben Zügen sagen warum das
so ist?

Viele Grüsse HaWu

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

---

Hallo hawu,

die Methode VisProperties.SetRealColor steht nur einer Selektion zur Verfügung. Du versuchst aber dem Objekt MyText1 diese Methode aufzudrücken das kann nicht funktionieren.

Definier dir eine Selektion, weise dieser das TextBox Objekt zu und ändere dann die VisProperties.

Code:

---

Set oSel = CATIA.ActiveDocument.Selection
oSel.Add MyText1
oSel.VisProperties.SetRealColor r,b,g, 1

---

EDIT:

In dem von dir erwähnten Thread ist myList eine Selektion und deswegen funktioniert es da (Dim myList As Selection)

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

[Diese Nachricht wurde von denyo_1 am 17. Dez. 2008 editiert.]

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

---

Das bringt Licht ins Dunkel

Danke und Viele Grüsse

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