---

hallo zusammen
ich bin neu auf dieses forum, und kein Deutscher, also entschüldingung für meine Sprache.

Ich habe ein Problem mit einem Makro. Ich will ein Text in Drawing im Italic schreiben. Ich habe mit dem flogenden Skript versucht, aber es funktionniert nicht:

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
Set ActiveView = drawingSheet1.Views.Item(1)
Dim collection_textes As DrawingTexts
Set collection_textes = ActiveView.Texts
Dim Legende_texte As DrawingText
Set Legende_texte = collection_textes.Add("TEST", 1, 1)

Legende_texte.SetFontName 0 ,0 , "SSS1"

Legende_texte.SetFontSize 0, 0, 4.24

'1st Lösung
Legende_texte.Italic = 1       'Das funktionniert nicht

'2nd Lösung
Legende_texte.SetParameterOnSubString catItalic,1,4,1     'Das funktionniert auch nicht

End Sub

Hätte jemand eine andere Idee?
Vielen Dank im vorraus

MfG
Florent

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

---

Mit welcher V5 Version arbeitest Du ? Mit der R15 gibt es im Font Bereich etliche Probleme, vielleicht liegt es daran.

Axel

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

---

Ich arbeite mit R14.

Aber ich habe ein Test mit R16 gemacht und ich habe die gleiche Fehlermeldung fur die erste Lösung:
- Object doesn't support this property or method : "Legende_texte.Italic"

Und die zweite Lösung schreibt im Fett (mit R14 und R16).    

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

---

Sorry ein Fehler von meiner Seite, mit der R16 gibt es Fontprobleme nicht mit der R15.

Axel

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

---

Hallo

Ich habe das mal mit folgenden Code ausprobiert und es funktionierte.

'Zeichungsnummer & Positionsnummer eintrage
'+++++++++++++++++++++++++++++++

Pos = InputBox(" Position")

Set DrwText = DrwTexts.Add(Pos, O_H + 88 + 40, 80)
DrwText.SetFontSize 0, 0, 5
DrwText.SetFontName 0, 0, "SSS1"
DrwText.SetParameterOnSubString catItalic, 0, 0, 1

Allerdings habe ich die drei Variablen nicht ganz verstanden.

Vielleicht liegt es an ihnen.

Martin

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

---

Hallo nochmal

Ich arbeite mit R14.

Martin

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

---

Für mich funktionniert die Lösung 2 mit Unix (R14 und R16) aber nicht mit PC(R14 und R16). 

Zitat:

---

Original erstellt von mkna:
DrwText.SetParameterOnSubString catItalic, 0, 0, 1

Allerdings habe ich die drei Variablen nicht ganz verstanden.

Martin[/i]

---

Fur Info:
MyText.SetParameterOnsubString iParam, iFirst, inbCharacter, ival
iParam : The drawing text property  (catItalic, catBold,...)
iFirst : The first character to which the property should apply
inbCharacter : The number of characters to which the property should apply
iParam=inbCharacter=0 : property applied to all characters

iVal : The value to be applied according to the property (1=on , 0=off)

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

---

Kann mkna nur bestätigen mit dem Code funktioniert es bei mir auch:

Code:

---

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument
Set drawingSheets1 = drawingDocument1.Sheets
Set drawingSheet1 = drawingSheets1.Item("Sheet.1")
Set ActiveView = drawingSheet1.Views.Item(1)
Dim collection_textes As DrawingTexts
Set collection_textes = ActiveView.Texts
Dim Legende_texte As DrawingText
Set Legende_texte = collection_textes.Add("TEST", 1, 1)

Legende_texte.SetFontName 0, 0, "SSS1"

Legende_texte.SetFontSize 0, 0, 4.24

Legende_texte.SetParameterOnSubString catItalic, 0, 0, 1

---

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Hallo nochmal,

um sicherzugehen hab ich es nochmal getestet.

Also ich hab R14SP6 getestet: ----> Funktioniert 
und  ich hab R16SP5 getestet: ----> Funktioniert 

mmh welches SP hast du drauf??

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Für mich:

Mit Unix
R14/SP5 ---> funktionniert
R16/SP4 ---> funktionniert

Mit PC (egal mit Windows SP1 or SP2)
R14/SP5 ---> funktionniert nicht (Ergebniss = Text im Fett)
R16/SP4 ---> funktionniert nicht (Ergebniss = Text im Fett)

es ist wahrscheinlich ein Problem mit meiner PC

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

---

Hallo florent,

ich denke auch, daß Du ein Problem mit der CATIA-Installation oder -Konfiguration hast, da normalerweise der "SSS1"-Font ein CATIA-interner Font ist, der gar nicht "fett" dargestellt werden kann! Daraus folgt, das dann dafür ein anderer herangezogen wird. Wahrscheinlich läßt sich der aber nicht "italic" (schräg) darstellen.
Probier es am besten mal mit einem anderen Font, z.B. dem (quasi) Standard-Font "Monospace821BT", da sollte es dann funktionieren!

mfg,
Lusilnie

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

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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