Thema "Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201" in Inventor - Deutsches Forum

iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 2019

ralf.rosenburg — Fri, 25 Jan 2019 16:21:36 GMT

Hallo,

In meinen Zeichnungsressourcen stehen bis jetzt in allen Zeichnungen (IDW Dateien), alle meine 35 Schriftfelder drin. Nun möchte ich nur noch das eine kundenspezifische Schriftfeld (plus das Schriftfeld DIN, welches wohl nicht zu löschen ist) haben. Wie kann ich denn jetzt bei diesen Zeichnung, mit einer kleinen Routine die überflüssigen Schriftfelder löschen? Ich habe eine kleine Routine gefunden, die muss ich aber immer 5x laufen lassen, bis alle Schriftfelder gelöscht sind. Das geht doch sicher auf einen Rutsch.

Sorry, ich krieg meinen Programmcode nicht hier rein? Wie kann ich denn meinen Quellcode publizieren?

Würde mich über eure Hilfe sehr freuen.

Gruß Ralf

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

Martin-Winkler-Consulting — Fri, 25 Jan 2019 16:24:30 GMT

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

ralf.rosenburg — Fri, 25 Jan 2019 16:40:04 GMT

'Alle nicht verwendeten Schriftfelder löschen
Dim oDrawDoc As DrawingDocument
 oDrawDoc = ThisApplication.ActiveDocument
Dim i As Integer
For i = 0 To oDrawDoc.TitleBlockDefinitions.Count
	Try
	 oDrawDoc.TitleBlockDefinitions.Item(i).Delete
	Catch 
	'i=i+1
	End Try
Next

Vielen Dank Martin, hier mein Code

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

Martin-Winkler-Consulting — Fri, 25 Jan 2019 16:52:29 GMT

@ralf.rosenburg

Probier mal das hier:

Sub main
	TitleBlock_Delete ("Name Schriftfeld was nicht gelöscht werden soll")
End Sub

Sub TitleBlock_Delete( SK As String)
	Dim oSheet As Sheet
	For Each oSheet In ThisDoc.Document.Sheets
		If oSheet.TitleBlock.Name <> SK Then
		 oSheet.Activate
                 'Schriftfeld löschen im Blatt
		 oSheet.TitleBlock.Delete
                 'Hier wird das Blatt in dem das nicht mehr erwünschte Schriftfeld drin war direkt mit gelöscht
		 oSheet.Delete
	 End If
	 Next
	 
	 Dim oTitleBlock as TitleBlockDefinition
	 For Each oTitleBlock In ThisDoc.Document.TitleBlockDefinitions
	    If oTitleBlock.Name <> SK Then
                   'Schriftfeld löschen in den Schriftfeld Definitionen
		   oTitleBlock.delete
	    End If
	 Next
End Sub

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

Martin-Winkler-Consulting — Fri, 25 Jan 2019 16:56:11 GMT

@ralf.rosenburg

For i to...... Schleifen kann man besser abarbeiten mit

For Each Objekt in Objekts

.........

Dabei nicht vergessen den Typ von Objekt vorher festzulegen (Dim AS), sonst gibts in der Regel Ärger

Gruß Martin

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

ralf.rosenburg — Fri, 25 Jan 2019 17:24:53 GMT

Hallo Martin,

vielen Dank für deine Antwort. Funktioniert noch nicht ganz.

Ich habe oben in deiner Routine das Schriftfeld "DIN" eingetragen. Das kann ja nicht gelöscht werden. Ist das richtig?

Das Blatt mit dem unerwünschten Schriftfeld darf nicht gelöscht werden. Mit Deiner Regel, ist ja alles weg!

Es sollen einfach alle Schriftfelder in den Zeichnungsressourcen gelöscht werden. Einschließlich dem Schriftfeld auf dem Blatt oder der Blätter.

Im nächsten Schritt hole ich mir das einzige notwendige Schriftfeld aus meiner Vorlagedatei. Dafür hast du und Jürgen mir ja gestern schon die Routinen gegeben.

viele Grüße Ralf

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

Martin-Winkler-Consulting — Fri, 25 Jan 2019 17:35:34 GMT

So bleiben die Blätter erhalten.

Du kannst das oSheet.Delete dann auch ganz raus löschen.

