iLogic def. Schriftfeld aus Vorlage in akt. Zeichnung kopieren Inventor 2019
Ich denke das geht auch ohne iLogic...
1. Möglichkeit: Du erstellt eine Vorlage in der alle Schriftfelder deiner Kunden enthalten sind. Man kann beliebig viele Schriftfelder in einer Vorlage haben. Kombiniert zu Arbeitsblattformaten kannst du dann schnell das passende Blatt mit entsprechendem Kundenschriftfeld einfügen.
2. Möglichkeit: Für jeden Kunden eine eigene Vorlage erstellen und die dann entsprechend verwenden. (So mache ich das).
Hilft dir das weiter?
Gruß Martin
Martin Winkler
CAD Developer
Did you find this post helpful? Feel free to like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Kannst du die iLogic Regel die du bisher erstellt hast bitte hier mal posten.
Martin Winkler
CAD Developer
Did you find this post helpful? Feel free to like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Es gibt dutzende Code Beispiele zum Thema
https://www.google.com/search?q=inventor+api+copy+title+block
Du musst dich beim Suchen von ilogic lösen und api einfügen (wobei ich wetten würde daß es bei der Suche nach ilogic copy title Block auch Treffer gibt). Findest Du VBA Code machst Du so ilogic Code daraus. https://inventorfaq.blogspot.com/2017/04/vba-code-in-ilogic-code-umwandeln.html
So funktioniert das bei mir jetzt.
Bitte Anmerkungen beachten!
Sub Main()
If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
MessageBox.Show("Start ist nur in der Ableitungsumgebung (IDW) möglich!!", "falsches Dokument")
Else
' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
'Austausch des Schriftfeldes
Dim oNewDocument As DrawingDocument
oNewDocument = ThisApplication.ActiveDocument
ThisApplication.SilentOperation = True ' versteckt arbeiten
Dim oSourceDocument As DrawingDocument
oSourceDocument = ThisApplication.Documents.Open("C:\3D-CAD-SERVICE_test.idw")
' Get the new source title block definition.
Dim oSourceTitleBlockDef As TitleBlockDefinition
'Hier darauf achten das der Name wirklich Blatt:2 oder Sheet:2 ist
Dim oSheet As Sheet = oSourceDocument.Sheets("Blatt:1")
oSourceTitleBlockDef = oSheet.TitleBlock.Definition
' Get the new title block definition.
Dim oNewTitleBlockDef As TitleBlockDefinition
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
'Hier eventuell noch einen möglichen Fehler abfangen der entsteht wenn kein Schriftfeld im neuen Dokument ist, dann dann kann auch keins gelöscht werden
oSheet.TitleBlock.Delete
Call oSheet.AddTitleBlock(oNewTitleBlockDef)
Next
End If
End Sub
Martin Winkler
CAD Developer
Did you find this post helpful? Feel free to like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Hier eine Sub der du den Pfad zur Vorlagen IDW und dem gewünschten SK Name übergibst und die dann den Rest macht:
Sub main
SK_tauschen ("C:\_DOCS\Samples + Tutorial Files Inventor\Konstruktion\tutorial files\Arbor Press\Arbor_Press.dwg", "DIN-6771-1_2")
End Sub
Sub SK_tauschen(Pfad As String, SK As String)
Dim oNewDocument As DrawingDocument
oNewDocument = ThisApplication.ActiveDocument
Dim oSourceDocument As DrawingDocument
oSourceDocument = ThisApplication.Documents.Open(Pfad)
Dim oSourceTitleBlockDef As TitleBlockDefinition
oSourceTitleBlockDef = oSourceDocument.TitleBlockDefinitions.Item(SK)
Dim oNewTitleBlockDef As TitleBlockDefinition
oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
Dim oSheet As Sheet
For Each oSheet In oNewDocument.Sheets
oSheet.Activate
oSheet.TitleBlock.Delete
Call oSheet.AddTitleBlock(oNewTitleBlockDef)
Next
oSourceDocument.Close(False)
End Sub
Hallo Ralf,
deine Regel ist interessant und zu kompliziert für mich.
ich verwende nur eine Schriftfelder meine problem habe paar tausende Zeichnungen zu aktualisieren.
meine aktuelle regeln habe von diese post kopiert und bringt das Fehler siehe Bilder.
erstellt auch eine neues Blatt di ich nicht brauche
ich benutze Inventor 2020
mit freundlichen grüß
Pietro
