---

Hallo,
bin auf der einsamen Suche nach einem Befehl.

Ich möchte in einer Zeichnungs-Tabelle ein Symbol (z.B. Symmetrie ) einfügen. Manuell, über "TextProperties";"InsertSymbol" ist das kein Problem.
Wie schaffe ich das aber über ein VBA-Makro?

Über nützliche Hinweise wäre ich sehr dankbar.

Danke.

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

---

Hallo VBAler,

wie ich mir dachte, ist die Theorie die gleiche wie in V4 - Text mit speziellem Font- , doch die Nachforschungen dauerten leider etwas.

Fazit: Auch in V5 sind Symbole NUR Text-Charakter mit einem speziellen Font.
Als Beispiel habe ich Dir mal ein Script mit dem Symbol "Symmetrie" gezimmert:

Code:

---

Sub CATMain()

    Dim drawingDocument1 As DrawingDocument
    Set drawingDocument1 = CATIA.ActiveDocument
   
    Dim processView As DrawingView
    Set processView = drawingDocument1.Sheets.ActiveSheet.Views.ActiveView
   
    Dim dimText As DrawingText
    Set dimText = processView.Texts.Add(ChrW(9007), 10, 10)
    dimText.SetFontName 0, 0, "SYM2"
   
End Sub

---

Falls Du die UNICodes zu den Symbolen suchst, schau mal hier: http://www.fh-oow.de/fbi/we/aict/ict/catiav5/ISO_FHWHV-R17.xml


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,

danke für den Beitrag. Hat super funktioniert.
Der Link hat mich ebenfalls enorm weitergebracht.

MfG

VBAler

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