Thema "Betreff: Zeichnungssymbole automatisiert in Zeichnung laden" in Inventor - Deutsches Forum

Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Tue, 05 Sep 2023 07:08:04 GMT

Hallo zusammen,

ich arbeite gerade an meinem ersten Makro für Inventor und komme leider nicht weiter.
Die idee ist, folgende:
Ich möchte bestimmte Zeichnungssymbole automatisiert in die Zeichnung laden.
Dazu sind folgende Schritte angedacht
Das Refernzierte 3D Modell zur Zeichnung finden (klappt)
Alle darin enthaltenene Bauteile nach einem bestimmten iProperty durchsuchen (klappt)
Wenn das iProperty vorhanden ist, einen entsprechenden Namen in ein array Speichern. (klappt)
Die Zeichnungssymbole welche den selben Namen trägt in die Zeichnung laden. (klappt nicht)

Hier habe ich das Problem, das die Zeichnung nur geladen wird, wenn sie vorher bereits im "lokalen" Zeichnungsgedächnis liegt. (Bild: lokale Daten)

Die Zeichnung wird aber nicht direkt aus den Skizzensymbolen geladen (Bild Skizzensymbol)

Kennt hier jemand eine Lösung oder hat einen Tip?

Besten Dank!

Sub Flansche() On Error Resume Next Dim ocustomPropSet As PropertySet Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim BgrDoc As Document Set BgrDoc = oDoc.ReferencedDocuments.Item(1) Dim PartDoc As Document Dim Flange_Nr As Integer Dim i, j As Integer Dim Flange() As String ReDim Flange(1 To 1) Dim symbolname As String j = 0 'Sucht das Refernz 3D Teil und sichtet alle enthaltenen Bauteile nach dem iProperty "Flansch Nr" For Each PartDoc In BgrDoc.AllReferencedDocuments Set ocustomPropSet = PartDoc.PropertySets.Item("Inventor User Defined Properties") iCount = ocustomPropSet.Count Flange_Nr = ocustomPropSet.Item("Flange_Nr").Value 'Wenn was gefunden, dann Schleife, je nachdem wie viele Flansche im Bauteil. If Flange_Nr > 0 Then For i = 1 To Flange_Nr j = j + 1 'erweitert das Array bei Bedarf If j > 1 Then ReDim Preserve Flange(1 To j) End If 'Speichert den Flanschnamen im Array Flange(j) = ocustomPropSet.Item("Flange" & i).Value Next End If Next 'Nur Kontrolle, kann später weg msgString = Join(Flange(), vbCr) MsgBox "Folgende Flansche wurden gefunden: " & vbCr & msgString 'Abhier sollen die Zeichnungssymbole in die Zeichnung geladen werden. 'Das funktioniert aber nicht wirklich. Stop Dim k As Integer For k = 1 To UBound(Flange()) symbolname = Flange(k) Dim oSheet As Sheet Set oSheet = oDoc.ActiveSheet Dim oSketchedSymbolDef As SketchedSymbolDefinition Set oSketchedSymbolDef = oDoc.SketchedSymbolDefinitions.Item(symbolname) Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry Dim oSketchedSymbol As SketchedSymbol Set oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(10, 10)) Stop Next End Sub

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

RaphaelMichel — Tue, 05 Sep 2023 06:55:40 GMT

Warum gibst du in Zeile 66 die zuvor definierte Variabel "symbolname" als String an und nicht als Variable?

Set oSketchedSymbolDef = oDoc.SketchedSymbolDefinitions.Item(symbolname)

Habe den Rest des Codes aber nicht geprüft oder getestet

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Tue, 05 Sep 2023 07:05:32 GMT

Hallo
Danke für den Hinweis, allerdings ist das ist ein Kopierfehler gewesen.
Hatt zuvor einen festen Stringwert des Flanschnamens, um zu schauen ob es am Array liegt. hat aber auch nicht funktioniert.
Habe den Code gerade nochmal neu abgespeichert.
Beim Durchlauf in Einzelschritten fällt auch auf, das die oSketchedSymbolDef bei Nothing bleibt. Bild anbei.
Allerdings finde ich nicht heraus warum.

