---

Hallo zusammen,

kennt jemand von euch eine Möglichkeit die Zeichnungsressourcen über eine ILogic Funktion austauschen zu lassen?

Hintergrund ist folgender.
Durch PSP sind viele unserer Dateien Schreibgeschützt, so das man den Übertragungsassistenten für Zeichnungsressourcen nicht zum Austausch von Schriftfeld usw. in diesen Zeichnungen verwenden kann.
Wenn wir allerdings eine ältere Datei kopieren muss das Schriftfeld auf jeden Fall ausgetauscht werden, da sich das Firmenlogo geändert hat.

Im Moment erstellen wir in so einem Fall eine neue Zeichnung, kopieren händisch den ganzen Ordner Zeichnungsressourcen und lassen alle Symbole usw überschreiben.

Ist natürlich immer eine nervioge Klickerei, vor allem wenn man einen ganzen Auftrag kopiert.

Schön wäre jetzt eine Funktion, die zich die ressourcen aus der Vorlagendatei holt und automatisch alle Symbole überschreibt.

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

---

Hallo Gandhi,

wir haben das mit vba bzw. mittlerweile .net gelöst.

Ausschnitt aus der routine

'Austausch des Schriftfeldes
Dim oNewDocument As DrawingDocument
    Set oNewDocument = ThisApplication.ActiveDocument
    If oNewDocument.ActiveSheet.TitleBlock.Definition.name = "CompassMitBez3" Then
    'MsgBox oNewDocument.ActiveSheet.TitleBlock.Definition.name
    Else
    'ThisApplication.SilentOperation = True ' versteckt arbeiten

    Dim oSourceDocument As DrawingDocument
    Set oSourceDocument = ThisApplication.Documents.Open("K:\STANDARD\Inventor2009\Templates.de\Inventor\DIN.idw")

    ' Get the new source title block definition.
    Dim oSourceTitleBlockDef As TitleBlockDefinition
    Set oSourceTitleBlockDef = oSourceDocument.ActiveSheet.TitleBlock.Definition

    ' Get the new title block definition.
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
   
    oSourceDocument.Close
    'ThisApplication.SilentOperation = False ' versteckt arbeiten
    ' Iterate through the sheets.
    Dim oSheet As Sheet
    For Each oSheet In oNewDocument.Sheets
        oSheet.Activate

        oSheet.TitleBlock.Delete
        Call oSheet.AddTitleBlock(oNewTitleBlockDef)
    Next

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Das wäre natürlich auch eine Option.

Seh ich das richtig, das ihr die alten Symbole jeweils rauslöscht?
Gibt es keine möglichkeit einfach zu sagen, ja du ersetzt jetzt?

Besteht die Möglichkeit, das du mir das Makro zusendest?

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

---

Hallo Gandhi, die alte Defintion wird nicht rausgelöscht sondern ist noch unter den Ressourcen vorhanden. Bedingung ist ein anderer Name als der Vorgänger. Ich stell Dir mal was zusammen; muss aber das makro noch modifizieren weil wir damit auch noch in die CompassDB schreiben.

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Ok, danke.
Nicht sdas bei uns im PSP irgendwelche Werte auftauchen, mit denen keiner was anfangen kann. 

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

---

Probier es mal aus

Sub SFeld()

If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
        MsgBox "Start ist nur in der Ableitungsumgebung (IDW) möglich!!", vbOKOnly, "Error"
       
        Else
 
 
  ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

'Austausch des Schriftfeldes
Dim oNewDocument As DrawingDocument
    Set oNewDocument = ThisApplication.ActiveDocument
    If oNewDocument.ActiveSheet.TitleBlock.Definition.Name = "CompassMitBez3" Then
    'MsgBox oNewDocument.ActiveSheet.TitleBlock.Definition.name
    Else
    'ThisApplication.SilentOperation = True ' versteckt arbeiten

    Dim oSourceDocument As DrawingDocument
    Set oSourceDocument = ThisApplication.Documents.Open("K:\STANDARD\Inventor2009\Templates.de\Inventor\DIN.idw")

    ' Get the new source title block definition.
    Dim oSourceTitleBlockDef As TitleBlockDefinition
    Set oSourceTitleBlockDef = oSourceDocument.ActiveSheet.TitleBlock.Definition

    ' Get the new title block definition.
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
   
    oSourceDocument.Close
    'ThisApplication.SilentOperation = False ' versteckt arbeiten
    ' Iterate through the sheets.
    Dim oSheet As Sheet
    For Each oSheet In oNewDocument.Sheets
        oSheet.Activate

        oSheet.TitleBlock.Delete
        Call oSheet.AddTitleBlock(oNewTitleBlockDef)
    Next
End If
End If

End Sub

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Hallo,

danke auf jeden Fall für deine Mühe, aber leider nicht ganz was ich suche.
Zum einen beschränkt sich das Tool ja auf Schriftfeld und lässt die Symbole aussen vor (Klar mit einer Erweiterung könnte man auch die einzelnen Symbole erfassen), zum anderen legt das Makro eine Kopie vom Schriftfeld an, anstatt es einfach zu ersetzen.

------------------
Gruß, Gandhi
It's not a bug, it's a feature!
CAD-RPG - Anleitungen IVNGWC

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

---

Hallo,

Zitat:

---

eine Kopie vom Schriftfeld an, anstatt es einfach zu ersetzen.

---

das stimmt so nicht. Das Makro guckt ob das Schriftfeld CompassMitBez3 auf dem aktiven Blatt ist. Wenn nicht wird das Template geöffnet und CompassMitBez3 kopiert und in die Zeichnung eingefügt und aktiv gesetzt.
Zu deinem Problem: Erfasse mit SQL welche Dateien den status 00002 oder 00003 haben und geb Sie als Batchbefehlszeile zum Schreibschutzsetzen raus. Speichere dies in *.bat. hole überall Schreibschutz raus.  Aktiviere Übertragungsassistenten für Zeichnungsressourcen. Anschließend läßt Du *.bat drüber laufen. Fertig.

 

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Hallo SEHER

Das ist fast ganz genau wonach ich suche 
Hab nur ein kleines Problem mit der letzten Zeile:

Call oSheet.AddTitleBlock(oNewTitleBlockDef)

Da krieg ich den Fehler:
Run-time error '5':
Invalid procedure call or argument

Ich arbeite mit Inventor 2016.

Beste Grüsse
Michael

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