Ilogic Schleife programmieren Inventor 2019
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!
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.
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
LoopIch hab zum Testen einiges auskommentiert. Sollte funktionieren..
Siehe auch Lösung dieses Beitrags .
Gruß,
Aleks
Aleksandar Krstic
Produkt- und Projektmanager
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}
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.
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.
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.
