All Frameworks Object Hierarchy This Framework Indexes
| o Property Length( | ) As (Read Only) |
| o Property NbDOFs( | ) As (Read Only) |
| o Sub ApplyPosition( | piPositionIncrement) |
Dim myPosition(11)
'Rotation (45 degrees around the x axis)
myPosition(0) = 1.000
myPosition(1) = 0
myPosition(2) = 0
myPosition(3) = 0
myPosition(4) = 0.707
myPosition(5) = 0.707
myPosition(6) = 0
myPosition(7) = -0.707
myPosition(8) = 0.707
'Translation vector (10,20,30)
myPosition(9) = 10.000
myPosition(10) = 20.000
myPosition(11) = 30.000
myManikin.Body.GetItem("LLHeEye").ApplyPosition myPosition
| o Func GetDOF( | piDOFNumber) As |
| o Sub SetPosition( | piNewPosition) |
Dim myPosition(11)
'Rotation (45 degrees around the x axis)
myPosition(0) = 1.000
myPosition(1) = 0
myPosition(2) = 0
myPosition(3) = 0
myPosition(4) = 0.707
myPosition(5) = 0.707
myPosition(6) = 0
myPosition(7) = -0.707
myPosition(8) = 0.707
'Translation vector (10,20,30)
myPosition(9) = 10.000
myPosition(10) = 20.000
myPosition(11) = 30.000
myManikin.Body.GetItem("LLHeEye").SetPosition myPosition
Copyright © 2003, Dassault Systèmes. All rights reserved.