---

hallo,

hat jemand von euch schon vielleicht ein Makro in Excel geschrieben, über die die Baugruppen öffnen kann?
Übrigens wird mein Projekt über Excel-Tabelle gesteuert und es gibt viele Variante davon und ich möchte gerne diese Variante uber eine Schaltfläche in der Excel-Tabelle öffnen.
Gruß Kristof

P.S. Betet Euch für den Papst

[Diese Nachricht wurde von inv-Kristof am 02. Apr. 2005 editiert.]

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

---

Hallo Kristof,

mit diesem VBA Code kannst du aus Excel eine Inventordatei öffnen

Public Sub xlsload()
Dim oIV As Inventor.Application
Dim fname
Set oIV = CreateObject("Inventor.Application")
fname = "C:\Dokumente und Einstellungen\juergen\Desktop\_IV\bauteil1.ipt"
oIV.Documents.Open fname
oIV.ApplicationEvents.Application.Visible = True
End Sub

du musst die Var. fname (=Dateiname) eben korrekt setzen.

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

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

---

Hut ab, der Jürgen ist ein Wahnsinn!

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

  Das Saxregister
 

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

---

Hallo Jürgen,

ich habe das mir etwas anders vorgestellt. Nämlich in einer Spalte habe ich alle Variante meines tabellengesteuerten Projektes (Dateiname) abgelegt und ich möchte ja gerne diese Variante über Kombinationsfeld auswählen und letztendlich über die Schaltfläche, in der sich Makro verbirgt, öffnen können.

Gruß Kristof

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

---

schau mal in die VBA Hilfe von Inventor:

This sample demonstrates placing an assembly occurrence. Before running the sample, you need to open an assembly and create a part file called "C:\Temp\Part1.ipt," or edit the sample code to point to another part file if desired.

Public Sub AddOccurrence()
    ' Set a reference to the assembly component definintion.
    ' This assumes an assembly document is open.
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
   
    ' Set a reference to the transient geometry object.
    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry
   
    ' Create a matrix.  A new matrix is initialized with an identity matrix.
    Dim oMatrix As Matrix
    Set oMatrix = oTG.CreateMatrix
   
    ' Set the rotation of the matrix for a 45 degree rotation about the Z axis.
    Call oMatrix.SetToRotation(3.14159265358979 / 4, _
                            oTG.CreateVector(0, 0, 1), oTG.CreatePoint(0, 0, 0))
   
    ' Set the translation portion of the matrix so the part will be positioned
    ' at (3,2,1).
    Call oMatrix.SetTranslation(oTG.CreateVector(3, 2, 1))
   
    ' Add the occurrence.
    Dim oOcc As ComponentOccurrence
    Set oOcc = oAsmCompDef.Occurrences.Add("C:\Temp\Part1.ipt", oMatrix)
End Sub

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

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

---

Zitat:

---

Original erstellt von SHP:
Hut ab, der Jürgen ist ein Wahnsinn!

---

Ich würde sagen, ich habe mit diesem "Codewunder" mein VBA Knowhow annähernd ausgereizt 

------------------
Grüsse
Jürgen
www.inventor-faq.de
Autodesk Inventor Certified Expert

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