Thema "Betreff: Ilogic Schleife programmieren Inventor 2019" in Inventor - Deutsches Forum

Ilogic Schleife programmieren Inventor 2019

ANKE885 — Fri, 25 Oct 2019 06:57:23 GMT

Guten Morgen,

ich habe mir eine kleine Ilogic Regel zusammengebastelt. Diese Regel soll aus einer Excel Liste eine Nummer in die Iproperties schreiben. Diese funktioniert auch ohne Probleme. Ich wollte diese Regel um eine Schleife erweitern da mir die Klickerei auf die Nerven ging. Diese Schleife sollte alle geöffnete Dateien abarbeiten.

Dim Doc As Document

For Each Doc In ThisApplication.Documents
    Doc.Activate

If iProperties.Value("Project", "Part Number") = "" Then
Dim oDoc As Document = ThisDoc.Document
oDoc.Close
Else

V = iProperties.Value("Project", "Part Number")
i = GoExcel.FindRow("D:\Artikel.xlsx", "Systemaufbau", "gebogen", "=", v)
i2= GoExcel.CurrentRowValue("gepulvert")

If i2 = "106165" Then
MessageBox.Show("Fehler", "Fehler")
iProperties.Value("Project", "Stock Number") = ""
End If

iProperties.Value("Project", "Stock Number") = i2

ThisDoc.Save

Dim oDoc As Document = ThisDoc.Document
oDoc.Close

End If
Next

Leider funktioniert es nicht so wie ich es wollte. Es kommt immer eine Fehlermeldung.

Kann mir jemand helfen und mir zeigen wie ich die Schleife zum laufen bekomme?

Vielen Dank.

Betreff: Ilogic Schleife programmieren Inventor 2019

Martin-Winkler-Consulting — Fri, 25 Oct 2019 08:06:18 GMT

@ANKE885

Schau mal ob dir das weiter hilft.

Allgemein würde ich empfehlen das du dich mal mit Objekten auseinander setzt.

Da ist ein ziemliches durcheinander in deinem Code.

'Funktioniert nur in Baugruppe!
Dim oDoc As Document = ThisDoc.Document
'Es werden nur die enthaltenen Dokumente bearbeitet
'Wenn die aufrufende Baugruppe auch bearbeitet werden soll muss hier noch der Code dafür eingefügt werden:
'Bearbeitung aufrufende Baugruppe oDoc



'Ende Bearbeitung aufrufende Baugruppe

'Beginn Bearbeitung referenzierte Dokumente
Dim oRefDoc As Document 'referenzierte Dokumente in oDoc welche in For Each Schleife nacheinander aufgerufen werden
Dim oPropSet As PropertySet 'Deklaration PropertySet

For Each oRefDoc In oDoc.AllReferencedDocuments
'Property Set Design Tracking Properties des refernezierten Dokuments zuweisen
oPropSet = oRefDoc.PropertySets("Design Tracking Properties")
If oPropSet.Item("Part Number").Value = "" Then
	V = oPropSet.Item("Part Number").Value 
	i = GoExcel.FindRow("D:\Artikel.xlsx", "Systemaufbau", "gebogen", "=", V)
	i2= GoExcel.CurrentRowValue("gepulvert")

	If i2 = "106165" Then
	 MessageBox.Show("Fehler in " & oRefDoc.DisplayName, "Fehler")
	 oPropSet.Item("Stock Number").value = ""
	End If

    i2 = 99
	oPropSet.Item("Stock Number").Value = i2

	'Bin mir gerade nicht sicher ob das oRefDoc.Save überhaupt erforderlich ist.
	'Erstmnal ohne ausprobieren.
	'oRefDoc.Save
End If
Next
'Ende referenzierte Dokumente

Ich konnte das natürlich jetzt nur begrenzt testen.

Viel Erfolg!

Betreff: Ilogic Schleife programmieren Inventor 2019

fullevent — Fri, 25 Oct 2019 08:33:02 GMT

Hallo @ANKE885,

willst du immer nur die geöffneten Dokumente durchlaufen oder alle referenzierten?

Falls du nur geöffnete Dokumente durchlaufen möchtest und eh jedes Dokument nach dem Durchlauf schließen möchtest könntest du die Schleife etwas anders aufbauen.

Dim oApp As Inventor.Application
Dim oDoc As Inventor.Document
oApp = ThisApplication

If oApp.ActiveDocument Is Nothing Then
Messagebox.Show ("Kein Dokument geöffnet")
Exit Sub
End If

Do While Not oApp.ActiveDocument Is Nothing
    
    oDoc = ThisApplication.ActiveDocument

If iProperties.Value("Project", "Part Number") = "" Then
oDoc.Close
Else

'V = iProperties.Value("Project", "Part Number")
'i = GoExcel.FindRow("D:\Artikel.xlsx", "Systemaufbau", "gebogen", "=", v)
'i2= GoExcel.CurrentRowValue("gepulvert")

'If i2 = "106165" Then
'MessageBox.Show("Fehler", "Fehler")
'iProperties.Value("Project", "Stock Number") = ""
'End If

'iProperties.Value("Project", "Stock Number") = i2


'ThisDoc.Save

oDoc.Close

End If
Loop

Ich hab zum Testen einiges auskommentiert. Sollte funktionieren..

