---

Hallo,
ich möchte mir gern eine Word Clock bauen. Nun fehlt mir noch eine Frontplatte.
Die wollte ich mit Inventor (2012) Zeichen. Mein Problem ist, dass ich die Buchstaben nicht ausgerichtet bekomm wie es auf dem bild zu sehen ist.

Ist das möglich mit dem Textfeld? Wenn ja wie?

Vielen Dank!

MfG

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

---

mit einem einzelnen Textfeld kriegt Du das nicht hin. Aber halt für jeden Buchstaben eines. Ist zwar aufwändig, aber geht so.

------------------
Gruß Lothar

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK Viersen

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

---

13-02-201211-02-14.png

Hi, hier mal ein kleines Makro ( natürlich ohne Fehlerbehandlung - wir wollen es ja nicht übertreiben    ):

Code:

---

Sub CreateTextPattern()
    Dim oSketch As Inventor.Sketch
    Set oSketch = ThisApplication.ActiveDocument.ActivatedObject

    Dim x, y As Double ' TextBox Koordinaten
    x = 1 ' X offset
    y = 1 ' Y offset

    Dim Letters As String ' Buchstaben
    Letters = "ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJK"
   
    Dim LetterPos As Integer ' text indexer
    LetterPos = 1
   
    Dim i, j As Integer ' Rechteck größe
    For i = 1 To 10
        For j = 1 To 11
            Call oSketch.TextBoxes.AddByRectangle(ThisApplication.TransientGeometry.CreatePoint2d(i * x, j * y), _
                                                    ThisApplication.TransientGeometry.CreatePoint2d(i * x + 1, j * y + 1), _
                                                    Mid(Letters, LetterPos, 1))
            LetterPos = LetterPos + 1 ' nächste Position
        Next
    Next
End Sub

---

Ein Bauteil öffnen und eine leere Skizze aktivieren. Mit ALT+F11 den VBA Editor starten und den Code in das Module1 einfügen. Mit F5 das Makro starten...

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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

---

Hey cool danke  Kann ich noch mit ein befehl die Schriftart verändern 

Sry kenn mich mit Inventor nicht so aus O:-)

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

---

ESKISTLbild.JPG ESKISTL.zip

Mit einem nichtproportionalen Zeichensatz (hier: Consolas) geht es auch so.

(Ups, Datei vergessen)
(Na, Durcheinander bei den Anhängen)

[Diese Nachricht wurde von Harry G. am 14. Feb. 2012 editiert.]

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

---

Zitat:

---

Original erstellt von Balu206:
Hey cool danke   Kann ich noch mit ein befehl die Schriftart verändern  

---

Ja:

Code:

---

Sub CreateTextPattern()
    Dim oSketch As Inventor.Sketch
    Set oSketch = ThisApplication.ActiveDocument.ActivatedObject

    Dim x, y As Double ' TextBox Koordinaten
    x = 1 ' X offset
    y = 1 ' Y offset

    Dim Letters As String ' Buchstaben
    Letters = "ABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJKABCDEFGHIJK"
   
    Dim LetterPos As Integer ' text indexer
    LetterPos = 1
   
    Dim i, j As Integer ' Rechteck größe
    For i = 1 To 10
        For j = 1 To 11
            Call oSketch.TextBoxes.AddByRectangle(ThisApplication.TransientGeometry.CreatePoint2d(i * x, j * y), _
                                                    ThisApplication.TransientGeometry.CreatePoint2d(i * x + 1, j * y + 1), _
                                                    Mid(Letters, LetterPos, 1))
                                                   
            oSketch.TextBoxes(LetterPos).FormattedText = "<StyleOverride Font='Arial' FontSize='1'>" & oSketch.TextBoxes(LetterPos).Text & "</StyleOverride>" ' Hier Font und Größe eingeben
            LetterPos = LetterPos + 1 ' nächste Position
        Next
    Next
End Sub

---

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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