---

Hallo,
ist es möglich, aus der default.ivb heraus Makros aufzurufen die auf einem beliebigen Pfad gespeichert sind  ?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Hi Hans-Peter....

Hilft Dir das ????
http://ww3.cad.de/foren/ubb/Forum258/HTML/000073.shtml#000003

Habs nachher mittels einer DLL (AddIn) gelöst.....

LG

Andreas

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

---

Code:

---

Sub test_ivb()
    ThisApplication.VBAProjects.Open ("C:\test1.ivb") ' Hier Dein externes Projekt angeben
   
    Dim oPro As InventorVBAProject
    Set oPro = ThisApplication.VBAProjects(ThisApplication.VBAProjects.Count) ' Das eingefügte Projekt ist immer auf der letzten Stelle in der Collection
   
    Dim oCom As InventorVBAComponent
    Set oCom = oPro.InventorVBAComponents.Item(1) ' Das erste Modul aus dem externen Projekt
   
    Dim oMem As InventorVBAMember
    Set oMem = oCom.InventorVBAMembers.Item(1) ' Die erste Funktion aus dem ersten Modul
   
    ' MsgBox "Projekt: " & oPro.Name & vbCrLf & "Modul: " & oCom.Name & vbCrLf & "Funktion: " & oMem.Name
    oMem.Execute ' Funktion starten
    oPro.Close ' Projekt wieder entfernen
End Sub

---

------------------
Grüße daywa1k3r

FX64 Software Solutions
Mold&More Software Solutions

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

---

Danke,
ich hab aber noch eine Frage.
Kann man das Laden der Codes denn auch automatisch starten lassen?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Zitat:

---

Original erstellt von daywa1k3r:

Code:

---

Sub test_ivb()
    ThisApplication.VBAProjects.Open ("C:\test1.ivb") ' Hier Dein externes Projekt angeben
   
    Dim oPro As InventorVBAProject
    Set oPro = ThisApplication.VBAProjects(ThisApplication.VBAProjects.Count) ' Das eingefügte Projekt ist immer auf der letzten Stelle in der Collection
   
    Dim oCom As InventorVBAComponent
    Set oCom = oPro.InventorVBAComponents.Item(1) ' Das erste Modul aus dem externen Projekt
   
    Dim oMem As InventorVBAMember
    Set oMem = oCom.InventorVBAMembers.Item(1) ' Die erste Funktion aus dem ersten Modul
   
    ' MsgBox "Projekt: " & oPro.Name & vbCrLf & "Modul: " & oCom.Name & vbCrLf & "Funktion: " & oMem.Name
    oMem.Execute ' Funktion starten
    oPro.Close ' Projekt wieder entfernen
End Sub

---

---

Hallo Igor,

mit der Hilfe von Lothar kann ich nun bei der Diva 10 bei den iProps in Projekt, die Bauteilnummer in die Bestandsnummer kopieren.
Hierzu habe ich eine neue Default_IV10.ivb angelegt.

Jetzt meine Frage, um das Tool IV_Native, zum Erstellen von PDF-Dateien von Frank Schalla, weiter verwenden zu können, klappt Dein o.g. Code leider nicht.
Ich müsste einen Aufruf haben, um auf native_prog.ivb wieder zugreifen zu können. Zuvor war native_prog.ivb das Standard VBA-Projekt.

Kannst Du weiter helfen?

------------------
Gruss Bernd

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