---

SchriftzugCatia.png

Hallo,

ich möchte gerne eine gebogenen Schriftzug / geschwungenen Text in ein Catia Part einfügen. Dieser soll an einem definierten Radius/Durchmesser entlang laufen. Im Anhang ist noch ein Bild aus einer Zeichnung wie der Text circa aussehen soll. Wie mache ich das?

Gruß
Christoph

[Diese Nachricht wurde von Christoph1001 am 27. Apr. 2016 editiert.]

[Diese Nachricht wurde von Christoph1001 am 27. Apr. 2016 editiert.]

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

---

Servus Christoph
Catia kann das leider nicht direkt.
Du hast meiner Ansicht nach folgende Möglichkeiten:
- Zusatztools für Gravuren können das teilweise
- für Text entlang eines Kreisbogens hat mal jemand ein Makro verfasst
- Text in einem externen Programm (zB Inkscape) erstellen und über ein Austauschformat in Catia importieren

Gruß
Bernd

PS: Bitte Systeminfo ergänzen.

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

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

---

Morgen,

Bernd war wieder schneller.

Du könntest hier mal auch nachlesen:
http://ww3.cad.de/foren/ubb/Forum134/HTML/003588.shtml#000010

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

---

Hallo,

danke für die schnelle Antwort. Was genau meinst du mit Zusatztools?
Mit Makros habe ich noch nie in Catia gearbeitet. Dafür brächte ich eine Schritt für Schritt Anleitung.
Ich arbeitet mit Catia V5 R24
Gruß
Christoph

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

---

Christoph, kannst du den Schriftzug hier hochladen?
In  Acad gehr das sehr wohl.
Sonst bitte eine PM schicken.

Alf-1234 

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

---

Servus Christoph
Zusatztool -> Kauflösungen als Makros/Anwendung zur Erweiterung von Catia
Lese dir bitte die beiden verlinkten Diskussionen durch.
Wie man Makros ausführt: siehe Doku

Gruß
Bernd

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

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

---

FehlerMakro.png

Hallo zusammen,

ich habe es mit folgendem Makro versucht:

Sub CATMain()
Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim specsViewer1 As Viewer
Set specsViewer1 = specsAndGeomWindow1.ActiveViewer

Set drawingDocument1 = CATIA.ActiveDocument

Set MySheet = CATIA.ActiveDocument.Sheets.ActiveSheet
Set MyView = MySheet.Views.ActiveView
Dim MyText As DrawingText

PI=4*atn(1)
radiant=PI/180

start=90                                          'Startwinkel

alpha = 360                                      'Vollkreis

Text ="AGB-Halter SN 2 222 222"

iFontSize = 2                                    'Textgrösse

anzahl =len(Text)                                'Anzahl Buchstaben

phi = alpha/anzahl                                'Neigungswinkel

beta = start-90                                  'Startwinkel für Neigung

r = 10                                            'Radius

i=0
for winkel = start*radiant to (start-alpha)*radiant step -phi*radiant
  txt = Mid(Text,i+1,1)
  phi1 = beta - i*phi
  x = r*cos(winkel)
  y = r*sin(winkel)

  Set MyText = MyView.Texts.Add(txt, 100+x,100+y)      '100,100 ist Mittelpunkt des Kreises
  MyText.Angle = phi1
  MyText.SetFontSize 0,  0, iFontSize
  MyText.AnchorPosition = catMiddleCenter
  i = i+1                                   
next

specsViewer1.ZoomIn
End Sub

Leider kommt immer die Fehlermeldung wie in dem Bild zu sehen. Was muss ich ändern?

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

---

Servus
Wahrscheinlich musst du nur das Makro als "CATScript" abspeichern und nicht als "CATvbs".
Das Makro erzeugt in der aktuellen Ansicht der Zeichnung den Text. Die Konfiguration (Position, Schrifthöhe, Ausrichtung, Text) muss du alles im Code anpassen.
Da ist das von imation1999 verlinkte Makro schon angenehmer.

Gruß
Bernd

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

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

---

Hallo

es funktioniert jetzt alles. Danke für eure Hilfe. Sogar beide Makros.
Gruß
Christoph

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