---

Hallo,
ich wollte mal fragen, ob es grundsätzlich möglich ist, mit dem VBA-Editor in einer Baugruppe Bauteile und Unterbaugruppen gezielt zu platzieren (evtl. mit einer zusätzlichen Excel-Tabelle in der die einzelnen Koordinaten stehen).
Ich verwende Inventor noch nicht allzu lange und mit VB kenne ich mich eigentlich gar nicht aus (bis auf das, was ich bisher darüber gelesen habe, was nicht allzu viel ist).
Falls es möglich sein sollte, wo bekomme ich Informationen über die nötigen Befehle, Einführungen usw., denn was ich bisher finden konnte, war leider nicht sonderlich hilfreich.
Vielen Dank schonmal, für jede Hilfe (ich habe sie auf jeden Fall nötig)

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

---

Hallo,

Programmierhilfe: Wo? s. diesen Thread...
In den Samples gibt es ein gutes Beispiel, wie ein Assembly aufgebaut wird.

HTH

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

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

YouTube Chanel

Meine Tochter auf Youtube

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

---

Die Progammierhilfe habe ich in der Zwischenzeit auch schon auf Umwegen gefunden und meine auch, mit dieser Methode zumindest mal für einen Teil meiner Frage eine Antwort gefunden zu haben. Allerdings beim versuchen des Beispiels bekomme ich die Fehlermeldung im Bild 
Mein Code sieht so aus (im Prinzip nur das Beispiel kopiert und 'n anderes Teil genommen):

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 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:\Users\Mattes\Documents\Inventor\Phénix\Inner_Tube.ipt", oMatrix)
End Sub

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

---

Okay, das mit dem Bild hat nicht ganz funktioniert.
So sieht die Fehlermeldung aus:

Run-time error '-2147467261 (80004003)':

Method 'ThisApplication' of object 'VbaApplication' failed

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

---

Hallo,

..wahrscheinlich ein Umlaut im Bildname...

Wo hast Du Deinen Code denn drin ? Im Default-VBA-Projekt oder im Dokumenten-VBA-Projekt ? Bzw. bist Du überhaupt in Inventor-VBA ?
Für mich schaut das aus, als dass Du eher in einer anderen Anwendung - z.B. Excel - bist... und dort gibt es kein Inventor.Application Objekt als ThisApplication...

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

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

YouTube Chanel

Meine Tochter auf Youtube

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

---

Im Dokumenten-Projekt und ich hab bei Inventor auf den VBA-Editor-Button geklickt, also bin ich nicht in Excel. Ich hab 'ne neue Beugruppe erstellt, auf VBA-Editor geklickt und beim Dokumenten-Projekt hab ich den Code reinkopiert (hab's dann auch mal beim Benutzer-Projekt probiert - mit dem selben ERgebnis). Muss ich, obwohl ich in ja schon in der Baugruppe drin bin, die noch irgendwie aktivieren, so dass sie als "ThisApplication" erkannt wird?

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