---

Hallo Forum-User

hab mal wieder eine Frage und zwar wie kann ich mittels VBA alle ausgewählten Teile in einer Baugruppe auf 0,0,0 setzen?

Habe folgenden Code gefunden, dieser ändert allerdings immer nur ein Teil! Kann mir jemand sagen wie der Code geändert werden muss, das er meinen Vorstellungen entspricht?

Code:

---

Public Sub Teile_auf_Ursprung()
    ' Set a reference to the assembly component definintion.
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

    ' Get an occurrence from the select set.
    On Error Resume Next
    Dim oOccurrence As ComponentOccurrence
    Set oOccurrence = ThisApplication.ActiveDocument.SelectSet.Item(1)
    If Err Then
        MsgBox "An occurrence must be selected."
        Exit Sub
    End If
    On Error GoTo 0

    ' Get the current transformation matrix from the occurrence.
    Dim oTransform As Matrix
    Set oTransform = oOccurrence.Transformation

    ' Move the occurrence honoring any existing constraints.
    oTransform.SetTranslation ThisApplication.TransientGeometry.CreateVector(2, 2, 3)
    oOccurrence.Transformation = oTransform

    ' Move the occurrence ignoring any constraints.
    ' Anything that causes the assembly to recompute will cause the
    ' occurrence to reposition itself to honor the constraints.
    oTransform.SetTranslation ThisApplication.TransientGeometry.CreateVector(0, 0, 0)
    Call oOccurrence.SetTransformWithoutConstraints(oTransform)

    ' Iterate through all of the occurrences and ground them.
        oOccurrence.Grounded = True
    'Next

End Sub

---

Danke schonmal im Voraus

Wir haben Inventor 10

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

---

Schau mal in die SDK rein. Da findest du Beispiele dafür.

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

FX64 Software Solutions

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

---

Hallo

Was ist die SDK und wo finde ich die?

MfG
Freak

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

---

Software Developer Kit

findest Du unter

/inventor11/SDK

oder unter Hilfe im Inventor Programmierhilfe

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

hallo

welches sample muss ich mir da anschauen?
Habe nichts gefunden!

MfG
Freak

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

---

Hallo Forumuser,

kann ich die Winkel auch beeinflussen über VBA?

Ich hab jetzt schon im Forum und in der Hilfe nachgeschaut, bin aber zu keinem Ergebniss gekommen! Ich muss allerdings auch gestehen, das ich mich so gut wie gar nicht damit auskenne! Ich kann mir nur die Struktur erklären, da ich andere Programmiersprachen kann und diese ähnlich aufgebaut sind aber so wirklich steig ich bei VBA noch nicht durch!

MfG
Freak

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

---

 

Zitat:

---

Original erstellt von freak-tom:

kann ich die Winkel auch beeinflussen über VBA?

---

Hallo,

Wenn ich Deine Frage richtig verstehe, dann suchst Du nach der Möglichkeit, die Einbauposition - also die Lage im Raum - zu definieren.
Das ist keine Frage der Programmiersprache, sondern ist reine Vektorgeometrie und nennt sich Transformationsmatrix. Dabei handelt es sich um eine gewöhnliche 4x4 Matrix, also 3 Vektoren, die die Transformation beschreiben und 1 Vektor der die Translation beschreibt.

Steht doch alles im Beispielcode drin, den Du selber gepostet hast ?
Ein paar Zeilen irgendwo rauskopieren und im VBA-Editor durchlaufen zu lassen machen eben noch keinen Programmierer... Offensichtlich hast Du die wenigen Zeilen Code des Beispiels nicht verstanden.

Und was Du bei VB(A) nicht verstehen willst, das wiederum verstehe ich nicht. Wenn Du eine OOP-Sprache kannst, dann sollte aber VB(A) kein Problem darstellen.

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

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

thinkCAD Web-Kataloge

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

---

Zitat:

---

Original erstellt von freak-tom:
... da ich andere Programmiersprachen kann ...

---

Und welche wären das? Inventor kannst du mit vielen Sprachen ansprechen: VB, C++, C#, Delphi,...

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

FX64 Software Solutions

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

---

Hallo ich kann PHP, HTML, JAVA SCRIPT, CSS, allerdings alles nur so das ich damit zurechtkomme! Ich weis also nur die Sachen, die ich bis jetzt gebraucht habe! Programmiere in meiner Freizeit Hompages!

MfG
Thomas

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