Bei meinem Test war das Blatt in welchem das nicht zu löschende Schriftfeld drin war erhalten geblieben.

Du musst beachten dass erst die Schriftfelder aus den Blättern gelöscht werden müssen. Erst danach lässt Inventor zu die Schriftfelder aus den Definitionen zu löschen. Man neigt zu der Idee einfach die Definition zu löschen und hofft das dann die Schriftfelder in den Zeichnungen auch weg sind. Das funktioniert aber nicht, auch nicht per Hand.

Sub main
	TitleBlock_Delete ("Name Schriftfeld was nicht gelöscht werden soll")
End Sub

Sub TitleBlock_Delete( SK As String)
	Dim oSheet As Sheet
	For Each oSheet In ThisDoc.Document.Sheets
		If oSheet.TitleBlock.Name <> SK Then
		 oSheet.Activate
                 'Schriftfeld löschen im Blatt
		 oSheet.TitleBlock.Delete
                 'Hier wird das Blatt in dem das nicht mehr erwünschte Schriftfeld drin war direkt mit gelöscht
		 'oSheet.Delete
	 End If
	 Next
	 
	 Dim oTitleBlock as TitleBlockDefinition
	 For Each oTitleBlock In ThisDoc.Document.TitleBlockDefinitions
	    If oTitleBlock.Name <> SK Then
                   'Schriftfeld löschen in den Schriftfeld Definitionen
		   oTitleBlock.delete
	    End If
	 Next
End Sub

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

ralf.rosenburg — Fri, 25 Jan 2019 17:59:58 GMT

Hallo Martin,

danke für deine Antwort. Ja, das Schriftfeld im Blatt muss man erst löschen, bevor es aus den Zeichnungsressourcen gelöscht werden kann! Habe ich gemacht und es funktioniert. Für meine Aufgabenstellung, reicht der Code unten.

Weißt du vielleicht eine Abfrage, die eine Meldung bringt, wenn ein Schriftfeld auf dem (einem) Blatt ist bzw. gefunden wird und die Routine einfach abbricht. Umgehe dann die komische Fehlermeldung vom Inventor. 🙂

Viele Grüße Ralf

Sub main
	TitleBlock_Delete ("DIN")
End Sub

Sub TitleBlock_Delete( SK As String)
	 Dim oTitleBlock As TitleBlockDefinition
	 For Each oTitleBlock In ThisDoc.Document.TitleBlockDefinitions
	    If oTitleBlock.Name <> SK Then
                   'Schriftfeld löschen in den Schriftfeld Definitionen
		   oTitleBlock.Delete
	    End If
	 Next
End Sub

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

Martin-Winkler-Consulting — Fri, 25 Jan 2019 18:39:46 GMT

@ralf.rosenburg

Du meinst wenn kein Schriftfeld auf dem Blatt ist?

If Not oSheet.TitleBlock Is Nothing Then 
......
End If

Die If Bedingung musst du einfügen bevor du den Namen vom TitleBlock abfragst.

Wenn da nämlich kein TitleBlock ist (Is Nothing) gibt es einen Fehler.

Betreff: iLogic, alle Schriftelder aus Zeichnungsressourcen löschen Inventor 201

ralf.rosenburg — Fri, 25 Jan 2019 18:48:04 GMT

Hallo Martin,

vielen Dank, jetzt funktioniert das. Anbei noch das ganze Progrämmchen, wenn's jemand verwenden will.

Sub main
	TitleBlock_Delete ("DIN")
End Sub

Sub TitleBlock_Delete(SK As String)
	Dim oSheet As Sheet
	For Each oSheet In ThisDoc.Document.Sheets
		If Not oSheet.TitleBlock Is Nothing Then 
		MessageBox.Show("Bitte zuerst das Schriftfeld auf den Blättern löschen", "Routinenabbruch")
		Exit Sub
		End If
	Next

	Dim oTitleBlock As TitleBlockDefinition
	For Each oTitleBlock In ThisDoc.Document.TitleBlockDefinitions
		If oTitleBlock.Name <> SK Then
            'Schriftfeld löschen in den Schriftfeld Definitionen
			oTitleBlock.Delete
		End If
	Next
End Sub