---

Verknuepfg_loesen.jpg

Ist es möglich, in allen Dateien eines Ordners, jeweils die ipart-Verknüpfung zu lösen - mit vba? Falls ja, wie?

Danke für eventuelle Tips.

------------------
---------
Grüße vom
Kühlfisch

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

---

hallo,

quick & dirty und nicht getestet - sollte aber gehen:

Code:

---

Private Sub execCmd()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDef As ControlDefinition
 
  For i = 1 To oApp.CommandManager.ControlDefinitions.Count
 
    If oApp.CommandManager.ControlDefinitions(i).InternalName = "S3BreakLinkCmd" Then
   
      Set oDef = oApp.CommandManager.ControlDefinitions(i)
      Exit For
     
    End If
   
  Next i
 
 
  'Debug.Print oDef.DisplayName
 
  oDef.Execute
 
End Sub

---

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Online 3D-Ersatzteilkataloge

Meine Tochter auf Youtube

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

---

Danke für den Code. Komme damit aber leider nicht zurecht. Muss ich die Dateien öffnen, bei welchen die Verknüpfung gelöst werden soll?

------------------
---------
Grüße vom
Kühlfisch

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

---

...ich schätze mal Ja...

Der Code wird im aktuell geöffneten Dokument ausgeführt.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Online 3D-Ersatzteilkataloge

Meine Tochter auf Youtube

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

---

Habe schon wieder einen ziemlich großen Haufen an ipart-Verknüpfungen zu lösen. Weiß vielleicht inzwischen jemand Rat oder hat ein funktionierendes Script?

------------------
---------
Grüße vom
Kühlfisch

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

---

Hallo

Der Code von Hr. Schuepbach funktioniert. Datei öffnen, Code ausführen, Speichern, Schließen - Was noch?

------------------
MfG
Ralf

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

---

Zitat:

---

Original erstellt von rkauskh:
Hallo

Der Code von Hr. Schuepbach funktioniert. Datei öffnen, Code ausführen, Speichern, Schließen - Was noch?

---

Zu "was noch": Der Code bringt in dieser Form keine  Arbeitserleichterung mit sich, denn es braucht genau so viele Klicks wie bei der konventionellen Lösung. Es geht darum, bei sehr vielen Dateien die Verknüpfung zu lösen. Wenn ich bei jeder einzelnen Datei, die oben beschriebenen Schritte durchführen muß, braucht das sehr, sehr lange. Brauchbar wäre z. B. eine Lösung, bei welcher alle geöffneten Dateien nacheinander durch ein Script abgearbeitet werden.

------------------
---------
Grüße vom
Kühlfisch

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

---

Moin

Dann versuch mal den hier:

Code:

---

Private Sub execCmd()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDef As ControlDefinition

  For i = 1 To oApp.CommandManager.ControlDefinitions.Count

    If oApp.CommandManager.ControlDefinitions(i).InternalName = "S3BreakLinkCmd" Then
 
      Set oDef = oApp.CommandManager.ControlDefinitions(i)
      Exit For
   
    End If
 
  Next i
 
'Debug.Print oDef.DisplayName
 
Dim oDoc As Document
Dim oPartDoc As PartDocument
For Each oDoc In oApp.Documents
    If oDoc.DocumentType = kPartDocumentObject Then
        oPartDoc = oDoc
        If oPartDoc.ComponentDefinition.iPartMember = True Then
            oPartDoc.Activate
            oDef.Execute
        End If
    End If
Next
 

End Sub

---

------------------
MfG
Ralf

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

---

01.PNG

Hi Ralf,
es kommt leider eine Fehlermeldung siehe Bild. Was soll dieser Code genau machen (verstehe leider nix von vba).

------------------
---------
Grüße vom
Kühlfisch

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

---

Moin

Sorry, hab das Set vergessen.

Code:

---

Set oPartDoc = oDoc

---

Eventuell ist es auch erforderlich das Aktivieren des jeweiligen Dokumentes mit Call zu machen.

Code:

---