Beste Grüße

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Tue, 05 Sep 2023 07:10:53 GMT

Beste Grüße

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

RaphaelMichel — Tue, 05 Sep 2023 07:15:54 GMT

Schau doch mal in die oDoc hinein unter SketchedSymbolDefinitions. Welche Items sind darin aufgeführt? Anscheinend wird kein Item gefunden, das mit deiner Variabel übereinstimmt.

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Tue, 05 Sep 2023 07:32:22 GMT

Ok, das ist das Problem. Hier finde ich nur die beiden bereits in der Zeichnung "hinterlegten" Symbole.
Siehe Bild (Skizzensymbole_1).

Ich möchte aber neue Skizzensymbole aus der Bibliothek suchen und laden. (Siehe Bild Bibliothek)
Wie kann ich den verweis auf die Bibliotek setzen?

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

RaphaelMichel — Tue, 05 Sep 2023 09:29:55 GMT

Ich kenne mich mit Skizzensymbolen nicht grossartig aus. Sind diese in einer Bibliothek.idw oder dwg gespeichert? Du könntest im Makro diese Bibliothek öffnen und die entsprechenden Skizzensymbole kopieren und in deinem Dokument einfügen. Der Code dazu könnte in etwa so aussehen: (ohne Gewähr auf Richtigkeit, da ich nicht testen konnte)

Sub Main() Skizzensymbol_kopieren ("Pfad zur Bibliothek", "Symbolname") End Sub Sub Skizzensymbol_kopieren(Pfad As String, Symbol As String) 'Skizzensymbol von Vorlage kopieren Dim oNewDocument As DrawingDocument Set oNewDocument = ThisApplication.ActiveDocument Dim oSourceDocument As DrawingDocument Set oSourceDocument = ThisApplication.Documents.Open(Pfad) Dim oSketchedSymbolDef As SketchedSymbolDefinition Set oSketchedSymbolDef = oSourceDocument.SketchedSymbolDefinitions.Item(Symbol).CopyTo(oNewDocument) oSourceDocument.Close False End Sub

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Tue, 05 Sep 2023 09:27:27 GMT

Das war es! 🙂
ich muss die Symbolbiblkioteheken erst laden und die gefundenen Symbole in das "lokale" verzeichnis kopieren.
Da wir verschiedene idw Biblioteheken habe muss ich mir noch ne Schleife einbauen, um alle zu durchsuchen...
Danach kann ich die Symbole dann aus dem lokalen Verzeichnis in die Zeichnung kopieren.

Ich pass das in den nächsten Tagen noch "vernünftig" an und poste das Ergebnis wenn es so klappt wie gewollt.!
Besten Dank!

Betreff: Zeichnungssymbole automatisiert in Zeichnung laden

a_kuhlen — Mon, 11 Sep 2023 08:08:45 GMT

Anbei der funktionsfähige Code. Besten Dannk auch nochmal an @RaphaelMichel für die entscheidenen Tips.
Da ich kein Programmierer bin, ist der Code sicherlich otimierbar und auch das Thema Fehlermanagement ist nicht wirklich berücksichtigt. Allerdings tut es erst mal so, wie ich mir das ganze vorstelle.

