---

Hi!

Gibt es einen Befehl, mit dem man ein Wort ( also Text) mit einem Rechteck versehen kann?

Danke

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

---

Was sagt die Online-Doku?

Und füll doch mal deine Systeminfo aus.

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

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

---

Wo finde ich die Online-Doku?

Was soll die Systeminfo denn sein?

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

---

Die Online-Doku findest du auf deinem Rechner. Da ich ihn nicht installiert habe, kann ich dir den genauen Pfad nicht sagen. Standardmäßig irgednwas mit C:/Programme/DassaultSystems/...

Die Systeminfo beinhaltet Release, Servicepack, Hotfix, Hardware-Konfiguration (besonders Graphikkarte), Betriebssystem. Dafür gibt es ein eigenes Feld im Profil.

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

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

---

Wenn es in dieser Doku stünde, würde ich die Frage hier nicht mehr stellen :-). Ich dachte irgendwo gäbe es noch eine.

Danke

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

---

Servus
Standardmäßig legt die Doku zur Programmierung unter:
%CATIA_INSTALLATONSVEREICHNIS%\intel_a\code\bin\V5Automation.chm

Gruß
Bernd

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

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

---

Zitat:

---

Original erstellt von Tweety79:
Wenn es in dieser Doku stünde, würde ich die Frage hier nicht mehr stellen :-). Ich dachte irgendwo gäbe es noch eine.

Danke

---

Bei mir steht es aber in der Doku. Zumindest von der R18-Doku. Womit wir wieder bei der Systeminfo wären.

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

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

---

Servus
Mir Sicherheit steht das in der Doku (kleines Beispiel siehe hier)

Gruß
Bernd

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

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

---

Hi!

Ist schon gut. Ich finde es schon heraus.

Danke.

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

---

Hallo Tweety,

hier ein paar Beispiele, wie man text formatieren kann.

Text wird auf einem aktiven(geöffnet und aktives Fenster)

DrawingDocument erzeugt.

'**************************************************
Sub CATMain()
 

x = "Textfeld 1"

Set oDrawing = CATIA.ActiveDocument

Set oSheet = oDrawing.Sheets.ActiveSheet

Set oView = oSheet.Views.ActiveView

'-------------Text erzeugen

Set MyText1 = oView.Texts.Add(x, 200.,200.)
 
'-------------Fonttyp auswählen

MyText1.SetFontName 0,  0, "CATIA Symbols"

'-------------Frame hinzufügen

MyText1.ActivateFrame catRectangle

'------------Textfarbe ändern

Set oSel = CATIA.ActiveDocument.Selection

oSel.Add MyText1

oSel.VisProperties.SetRealColor 0, 0, 255, 0

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

Viele Grüsse HaWu

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

---

Danke dir Hawu. Inzwischen habe ich es auch herausgefunden.

Woran ich jetzt bin, ist heraus zu finden, ob man nur ein einzelnes Wort aus dem Text ins Rechteck sezten kann.

Das gelingt mir noch nicht.

Gruß

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

---

Hi,
schau mal, ob du es von Hand kannst. Wenn das schon nicht geht, kannst du es auch nicht programmieren.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

---

Hi,

ich verstehe nicht ganz, was du meinst. Warum sollte ich nicht in einem Satz ein Wort einkreisen oder in meinem Fall eben ein Rechteck drum setzen?

Es geht ja auch dass ich drei Worte, die ich untereinander schriebe zusammen ins Rechteck setze. So kann ich doch auch nur die erste Zeile ins Rechteck setzen.

Ich habe z.B. jetzt vorliegen wie folgt:

Set dText = DrawingView.Texts.Add ("Punkt = " & refpoint1.Name & Chr(13) & Chr(10) & "X="... )
dText.ActivateFrame catRectangle

Damit habe ich eben den gesamten TExt aus der Klammer im Rechteck.

Was ich will, ist, dass "Punkt" im Rechteck erscheint.

SG

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

---

hi tweety,

dann 2 Textfelder machen, oder linien mit
factory2d zeichnen.

grüsse harry

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

---

Hi!

Mit zwei TExtfeldern und auch mit Linien zeichnen habe ich es auch scon versucht. Das Programm macht das auch, aber der TExt ist auf einer Führungslinie. Wenn ich noch ein TExtfeld erstelle, ist dieser nicht mehr mit der Führungslinie verbunden. Dasselbe gilt für die Linien. Bewege ich die Führungslinie mit dem TExt, gehen die Linien nicht mit.

Gruß

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

---

Servus
Vielleicht kannst du mit "SetParameterOnSubString" auch direkt den Text (im Textfeld) umranden.
Wenn nicht müsstest du eine Postionsverknüpfung zwischen den Textfeldern erzeugen (keine Ahnung wie das geht).

Gruß
Bernd

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

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

---

Habe die Lösung selbst gefunden.
Vielen Dank.

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

---

Und wie ist die?

Vielleicht können andere die ja auch mal gebrauchen.

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5

Wie stelle ich meine Fragen richtig?

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

---

Ich habe meine Lösung nun getestet und kann sie öffentlich kund tun, für alle, die vielleicht auch so ein Problem haben ( hätte ich auch ohne "Auffforderung" gemacht!).

Also will man im Text nur einzelne Wörter ins Rechteck setzen, z.B. nicht das gesamte
"dd dd", sondern je 2 dd, geht man wie folgt vor:

Set dText = DrawingView.Texts.Add("dd dd", 0, 0)
dText.SetParameterOnSubString catBorder, 1, 2, catRectangle
dText.SetParameterOnSubString catBorder, 4, 2, catRectangle

Die Zahlen stehen für Anfang und Ende des Rechtecks; 1 - am ersten "d", 2,weil das "Wort" zwei Buchstaben hat. Dann kommt eine Leerstelle-das wäre 3, also fängt das nächste Rechteck bei 4 an und hat zwei Stellen.

Mein Problem war, dass ich keine "reinen" Wörter hatte, sondern aus dem Modell abgegriffene Koordinaten und Namen. Da geht's auch. Hier mein konkretes Beispiel:

Set dText = DrawingView.Texts.Add (" Punkt  " & refpoint1.Name&"      " & Chr(13) & Chr(10) & "  X    " &" " &FormatNumber(Round(CStr(koords1(0)),1),1).....)
dText.SetParameterOnSubString catBorder, 1,8, catRectangle
dText.SetParameterOnSubString catBorder, 9,34, catRectangle
dText.SetParameterOnSubString catBorder, 35,43, catRectangle
dText.SetParameterOnSubString catBorder, 44,67, catRectangle
dText.SetParameterOnSubString catBorder, 68,75, catRectangle

Im Text und bei den Rechtecken fehlen hier die Y und Z Koordinate, aber das ist das selbe wie bei X.

Hoffentlich habe ich dem einen oder anderen etwas geholfen.

Grüße

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

---

Servus
Danke für die Vorstellung der Lösung.
Kleiner Hinweis:
Mit zB. dText.IndexOf(" X  ") könntest du direkt die Position des Strings " X  " feststellen. Dann müsstest du nicht zählen und das Script würde sich auch an dynamische ändernde Strings (zB längerer Punktenamen) anpassen.

Gruß
Bernd

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

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