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