---

Ich möchte gerne den Schriftkopf in älteren IDWŽs gegen unseren akt. Schriftkopf tauschen.
Am besten mittels PSP-Bordmitteln bzw. BDP-Programmierung.
Andere Lösungen nehme ich aber auch gerne.
Vielleicht hat schon mal jemand ein iLogig-Programm dafür geschrieben.

Manuell mache ich mir eine Zeichnung mit akt. Schriftkopf auf, gehe auf Zeichnungsressourcen-Schriftfelder-DIN, RM kopieren, wechsele in die Zeichnung in welcher der Schriftkopf ersetzt werden soll, gehe aud Zeichnungsressourcen, RM Einfügen, und im Dialog noch Ersetzen bestätigen.

Wie kann man das automatisieren?

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

---

Start > Programme > Autodesk > Inventor 20xx > Übertragungsassistent für Zeichnungsressourcen?

Edit: Anleitung: http://blogs.rand.com/manufacturing/2011/08/all-my-inventor-drawings-need-a-different-title-block-are-you-kidding-me.html

------------------
Grüsse
Jürgen
Über 1000 Tipps in der Inventor FAQ
Inventor Schulungsvideos und eBook zum runterladen
Die besten Tipps und Tricks für Einsteiger | für erfahrene Anwender | bei Inventor Abstürzen | die Simulation

[Diese Nachricht wurde von invhp am 25. Sep. 2012 editiert.]

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

---

Danke Jürgen,
leider bringt mich der Assistent nicht weiter, wenn es um freigegebene Zeichnung unter PSP geht.
Dehalb würde ich den Ressourcentausch gerne in eine Prozedur einbinden
- Schreibrecht setzten
- deferupdate aussetzen (damit auch properties der zu den Komponenten verknüpften Parts übertragen werden)
- Ressourcen ersetzen
- deferupdate setzen
- speichern
- Schreibrecht entfernen
- PDF erzeugen

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

---

Hallo Jörg,

im Prinzip läuft das ähnlich Beispiel
Hier wird der Title CompassMitBez3 eingefügt

'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

Für eine Batchbearbeitung mit Deinen Anforderungen könnte ich Dir bei Bedarf (einfach PM senden) ein Angebot erstellen.

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

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