---

TextmitRahmen.JPG

Hallo CATIAner,

habe ein Spezial-Drawing-Script-Problem und versuche es in Worte zu fassen.
Also wenn ich, per Script,
code: text.ActivateFrame (catRectangle)
einen Rahmen um einen Text mache, wird um das Gesamte Textfeld ein Rahmen gezogen.
Gleiche Vorgehensweise wie Text selektieren (einmal links klicken) dann rechte Maustaste -> Properties -> (Reiter) Text -> Frame -> Rectangle

Ergebnis siehe Bild Pos.1

Wenn ich aber ein anderes Ergebnis erzielen möchte muss ich folgendes tun:
Text editieren (zweimal links klicken) -> Text Editor geht auf.
Dann rechte Maustaste auf Text (in der Zeichnung nicht im Texteditor) -> Properties -> (Reiter) Text -> Frame -> Rectangle

Ergebnis siehe Bild Pos.2

Ich denke für viele ist das neu aber vielleicht kennt jemand den code der die zweite Vorgehensweise abarbeitet.

Vielleicht irgendwas mit Selection aber ich komme einfach nicht weiter.
Danke im voraus.

------------------
Grüße aus dem Schwarzwald
Viktor

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

---

Hallo,

'wollte mich einfach noch einmal in Erinnerung rufen.
Weiss jemand irgendwas und wenn's nur ein Tip ist in welche Richtung ich weitersuchen soll?

Bin für alles dankbar.

------------------
Grüße aus dem Schwarzwald
Viktor

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

---

Hallo cevk,

ich habe genau das selbe Problem und keine Lösung. Auch wenn der Beitrag schon eine Zeit her ist, hätte jemand eine Lösung dafür?

Viele Grüße

Engin33r

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

---

Servus Engin33r

Willkommen im Forum. Bitte Systeminfo ausfüllen.
Ich vermute dass dies über die Methode SetParameterOnSubString geht.

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für die Antwort.

Mit GetParameterOnSubtring habe ich bereits einiges versucht, aber es haut nicht hin.

Um das Problem genauer zu erläutern:
Ich suche auf der Zeichnung nach Änderungsbuchstaben, also Textfeldern, die nur einen einzigen und bestimmten Buchstaben enthalten, z.B. "E". Da es aber auch Details oder Schnitte gibt, die eine Textbox mit dem selben Buchstaben "E" haben, werden diese mit ausgewählt.
Ich möchte nun Unterscheiden zwischen diesen beiden. Die Änderungsbuchstaben haben einen kreisförmigen Rahmen, der das möglich machen sollte. Dieser Rahmen wird aber nicht um die Textbox gelegt, sondern um den einzelnen Buchstaben selbst. Wenn ich Debugge, wird allerdings unter TextProperties der FrameType als "None" angezeigt. Aber irgendwo muss doch der Rahmen definiert sein?

Wenn ich beispielsweise den Text kursiv setze, gibt bekomme ich mit folgendem Code auch 1 zurück, dort funktioniert es:

Set oDrawingText = oSel.Item(1).Value
typ = oDrawingText.GetParameterOnSubString(catItalic, 0, 0)

Vielleicht hat noch jemand eine Idee?

Viele Grüße

Engin33r

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

---

Servus

Und wenn du über eine Schleife jedes Zeichen des Textes einzeln prüfst?
zB

Code:

---

Dim  iParam  as CatTextProperty
iParam = catBorder

for i = 0 to (Len(MyDrawingText.Text) - 1 )
  If MyDrawingText.GetParameterOnsubString(iParam, i, 1) <> catNone then
      MsgBox "Rahmen gefunden bei Zeichen " & CStr(i)
  end if
next

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für deine Hilfe, so funktioniert es!   

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