Thema "Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc" in Inventor - Deutsches Forum

iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt schließen

fx — Thu, 13 Feb 2020 08:22:44 GMT

Hallo liebe Community,

die untenstehende iLogic-Regel wird getriggert, wenn eine IDW gespeichert wird. Das auf der Zeichnung referenzierte Dokument wird geöffnet, in diesem die Benutzerproperty "Zeichnung vorhanden" auf ja gesetzt. Anschließend wird das Dokument geschlossen. Funktioniert wunderbar.

Jetzt zu meinem Problem:

Jedes Mal wenn der Bearbeiter in der Zeichnung auf Speichern drückt, wird die referenzierte Datei geschlossen. Auch dann, wenn die Datei in einer Registerkarte im Inventor geöffnet war, um daran zu arbeiten. Man ist somit gezwungen, die IPT oder IAM immer wieder neu zu öffnen, was vor allem bei großen Baugruppen unschön sein kann.

Meine Frage:

Gibt es einen iLogic-Befehl, über den ich abfragen kann, welche Dateien sichtbar in Registerkarten im Inventor geöffnet sind?

Ich habe es bereits über ThisApplication.Documents propbiert. Allerdings zählen da auch die Dokumente, die Inventor im Hintergrund geöffnet hat, und das beinhaltet bei einer Zeichnung leider auch die referenzierten Dateien...

Sub Main()
	
Dim oDrawDoc As DrawingDocument
Dim oRefDoc As Document
Dim oDoc As Document

oDrawDoc = ThisApplication.ActiveDocument

Try
	oRefDoc = oDrawDoc.ReferencedDocuments.Item(1)
	oDocName= oRefDoc.FullFileName

        oDoc = ThisApplication.Documents.Open(oDocName, False)

	Dim oUserPropSet As PropertySet
	Dim oIDW_check As [Property]
	Dim blYesorNo As Boolean
	blYesorNo=True
	oUserPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")

	For Each oIDW_check In oUserPropSet
		If oIDW_check.Name = "Zeichnung vorhanden" Then
			oIDW_check.Delete
		End If
	Next

	oIDW_check = oUserPropSet.Add(blYesorNo, "Zeichnung vorhanden")
	oDoc.Save

Catch : Exit Sub
End Try

End Sub

Gruß, Felix

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fullevent — Thu, 13 Feb 2020 10:47:54 GMT

Hallo Felix,

versuch es mal so

Sub Main()
	
Dim oDrawDoc As DrawingDocument
Dim oRefDoc As Document
Dim oDoc As Document

oDrawDoc = ThisApplication.ActiveDocument

Try
	oRefDoc = oDrawDoc.ReferencedDocuments.Item(1)
	oDocName= oRefDoc.FullFileName

	Dim oOpen As Boolean 
	oOpen = False
	For Each oOpenDoc As Document In ThisApplication.Documents
		If oOpenDoc.FullFileName = oDocName Then
			oOpen = True
		End If
	Next

        oDoc = ThisApplication.Documents.Open(oDocName, False)

	Dim oUserPropSet As PropertySet
	Dim oIDW_check As [Property]
	Dim blYesorNo As Boolean
	blYesorNo=True
	oUserPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")

	For Each oIDW_check In oUserPropSet
		If oIDW_check.Name = "Zeichnung vorhanden" Then
			oIDW_check.Delete
		End If
	Next

	oIDW_check = oUserPropSet.Add(blYesorNo, "Zeichnung vorhanden")
	oDoc.Save
	
	If oOpen = False then
		oDoc.Close
	end if

Catch : Exit Sub
End Try

End Sub

Es wird eine Liste aller offenen Dokumente erstellt. Dann wird besagtes Dokument geöffnet.
Ist das Dokument in der Liste vorhanden war es vorher bereits offen und bleibt es auch.

Ansonsten wird es geschlossen.

Schau dir auch diesen Post an: https://forums.autodesk.com/t5/inventor-customization/do-not-close-document-wich-was-already-opened/td-p/9309224

Credit belongs to @WCrihfield

Gruß

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fx — Thu, 13 Feb 2020 12:44:53 GMT

Hallo @fullevent ,

danke für die schnelle Antwort!

So ähnlich hatte ich das auch in meinem Programm stehen, das funktioniert prinzipiell auch...

Allerdings zählt Inventor unter ThisApplication.Documents auch die Dokumente, die im Hintergrund, also für den User nicht sichtbar, geöffnet sind. Genau das ist mein Problem. Ist eine Zeichnung geöffnet, öffnet Inventor selbstständig im Hintergrund alle Dateien die auf der Zeichnung referenziert sind. Somit wird er bei

If oOpenDoc.FullFileName = oDocName Then
	oOpen = True
End If

oOpen immer auf True setzen und somit das Dokument nicht schließen. Und damit bleibt es in der Sitzung permanent im Hintergrund geöffnet... Dadurch ist es bspw. nicht möglich eine andere Projektdatei anzuwählen (siehe Screencast)

Was kann man dagegen unternehmen?

Gruß, Felix

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fullevent — Thu, 13 Feb 2020 14:43:39 GMT

Ja stimmt.. aber du kannst auch nur die sichtbaren Dokumente durchlaufen 😉

Sub Main()
	
Dim oDrawDoc As DrawingDocument
Dim oRefDoc As Document
Dim oDoc As Document

oDrawDoc = ThisApplication.ActiveDocument

Try
	oRefDoc = oDrawDoc.ReferencedDocuments.Item(1)
	oDocName= oRefDoc.FullFileName

	Dim oOpen As Boolean 
	oOpen = False
	For Each oOpenDoc As Document In ThisApplication.Documents.VisibleDocuments
		If oOpenDoc.FullFileName = oDocName Then
			oOpen = True
		End If
	Next

        oDoc = ThisApplication.Documents.Open(oDocName, False)

	Dim oUserPropSet As PropertySet
	Dim oIDW_check As [Property]
	Dim blYesorNo As Boolean
	blYesorNo=True
	oUserPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")

	For Each oIDW_check In oUserPropSet
		If oIDW_check.Name = "Zeichnung vorhanden" Then
			oIDW_check.Delete
		End If
	Next

	oIDW_check = oUserPropSet.Add(blYesorNo, "Zeichnung vorhanden")
	oDoc.Save
	
	If oOpen = False then
		oDoc.Close
	end if

Catch : Exit Sub
End Try

End Sub

Damit müsste es doch funktionieren oder? 🤔

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fullevent — Thu, 13 Feb 2020 14:56:16 GMT

Du kannst aber auch mit

ThisApplication.Documents.CloseAll(True)

alle geöffneten Dokumente schließen auf die nicht referenziert wird bzw. mit

ThisApplication.Documents.CloseAll(False)

alle Dokumente schließen.

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fx — Thu, 13 Feb 2020 14:55:17 GMT

Das ist genau das was ich gesucht habe, vielen Dank!

Gruß, Felix

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

fullevent — Thu, 13 Feb 2020 14:58:15 GMT

Sehr gerne 😊

Gruß,
Aleks

Betreff: iLogic - in IDW referenziertes Bauteil öffnen, speichern und bedingt sc

michele.mk — Fri, 21 Feb 2020 13:13:30 GMT

Hallo @fx,

puh! Experten unter sich! Mir schwirrt schon der Kopf von den ganzen Codes. Das finde ich toll, dass ihr so schnell zu einer Lösung gefunden habt. 😊

Ich wünsche euch beiden noch viel Spaß hier in der Community.

Viele Grüße,

Michèle