---

test.jpg

Hallo zusammen!

Weiss jemand, wie ich die vier eigenschaften (siehe rote kasten in anhang) per macro für einen text auf einer drawing einstellen kann?

Bin für jede Hilfe dankbar!

Grüße

Florent

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

---

Hallo Florent,

hier ein Auszug aus der Dokumentation zu diesem Thema:
Sub SetParameterOnSubString( CatTextProperty  iParam,
long  iFirst,
long  inbCharacter,
long  iVal)

Sets a property on a substring of the drawing text.
Parameters:
iParam
The drawing text property
iFirst
The first character to which the property should apply
inbCharacter
The number of characters to which the property should apply
iVal
The value to be applied according to the property
Example:
This example sets all MyText drawing text in bold character.
CatTextProperty iParam = catBold
iFirst = 0
inbCharacter = 0
ival = 1
MyText.SetParameterOnsubString iParam, iFirst, inbCharacter, ival

CatTextProperty (Enumeration)
enum CatTextProperty {
  catBold,
  catItalic,
  catUnderline,
  catOverline,
  catStrikethrough,
  catSubscript,
  catSuperscript,
  catFontSize,
  catParagraph,
  catPlain,
  catColor,
  catFontName,
  catBorder,
  catAlignment,
  catCharRatio
}

Habe bisher nur das CharRatio verwendet; Beispiel:

MyText.SetParameterOnsubString catCharRatio,0,0,70

Ich hoffe, das hilft dir weiter.

Gruß
Bertel

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

---

Super, es funktioniert!Vielen Dank!   

Für Info, funktionniert auch:
Text.SetParameterOnsubString catCharSpacing,0,0,70

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

---

TextProperties.jpg

Hallo Zusammen
bei mir will das einfach nicht funktionieren!

Benutzen im Moment V5R14SP7

Kann mir bitte jemand helfen!!!!!

Konkret will ich den Faktor auf 68% und den Abstand auf 25% ändern
siehe JPG

hier mein Script:

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
dim text as DrawingText
Dim selection1 As Selection

Set drawingDocument1 = CATIA.ActiveDocument
Set selection1 = drawingDocument1.Selection
selection1.Search "(CATTPSSearch.CATTPSText + CATDrwSearch.DrwText),all"

'bis hier hin funktioniert die Selektion
'-------------------------------------------------------------------------------------------------

' Test Farbe

' CATIA.ActiveDocument.Selection.visProperties.SetRealColor 255,0,255,0

' Farbe Funktioniert

'-------------------------------------------------------------------------------------------------

' Test Faktor

CATIA.ActiveDocument.Selection.visProperties.SetParameterOnsubString catCharSpacing,0,0,70

End Sub

[Diese Nachricht wurde von Hokay am 25. Okt. 2006 editiert.]

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

---

Hallo Hokay,

nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!
Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):

Code:

---

Dim K as Integer
For K = 1 to selection1.count
    selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70
Next

---

( Oder ohne ".Value" ?)

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

---

Hallo Lusilnie

Das funzt leider noch nicht.
Das Objekt unterstützt die Eigenschaft oder Methode nicht ...

Köntest Du (oder der Rest der Welt) mir weiterhin behilflich sein?

Gruß Heiko

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

---

Hallo Hokay,

1.deklariere erst eine Variable als DrawingText

also:

Dim BLABLA as DrawingText

2.Dann weisst du dem Object die Selection zu

Set BLABLA = Selection.Item(1).Value

3. Jetzt hast du die Selektion als DrawingText vorliegen und kannst normal wie oben beschrieben auf die Funktionen zugreifen.

Ist jetzt nicht gestetet aber müsste eigentlich einwandfrei funktionieren. Die Selektion sollte nach dem zuweisen wieder geleert werden.

versuchs mal, wenns nicht klappt dann stell den ganze Source-Code rein dann schau ichs mir mal an.

Hoffe das hat die weitergeholfen.

Gruß Timber

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

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

---

Hallo Timberwolve

Nun funktioniert der Script in den Grundzügen.
Danke schon einmal.

Der ZeichenFaktor läßt sich einstellen.

  Language="VBSCRIPT"
  Sub CATMain()

  Dim drawingDocument1 As Document
  dim text as DrawingText
  Dim selection1 As Selection

  Set drawingDocument1 = CATIA.ActiveDocument
  Set selection1 = drawingDocument1.Selection
  selection1.Search "(CATTPSSearch.CATTPSText + CATDrwSearch.DrwText),all"

  ' Test Faktor
  Dim ModText as DrawingText
  Dim k as Integer

  For k = 1 to selection1.count
    Set ModText = Selection1.Item(k).Value
    ModText.SetParameterOnsubString catCharRatio,0,0,68    'Schriftart Faktor
  Next

  End Sub

Aber wie kann ich nun den ZeichenAbstand (siehe .jpg weiter oben) noch ansprechen bzw. auf 25% stellen?

Wo findet man dazu eine Beschreibung?

Gruß Heiko

[Diese Nachricht wurde von Hokay am 26. Okt. 2006 editiert.]

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

---

Ich bin's nochmal
Ich versuch schon den ganzen Tag herum.
bei mir müsste dieser Eintrag:

ModText.SetParameterOnsubString catSpacing,0,0,25

dann auch noch den ZeichenAbstand verändern.

Das geht aber nicht ???

Der Text wird ledeglich Fett, sonst nix.

Was ist das falsch??

Brauch noch einmal dringend Hilfe.

Gruß Hokay

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

---

Hallo Zusammen,
Inzwischen habe ich herausgefunden / gesagt bekommen, dass mein Script im R16 läuft.

Das nützt mir aber nichts, da wir noch in R14 unterwegs sind. Und das auch aus anderen Gründen noch'n Stück sein werden.

Nun hier noch einmal meine Frage etwas anders formuliert.
Wie bekomme ich die Texteigenschaft Zeichenabstand unter R14SP7 geändert???

Mit freundlichen Grüßen
Heiko

Hier noch einmal der Script im Zusammenhang:

Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
dim text as DrawingText
Dim selection1 As Selection

Set drawingDocument1 = CATIA.ActiveDocument
Set selection1 = drawingDocument1.Selection
selection1.Search "(CATTPSSearch.CATTPSText + CATDrwSearch.DrwText),all"

' Texteigenschaften Zeichen-Faktor auf 68% und -Abstand auf 25% ändern
Dim ModText as DrawingText
Dim K as Integer

For k = 1 to selection1.count
Set ModText = Selection1.Item(k).Value

ModText.SetParameterOnsubString catCharSpacing,0,0,25    'Schriftart Abstand
ModText.SetParameterOnsubString catCharRatio,0,0,68    'Schriftart Faktor

Next

End Sub

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

---

Hallo zusammen,

inzwischen sind wir 1 Jahr älter und auf R16 umgestiegen. Jetzt geht alles wunderbar.
R14 hat da noch an manchen Stellen riesen Probleme.

Gruß und Danke an Alle

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