Sub Flansche() 'Autor: Arne Kuhlen 'Sucht nach bestimmten iPropertie "Flange(i)" und nimmt die Bezeichnung in ein Array auf. 'Lädt im Hintergrund die Symbolbibliotheken und "Bib_idw()" und sucht dort die Benennungen aus dem Array. 'wurde etwas gefunden, wird das Zeichnungssymbol in die Zeichnung geladen und platziert. On Error Resume Next Dim ocustomPropSet As PropertySet Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim BgrDoc As Document Set BgrDoc = oDoc.ReferencedDocuments.Item(1) Dim PartDoc As Document Dim Flange_Nr As Integer Dim i, j As Integer Dim Flange() As String ReDim Flange(1 To 1) Dim Symbol As String j = 0 'Zähler für den Flansch 'Sucht das Refernz 3D Teil und sichtet alle enthaltenen Bauteile nach dem iProperty "Flansch Nr" For Each PartDoc In BgrDoc.AllReferencedDocuments Set ocustomPropSet = PartDoc.PropertySets.Item("Inventor User Defined Properties") i = 1 'Zähler für den iProperty Namen (Flansch1, Flansch2 innerhalb eines Bauteils) Do 'Prüfen ob Zähler hochgesetzt werden soll If Flange(j) <> "" Then j = j + 1 End If 'erweitert das array bei Bedarf If j > 1 Then ReDim Preserve Flange(1 To j) End If 'Prüfen ob der Flanschname bereits exisitert Dim doppelt As Integer doppelt = 0 For Z = 1 To UBound(Flange()) If Flange(Z) = ocustomPropSet.Item("Flange" & i).Value Then doppelt = 1 End If Next If doppelt <> 1 Then 'Den Flanschnamen in das Array schreiben Flange(j) = ocustomPropSet.Item("Flange" & i).Value End If i = i + 1 Loop Until (ocustomPropSet.Item("Flange" & i).Value = "") Next 'den letzten Arraypunkt wieder löschen weil leer ReDim Preserve Flange(1 To (j - 1)) msgString = Join(Flange(), vbCr) MsgBox "Folgende Flansche wurden gefunden: " & vbCr & msgString '------------------ 'Ab hier werden die Symbole in den Bibliotheken gesucht und dann in die Zeichnung geladen Dim Bib_idw(9) As String 'Pfade zu den einzelnen Zeichnungssymbolbibliotheken Bib_idw(0) = "C:\...\...\00_Bib_1.idw" Bib_idw(1) = "C:\...\...\02_Bib_2.idw" Bib_idw(2) = "C:\...\...\04_Bib_3.idw" Bib_idw(3) = "C:\...\...\05_Bib_4.idw" Bib_idw(4) = "C:\...\...\06_Bib_5.idw" Bib_idw(5) = "C:\...\...\08_Bib_6.idw" Bib_idw(6) = "C:\...\...\09_Bib_7.idw" Bib_idw(7) = "C:\...\...\10_Bib_8.idw" Bib_idw(8) = "C:\...\...\12_Bib_9.idw" Bib_idw(9) = "C:\...\...\14_Bib_10.idw" Dim m As Integer 'Schleife für jede Bibliothek 'Smybole werden gesucht und in das lokale Verzeichnis geladen. For b = 0 To UBound(Bib_idw()) Dim k As Integer Dim RefBib As DrawingDocument Set RefBib = ThisApplication.Documents.Open(Bib_idw(b), False) 'MsgBox (RefBib.DisplayName) Dim oSheet As Sheet Set oSheet = oDoc.ActiveSheet For k = 1 To UBound(Flange()) Symbol = Flange(k) Dim lokalSketchedSymbolDef As SketchedSymbolDefinition Set lokalSketchedSymbolDef = oDoc.SketchedSymbolDefinitions.Item(Symbol) If lokalSketchedSymbolDef.Name = "" Then Dim globalSketchedSymbolDef As SketchedSymbolDefinition Set globalSketchedSymbolDef = RefBib.SketchedSymbolDefinitions.Item(Symbol) Set globalSketchedSymbolDef = RefBib.SketchedSymbolDefinitions.Item(Symbol).CopyTo(oDoc) Set lokalSketchedSymbolDef = oDoc.SketchedSymbolDefinitions.Item(Symbol) End If Set lokalSketchedSymbolDef = Nothing Next RefBib.Close False Next 'Symbole werden vom lokalen Verzeichnis in die Zeichnung kopiert. Dim oTG As TransientGeometry Set oTG = ThisApplication.TransientGeometry For k = 1 To UBound(Flange()) Symbol = Flange(k) Dim oSketchedSymbol As SketchedSymbol Set lokalSketchedSymbolDef = oDoc.SketchedSymbolDefinitions.Item(Symbol) Set oSketchedSymbol = oSheet.SketchedSymbols.Add(lokalSketchedSymbolDef, oTG.CreatePoint2d(10 * k, 10)) Next End Sub