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.