---

Hallo zusammen,
habe hier den Code. Ich will damit ein Teil aus einer Selektion auswählen und drehen. Ich kann die Variablen (LageVektoren) des betteffenden Teil auswählen und auch neue Werte zuweisen. Leider hatt nun die Zeile "ProductToMove.Move.Apply oLageVektoren" keine Auswirkungen auf mein Product. Sollte es doch haben oder?

Vielen Dank für die Hilfe.

Gruß
JonnyXe

'For Schleife mit Elementanzahl'
For i = 1 To anzahl
  'Einzlenes Lager auswählen'
  MsgBox "Ausrichten des Lagers Nr. " & i
  Set currentObject = selection1.Item(i)
   
  'Ausrichten des Lagers'
  'Aktuelle Position des Lagers'
    sProdName = selection1.Item(i).Reference.Name
    Set oParentProd = selection1.Item(i).Reference.Parent
    Set ProductToMove = oParentProd.Item(sProdName)
   
    ProductToMove.Position.GetComponents oLageVektoren
   

   
  'Einbaulage definieren:'
    'Vektor der x-Achse. Soll konstant bleiben deshalb wegkom.'
    'oLageVektoren(0) = 1
    'oLageVektoren(1) = 0
    'oLageVektoren(2) = 0
   
    'Vektor der y-Achse'
    oLageVektoren(3) = 0
    oLageVektoren(4) = 1
    oLageVektoren(5) = 0
   
    'Vektor der z-Achse'
    oLageVektoren(6) = 0
    oLageVektoren(7) = 0
    oLageVektoren(8) = 1
   
   
    MsgBox "OK klicken um Drehung durchzuführen"
   
    ProductToMove.Move.Apply oLageVektoren
   
    MsgBox "Fertig!"
   

 
Next

End Sub

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

---

Habs gefunden!

Es muss heißen: ProductToMove.Position.SetComponents oLageVektoren

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