All Frameworks Object Hierarchy This Framework Indexes
Dim oSelectAct As Activity
Set oSelectAct = CATIA.ActiveDocument.Selection.FindObject("CATIAActivity")
Dim objMoveAct As MoveJointsAct
Set objMoveAct = oSelectAct.GetTechnologicalObject("MoveJointsAct")
| o Property Acceleration( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim Accl as Double
Accl=objMoveAct.Acceleration
Accl = 30
objMoveAct.Acceleration=Accl
| o Property CornerRounding( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim Rounding as Double
Rounding=objMoveAct.CornerRounding
Rounding = 30
objMoveAct.CornerRounding=Rounding
| o Property JointValues( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim ListOfJointValues()
ListOfJointValues=objMoveAct.JointValues
..
For i = 0 to ubound (ListOfJointValues)
...
Next
objMoveAct.JointValues=ListOfJointValues
| o Property MechanismIndex( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim MechIndex as Integer
MechIndex=objMoveAct.MechanismIndex
MechIndex = 1
objMoveAct.MechanismIndex=MechIndex
| o Property MotionBasis( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim MotionBas as string
MotionBas=objMoveAct.MotionBasis
MotionBas = "SPEED"
objMoveAct.MotionBasis=MotionBas
| o Property SpeedPercent( | ) As |
Dim objMoveAct As MoveJointsAct
......
Dim SpeedValPr as Double
SpeedValPr=objMoveAct.SpeedPercent
SpeedValPr = 80
objMoveAct.SpeedPercent=SpeedValPr
Copyright © 2003, Dassault Systèmes. All rights reserved.