Siehe auch Lösung dieses Beitrags .

Gruß,
Aleks

Betreff: Ilogic Schleife programmieren Inventor 2019

ANKE885 — Fri, 25 Oct 2019 10:57:40 GMT

Vielen Dank für die ganzen Tipps.

Ich möchte 10 Baugruppen oder bauteile öffnen und die durchlaufen lassen. Also nicht die Bauteile die in einer Baugruppe sind.

Ich werde es am Montag testen.

Danke schon mal

Betreff: Ilogic Schleife programmieren Inventor 2019

ANKE885 — Mon, 28 Oct 2019 08:09:22 GMT

Guten Morgen,

ich hab den Code getestet. Ich bekommen leider eine Fehlermeldung. Ich hab sie als Anhang angefügt.

Betreff: Ilogic Schleife programmieren Inventor 2019

Martin-Winkler-Consulting — Mon, 28 Oct 2019 08:43:11 GMT

@ANKE885

Welchen Code hast du getestet?

Kannst du deinen Code hier bitte 1:1 posten am besten mit der Startdatei dabei und wenn möglich den Excel Tabellen.

In welchem Dateityp hast du den Code gestartet (ipt,iam,idw)?

Des Weiteren ist mir unklar was in einer ipt durchlaufen werden soll?

Da gibt es die iProperties die geändert werden sollen jeweils nur einmal.

Die Fehlermeldung bezieht sich auf die Design Tracking Properties:

Design Tracking Properties/{32853F0F-3444-11D1-9E93-0060B03C1CA6}

Betreff: Ilogic Schleife programmieren Inventor 2019

ANKE885 — Mon, 28 Oct 2019 12:18:43 GMT

Hallo Martin,

ich habe 4 Bauteile (ipt´s) geöffnet. Die Bauteile waren Blechbearbeitungen, aber das dürfte ja keine Auswirkungen auf die Iproperties haben.

Dim oApp As Inventor.Application
Dim oDoc As Inventor.Document
oApp = ThisApplication

If oApp.ActiveDocument Is Nothing Then
MessageBox.Show ("Kein Dokument geöffnet")
Exit Sub
End If

Do While Not oApp.ActiveDocument Is Nothing
    
    oDoc = ThisApplication.ActiveDocument

If iProperties.Value("Project", "Part Number") = "" Then
oDoc.Close
Else

V = iProperties.Value("Project", "Part Number")
i = GoExcel.FindRow("D:\Artikel.xlsx", "Schubkastendoppel", "gebogen", "=", V)
i2= GoExcel.CurrentRowValue("gepulvert")

'If i2 = "106165" Then
'MessageBox.Show("Fehler", "Fehler")
'iProperties.Value("Project", "Stock Number") = ""
'End If

iProperties.Value("Project", "Stock Number") = i2


oDoc.Save

oDoc.Close

End If
Loop

Das hier war mein Code. Einzigste Änderung zu oben: Name des Tabellenblatt.

Wenn ich meine Regel ohne die Schleife laufen lasse, also nur der Teil:

V = iProperties.Value("Project", "Part Number")
i = GoExcel.FindRow("D:\Artikel.xlsx", "Schubkastendoppel", "gebogen", "=", V)
i2= GoExcel.CurrentRowValue("gepulvert")
iProperties.Value("Project", "Stock Number") = i2

läuft sie tadellos. Er schreibt mir die gesuchte, richtige Nummer in die Ipropertie. Daran liegt es nicht.

Du hast geschrieben dir ist nicht klar was in einer ipt durchlaufen werden soll...

Egal ob iam oder ipt, er soll immer die Bauteilenummer aus den iproperties hernehmen (die ist gefüllt) und mit der Nummer in der Excelliste eine zweite Nummer suchen und diese in die iproperties schreiben. Mehr nicht.

Eigentlich eine ganz einfache Arbeit. Ohne Schleife funktioniert es ja.

Trotzdem Danke für die Hilfe.

Betreff: Ilogic Schleife programmieren Inventor 2019

Martin-Winkler-Consulting — Mon, 28 Oct 2019 13:59:18 GMT

@ANKE885

Ich habe das getestet und reproduziert und habe jetzt auch die Sache mit der Schleife verstanden.

Das kann man so nicht machen und es wundert mich das Inventor da nicht schon früher aussteigt.

Du führst in Bauteil A deine Regel aus. Innerhalb der Regel schließt du Bauteil A und möchtest das die Regel in Bauteil B weiter ausgeführt wird....usw. bis alle offenen Bauteile / Baugruppen abgearbeitet und geschlossen sind.

Da du mit Bauteil A die ausführende ursprüngliche Instanz schließt gehen die Objektbezüge verloren und Inventor kommt unweigerlich ins schleudern.

Wenn überhaupt, musst du diese Schleife in einem VBA Makro programmieren welches du unabhängig von einem aufrufenden Bauteil ausführen kannst.

Betreff: Ilogic Schleife programmieren Inventor 2019

aleksandar.krstic657RJ — Mon, 28 Oct 2019 14:29:37 GMT

Hallo @ANKE885

da hat Martin natürlich völlig recht.

Irgendwie bin ich von einer externen Regel ausgegangen. Diese Möglichkeit würde es auch noch geben 🤔

Grüße,

Aleks