Call oPartDoc.Activate

---

------------------
MfG
Ralf

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

---

02.PNG

Kommt eine neue Fehlermeldung, siehe Bild.

------------------
---------
Grüße vom
Kühlfisch

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

---

Hups

Code:

---

If oPartDoc.ComponentDefinition.IsiPartMember = True Then

---

------------------
MfG
Ralf

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

---

Nun gut - es kommt jetzt keine Meldung mehr. Was muß ich tun, um das Script über die geöffneten Teile laufen zu lassen?

------------------
---------
Grüße vom
Kühlfisch

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

---

Hi

Na einfach laufen lassen. Das Script wandert selbständig durch alle geöffneten Dateien. Danach hattest du doch gefragt.

------------------
MfG
Ralf

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

---

Hallöchen, kann beobachten wie alle geöffneten Fenster nacheinander aktiviert werden - jedoch werden die Verknüpfungen nicht gelöst. Irgendetwas klemmt noch.

------------------
---------
Grüße vom
Kühlfisch

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

---

Hallo

Der Name der ControlDefinition war falsch. Entweder hat Autodesk das umbenannt oder Hr. Schuepbach meinte eine andere Verknüpfung. Teste mal bitte folgendes:

Code:

---

Private Sub execCmd()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDef As ControlDefinition

  For i = 1 To oApp.CommandManager.ControlDefinitions.Count

    If oApp.CommandManager.ControlDefinitions(i).InternalName = "DeselBreakLinkCtxCmd" Then

      Set oDef = oApp.CommandManager.ControlDefinitions(i)
      Exit For
 
    End If

  Next i

'Debug.Print oDef.DisplayName

Dim oDoc As Document
Dim oPartDoc As PartDocument
For Each oDoc In oApp.Documents
    If oDoc.DocumentType = kPartDocumentObject Then
        Set oPartDoc = oDoc
        If oPartDoc.ComponentDefinition.IsiPartMember = True Then
            Call oPartDoc.Activate
            Call oDef.Execute
            oPartDoc.Update
        End If
    End If
Next

End Sub

---

------------------
MfG
Ralf

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

---

Hi Ralf,

funktioniert 1A! Dickes Danke an Dich für deine Hilfe.

------------------
---------
Grüße vom
Kühlfisch

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

---

Bestimmt lassen sich doch die geöffneten Dateien auch noch in einem Rutsch speichern und schliessen  ?

------------------
---------
Grüße vom
Kühlfisch

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

---

Hallo

In einem Rutsch würde ich nicht machen, falls doch mal andere Dokumente mit geöffnet sind. Setz unter

Code:

---

oPartDoc.Update

---

noch

Code:

---

oPartDoc.Save
oPartDoc.Close

---

Dann solltest du am Ende vor einem leeren Inventor sitzen.

------------------
MfG
Ralf

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

---

Hallo Ralf,
top, klappt wunderbar - Danke sehr - wieder tausende Mausklicks eingespart.

Derzeit öffne ich jeweils hundert Teile und lasse das Script darüber laufen. Bestimmt läßt sich sogar ein Teil nach dem anderen aus dem Ordner öffnen - oder auch aus allen Unterordnern - und die Verknüpfung lösen, speichern und schließen. Wie geht das, wo lernt man das am besten in Berlin und wo überhaupt befindet sich die spezielle "VBA für Inventor Hilfe"?

------------------
---------
Grüße vom
Kühlfisch

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

---

Hallo

Fang mal mit der Entwicklerhilfe von Inventor an. Neben dem Hilfe-Fragezeichen auf das kleine schwarze Dreieck klicken, weitere Ressourcen, Entwicklerhilfe. Da sind auch ein paar Artikel zu grundsätzlichen Themen und dem Aufbau des Objektmodells. Weiterhin hilfreich ist der Blog von Brian Ekins.
Sämtliche VBA-Einsteigertutorials im Internet die sich mit der Syntax und Funktionen von VBA beschäftigen kannst du auch hernehmen.

------------------
MfG
Ralf

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