---

Guten Abend zusammen!

Fuchse mich gerade sehr langsam in die VB.Net Programmierung rein.
Es hat auch schon einiges funktioniert was ich mir vorgenommen hatte.
Leider hänge ich aber jetzt an einer Geschichte, bei der ich trotz intensiver Suche nicht fündig geworden bin.

Ich muss alte Inventor DWG Zeichnungen in denen überall unterschiedliche interne iLogic-Regeln vergraben wurden so bereinigen, dass sie wieder den neuen Richtlinien entsprechen.
Das bedeutet vor allem, "KEINE INTERNEN ILOGIC-REGELN"! 
Erschwehrend kommt noch hinzu, dass natürlich auch die auf den Zeichnungen abgebildeten Modelle eigene Regeln haben. Also muss ich per Programmierung rekursiv von der Zeichnung durch die Baugruppen gehen um alle iLogic-Regeln zu löschen.
Hierzu habe ich eine kleine iLogic-Regeln gefunden, die dies auch sehr sauber und performant macht.
Leider komme ich aber bei der Umsetzung nicht weiter.

--Code

Sub Main()
Auto = iLogicVb.Automation
Dim iLogicAuto As Object = Auto
Dim oDoc As Document = ThisApplication.ActiveDocument
Dim RuleColl As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection

Response = MessageBox.Show("Sollen wirklich ALLE iLogic-Regeln ALLER untergeordneter Dateien gelöscht werden?","Firma",MessageBoxButtons.YesNo,MessageBoxIcon.Stop,MessageBoxDefaultButton.Button2)
If Response = vbNo Then
Return
End If

DoubleCheck = MessageBox.Show("Sind Sie sich wirklich sicher?","Firma",MessageBoxButtons.YesNo,MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
If DoubleCheck = vbNo Then
Return
End If
' Build collection of rules
RuleColl = BuildRuleColl(oDoc, RuleColl, iLogicAuto)
' Delete all rules in this document
Call DeleteAllRules(oDoc, RuleColl, iLogicAuto)
' Loop through all referenced docs in assembly
For Each oSubDoc As Document In oDoc.AllReferencedDocuments
    RuleColl.Clear
    ' Build collection of rules
    RuleColl = BuildRuleColl(oSubDoc, RuleColl, iLogicAuto)
    ' Delete all rules in this document
    Call DeleteAllRules(oSubDoc, RuleColl, iLogicAuto)
Next
End Sub

Function BuildRuleColl(ByVal Doc As Document,ByRef RuleColl As ObjectCollection,ByVal iLogicAuto As Object) As ObjectCollection
'Dim ruleName As String
Dim rules As Object = iLogicAuto.rules(Doc)
If Not (rules Is Nothing) Then
    For Each rule In rules
        RuleColl.Add(rule)
    Next
End If

Return RuleColl
End Function

Sub DeleteAllRules(ByRef Doc As Document, _
                   ByRef RuleColl As ObjectCollection, _
                   ByVal iLogicAuto As Object)
For i = RuleColl.Count To 1 Step -1
    Name = RuleColl.Item(i).Name
    If Not Name = "Delete All Rules" Then
        Try
            iLogicAuto.DeleteRule(Doc, Name)
        Catch
            MsgBox("Could not delete rule: " & Name & " in document " & Doc.Name)
        End Try
    End If
Next
End Sub

--Code Ende

Die meisten Argumente bekomme ich umgesetzt allerdings hängts bei mir am Anfang bei
"Auto = iLogicVb.Automation"

Kann mir bitte hierbei jemand in den Sattel helfen?

Vielen Dank im voraus!  

[Diese Nachricht wurde von rwabst am 06. Mai. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

probier doch mal:

Code:

---

Auto = iLogicVb.Automation
Dim iLogicAuto As Object = m_inventorApplication.VBE.iLogicVb.Automation

---

------------------
MFG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nimm doch den "Code Injector" - inklusive VB.net Quelltext.
Da ist die Funktion "Delete all Rules" schon eingebaut.
http://beinginventive.typepad.com/being-inventive/2012/08/major-upgrade-to-the-ilogic-code-injector-tool.html

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke euch für die Unterstützung!!!

Den Bereich "m_inventorApplication.VBE.iLogicVb.Automation" hatte ich auch schon probiert. Beim Ausführen in Inventor 2014 gibt er mir aber die Fehlermeldung.
"Der öffentliche Member iLogicVb" für den Typ VBE wurde nicht gefunden"
Mir fehlt scheinbar irgendein import Verweis?!
Wenn ich mir VBE im Objektkatalog anschaue, ist da schon ende.
Habe auch schon versucht die ilogic runtime dll als Verweis einzubinden. Leider auch ohne Erfolg.

Sorry für meine Noob-Fragen!

@CAD-Huebner:
Den Injector hatte ich mir auch schon angeschaut. Habe ihn aber aus drei Gründen verworfen.
- persönlicher Wissensdrang
- nicht noch ein "Inselprogramm"
- einfachere Weiterverarbeitung und Implementierung bei Folgeversionen in die eigene IT-Umgebung

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

So! Geht doch!

Alsooo, für die Allgemeinheit. 
Konnte mir selbst,wie folgt helfen.

In unendlichen Weiten ... fand ich diese Programmfunktion zum Einstieg ins iLogic AddIn.

Code---

    Function GetiLogicAddin(ByVal oApplication As Inventor.Application) As Object
        Dim addIns As ApplicationAddIns
        addIns = oApplication.ApplicationAddIns
        Dim addIn As ApplicationAddIn
        On Error GoTo NotFound
        addIn = oApplication.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}")
        If (addIn Is Nothing) Then
            GetiLogicAddin = Nothing
            Exit Function
        End If
        Call addIn.Activate()
        GetiLogicAddin = addIn.Automation
        Exit Function
NotFound:
    End Function

---Code

Diesen in meine Sub aufgenommen und das ganze sieht so aus.

Code---
    Public Sub Delete_all_logic_Rules() 'löscht alle internen iLogic-Regeln recursiv durch alle abhängigen Dokumente
        g_ThisApplication = GetObject(, "Inventor.Application")

        Dim Response As String
        Response = MessageBox.Show("Sollen wirklich ALLE iLogic-Regeln ALLER untergeordneter Dateien gelöscht werden?", "Firma", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button2)
        If Response = vbNo Then
            Return
        End If

        Dim doublecheck As String
        doublecheck = MessageBox.Show("Sind Sie sich wirklich sicher?", "Firma", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If doublecheck = vbNo Then
            Return
        End If

        Dim i As Object
        i = GetiLogicAddin(g_ThisApplication)

        Dim g_ThisDocument As Inventor.Document
        g_ThisDocument = g_ThisApplication.ActiveDocument

        Dim model As Document
        model = g_ThisDocument.ReferencedDocuments.Item(1)

        '' Hier werden alle internen Regeln der Zeichnung und rekursiv durch das daruf befindliche Modell gelöscht.
        Call i.DeleteAllRulesInDocument(g_ThisDocument)
        Call i.DeleteAllRules(model)

    End Sub

--Code

Ich weiß es ist nicht schön aber ... et klappt!

Vielen Dank für die Gedankenanstöße!!!
Hilfe zur Selbsthilfe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP