| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: Makros nicht in default.ivb (1441 mal gelesen)
|
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 20. Dez. 2005 12:17 <-- editieren / zitieren --> Unities abgeben:
|
Evil_Bart Mitglied CAD Admin (Freiberuflich)
Beiträge: 137 Registriert: 14.08.2003 - Win 7 CAD: - Inventor 2013 Pro - AM 2013 - SAP/PLM
|
erstellt am: 20. Dez. 2005 17:42 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 20. Dez. 2005 18:04 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
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 |
SHP Mitglied Konstrukteur
Beiträge: 1331 Registriert: 17.07.2003 IV9-SP3 IV10-Sp3a IV11
|
erstellt am: 21. Dez. 2005 12:07 <-- editieren / zitieren --> Unities abgeben:
|
legenb Mitglied Techniker
Beiträge: 859 Registriert: 19.03.2002
|
erstellt am: 31. Jan. 2006 15:16 <-- editieren / zitieren --> Unities abgeben: Nur für SHP
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 |