Thema "Betreff: Inventor VBA Makro - Textfeld einfügen" in Inventor - Deutsches Forum

Inventor VBA Makro - Textfeld einfügen

Anonymous — Tue, 22 Sep 2020 10:31:24 GMT

Guten Tag,

ich bin auf der Suche nach einer Möglichkeit ein Textfeld, mit einem definierten Inhalt, automatisch in einer Zeichnung via Makro zu platzieren.

Das Textfeld soll beinhalten "Vorabzug - aktuelles Datum".

Das Property für das aktuelle Datum habe ich bereits gefunden.

Leider habe ich nicht gefunden, wie man ein Textfeld automatisch via Button auf eine Zeichnung platziert.

Könnte mir jemand da bitte weiter helfen?

Viele Grüße

Philipp

Betreff: Inventor VBA Makro - Textfeld einfügen

raith-mb — Tue, 22 Sep 2020 17:07:30 GMT

Hallo Philip,

erstell ein skizziertes Symbol mit deinem Text und dem Datum.

Füge das auf der Zeichnung ein. Datum kannst du auch als angeforderte Einagbe machen, dann kannst du auch ältere Stände erstellen.

Wenn es unbedingt mit Button sein muss: skizziertes Symbol über Makro einfügen.

Gruß Roland

Betreff: Inventor VBA Makro - Textfeld einfügen

Anonymous — Mon, 28 Sep 2020 07:07:50 GMT

Tut mir Leid, aber das ist nicht das was ich wollte.

Trotzdem besten Dank!

Betreff: Inventor VBA Makro - Textfeld einfügen

j_weber — Mon, 28 Sep 2020 09:08:44 GMT

Hallo @Anonymous

schau dir mal folgenden Beitrag aus dem englischen Forum an.

https://forums.autodesk.com/t5/inventor-customization/api-adding-text-on-drawing-that-moves-with-view/td-p/6023832

Da ist im ersten Code zu sehen, wie der Anwender eine ganze Reihe von Texten per VBA auf die Zeichnung positioniert.

Vielleicht hilft dir das ja weiter.

Betreff: Inventor VBA Makro - Textfeld einfügen

Anonymous — Tue, 29 Sep 2020 10:45:54 GMT

Besten Dank!
Nun habe ich es fast so wie ich es wollte 🙂
2 Fragen bzw. Features die ich noch brauche 😄
Hat jemand den Codeschnipsel für Schriftgröße und für Farbe (rot)?

Betreff: Inventor VBA Makro - Textfeld einfügen

Anonymous — Wed, 30 Sep 2020 05:50:20 GMT

Hier mal mein Makro. Ich benötige jetzt noch die Farbe des Textes in rot. Den Code muss ich noch etwas aufräumen, ja
Falls mir da jemand helfen könnte, wäre ich sehr dankbar 🙂

Sub Wasserzeichen()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oActiveSheet As Sheet
Set oActiveSheet = oDrawDoc.ActiveSheet

Dim oGeneralNotes As GeneralNotes
Set oGeneralNotes = oActiveSheet.DrawingNotes.GeneralNotes

Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
oDrawDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").Item("Creation Time").Value = Date

Dim sText As String
sText = "Example"
Select Case oDrawDoc.ActiveSheet.Size
Case kA3DrawingSheetSize
Dim oGeneralNote As GeneralNote
Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(23.9, 4.9), sText)
sText = Date
Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(24.4, 4.4), sText)

Case kA4DrawingSheetSize
Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(2.9, 4.9), sText)
sText = Date
Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(3.4, 4.4), sText)
End Select
End Sub

Betreff: Inventor VBA Makro - Textfeld einfügen

Martin-Winkler-Consulting — Sun, 04 Oct 2020 10:30:40 GMT

Hallo @Anonymous

so änderst du dann noch Farbe und kannst den Text formatieren.

Ich habe das bei A3 ergänzt. Es scheint mir auch sinnvoller den ganzen Text vorher zu erstellen und dann in sText zu übergeben und nicht zwei einzelne Textfelder zu erzeugen, je nach Anwendungsfall.

Sub Wasserzeichen() Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument Dim oActiveSheet As Sheet Set oActiveSheet = oDrawDoc.ActiveSheet Dim oGeneralNotes As GeneralNotes Set oGeneralNotes = oActiveSheet.DrawingNotes.GeneralNotes Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry oDrawDoc.PropertySets("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").item("Creation Time").Value = Date Dim oC As Color Set oC = ThisApplication.TransientObjects.CreateColor(120, 120, 120) Call oC.SetColor(255, 0, 0) Dim sText As String sText = "Example" & vbCrLf & Date Select Case oDrawDoc.ActiveSheet.Size Case kA3DrawingSheetSize Dim oGeneralNote As GeneralNote Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(23.9, 4.9), sText) oGeneralNote.Color = oC oGeneralNote.FormattedText = "<StyleOverride FontSize = '1.5'>" & sText & "</StyleOverride>" 'sText = Date 'Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(24.4, 4.4), sText) Case kA4DrawingSheetSize Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(2.9, 4.9), sText) sText = Date Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(3.4, 4.4), sText) End Select End Sub

Hier kam der entscheidende Hinweis her:

https://forums.autodesk.com/t5/inventor-customization/text-style-in-general-note/td-p/6255006

Betreff: Inventor VBA Makro - Textfeld einfügen

Anonymous — Mon, 05 Oct 2020 05:48:43 GMT

Besten Dank!

Betreff: Inventor VBA Makro - Textfeld einfügen

Anonymous — Mon, 19 Oct 2020 11:50:38 GMT

Ich habe dennoch eine Frage
wenn das Makro durchgelaufen ist (also nach dem Erzeugen einer Pdf mit dem Text), dann sollen die beiden Notes gelöscht werden.
Könnte mir jemand eine Sub zur Verfügung stellen?

Danke 🙂