All Frameworks Object Hierarchy This Framework Indexes
Dim objOpr as Operation ... Dim objRobotmotion as RobotMotion objOpr.GetRobotMotion objRobotmotion
Dim objActivity as Activity ... Dim objRobotmotion as RobotMotion Set objRobotmotion = objActivity.GetTechnologicalObject("RobotMotion" )
o Sub GetAccuracyProfile( | oAccuracyProfile) |
Dim objRobotMotion as RobotMotion Dim AccuracyProfile As String objRobotMotion.GetAccuracyProfile AccuracyProfile
o Sub GetAuxillaryAxisHome( | iDevice, | |
iAuxillaryAxis, | ||
oHomeName) |
Dim objRobotmotion as RobotMotion Dim Device As Product ... Dim DeviceName As String DeviceName = "Mechanism.1" Dim HomeName As String objRobotmotion.GetAuxillaryAxisHome HomeName
o Sub GetAuxillaryAxisValues( | iDevice, | |
iAuxillaryAxis, | ||
oAuxillaryAxisValues) |
Dim objRobotmotion as RobotMotion Dim Device As Product ... Dim DeviceName As String DeviceName = "Mechanism.1" Dim JointTarget(1) objRobotmotion.GetAuxillaryAxisValues Device,DeviceName,JointTarget
o Sub GetCartesianTarget( | oCartesianTarget) |
Dim objRobotmotion as RobotMotion Dim CartesianTarget(5) objRobotmotion.GetCartesianTarget CartesianTarget
o Sub GetConfig( | oConfigNumber) |
Dim objRobotmotion as RobotMotion Dim Config objRobotmotion.GetConfig Config
o Sub GetJointTarget( | oJointTarget) |
Dim objRobotmotion as RobotMotion Dim JointTarget(5) objRobotmotion.GetJointTarget JointTarget
o Sub GetMotionProfile( | oMotionProfile) |
Dim objRobotmotion as RobotMotion Dim MotionProfile As String objRobotmotion.GetMotionProfile MotionProfile
o Sub GetMotionType( | index) |
Dim objRobotmotion as RobotMotion Dim MotionType objRobotmotion.GetMotionType MotionType
o Sub GetObjectProfile( | oObjProfile) |
Dim objrobotmotion as robotmotion Dim objectProfile As String objrobotmotion.GetobjectProfile objectProfile
o Sub GetOrientationMode( | index) |
Dim objRobotmotion as RobotMotion Dim OrientationMode objRobotmotion.GetOrientationMode OrientationMode
o Sub GetTagTarget( | oTag) |
Dim objRobotmotion as RobotMotion Dim objTag as Tag objRobotmotion.GetTagTarget objTag
o Sub GetTargetType( | index) |
Dim objRobotmotion as RobotMotion Dim TargetType objRobotmotion.GetTargetType TargetType
o Sub GetToolProfile( | oToolProfile) |
Dim objRobotmotion as RobotMotion Dim ToolProfile As String objRobotmotion.GetToolProfile ToolProfile
o Sub GetTurnNumbers( | oTurnNumbers) |
Dim objRobotmotion as RobotMotion Dim TurnNumbers(4) objRobotmotion.GetTurnNumbers TurnNumbers
o Sub SetAccuracyProfile( | iAccuracyProfile) |
Dim objRobotMotion as RobotMotion objRobotMotion.SetAccuracyProfile "Default"
o Sub SetAuxillaryAxisHome( | iDevice, | |
iAuxillaryAxis, | ||
iHomeName) |
Dim objRobotmotion as RobotMotion Dim Device As Product ... Dim DeviceName As String DeviceName = "Mechanism.1" Dim HomeName As String HomeName = "Home.1" objRobotmotion.SetAuxillaryAxisHome HomeName
o Sub SetAuxillaryAxisValues( | iDevice, | |
iAuxillaryAxis, | ||
iAuxillaryAxisValues) |
Dim objRobotmotion as RobotMotion Dim Device As Product ... Dim DeviceName As String DeviceName = "Mechanism.1" Dim JointTarget(1) JointTarget(0)=1.571 JointTarget(1)=-0.785 objRobotmotion.SetAuxillaryAxisValues Device,DeviceName,JointTarget
o Sub SetCartesianTarget( | iCartesianTarget) |
Dim objRobotmotion as RobotMotion Dim CartesianTarget(5) CartesianTarget(0)=150 CartesianTarget(1)=200 CartesianTarget(2)=350 CartesianTarget(3)=1.571 CartesianTarget(4)=3.142 CartesianTarget(5)=-0.785 objRobotmotion.SetCartesianTarget CartesianTarget
o Sub SetConfig( | iConfigNumber) |
Dim objRobotmotion as RobotMotion objRobotmotion.SetConfig 1
o Sub SetJointTarget( | iJointTarget) |
Dim objRobotmotion as RobotMotion Dim JointTarget(5) JointTarget(0)=1.571 JointTarget(1)=-0.785 JointTarget(2)=3.142 JointTarget(3)=0.38 JointTarget(4)=1.57 JointTarget(5)=0.6 objRobotmotion.SetJointTarget JointTarget
o Sub SetMotionProfile( | iMotionProfile) |
Dim objRobotmotion as RobotMotion objRobotmotion.SetMotionProfile "Default"
o Sub SetMotionType( | index) |
Dim objRobotmotion as RobotMotion objRobotmotion.SetMotionType 1
o Sub SetObjectProfile( | iObjProfile) |
Dim objRobotMotion as RobotMotion Dim ObjectProfile As String objRobotMotion.SetObjectProfile "Default"
o Sub SetOrientationMode( | index) |
Dim objRobotmotion as RobotMotion objRobotmotion.SetOrientationMode 1
o Sub SetTagTarget( | iTag) |
Dim objRobotmotion as RobotMotion Dim objTag as Tag ... objRobotmotion.SetTagTarget objTag
o Sub SetToolProfile( | iToolProfile) |
Dim objRobotmotion as RobotMotion objRobotmotion.SetToolProfile "Default"
o Sub SetTurnNumbers( | iTurnNumbers) |
Dim objRobotmotion as RobotMotion Dim TurnNumbers(4) TurnNumbers(0)=1 TurnNumbers(1)=-1 TurnNumbers(2)=0 TurnNumbers(3)=2 objRobotmotion.SetTurnNumbers TurnNumbers
Copyright © 2003, Dassault Systèmes. All rights reserved.