(API) macro for updating panel contour loads from Excel

[Stephane.kapetanovic]

A copy of a popular discussion thread from 2014. 

Dim projPref As RobotProjectPreferences
Set projPref = Robot.Project.Preferences

Dim RU As RobotUnitData
Set RU = projPref.Units.Get(I_UT_FORCE)


Dim RUCD As RobotUnitComplexData
Set RUCD = projPref.Units.Get(I_UT_MOMENT)

Private Sub CommandButton1_Click()
Dim robapp As New RobotApplication
Dim LGR As RobotSimpleCase
Set LGR = robapp.Project.Structure.Cases.Get(1)

chargeAppli = LGR.Records.New(I_LRT_IN_CONTOUR)
Set LoadRecCont = LGR.Records.Get(chargeAppli)
'Define the list of objects to which load will be applied.
LoadRecCont.Objects.FromText "3"

donnee1 = 3
donnee2 = 3
donnee3 = 3
donnee4 = 3

LoadRecCont.SetValue I_ICRV_AUTO_DETECT_OBJECTS, 0
LoadRecCont.SetValue I_ICRV_NPOINTS, 4

LoadRecCont.SetContourPoint 1, 0, donnee3, 0
LoadRecCont.SetContourPoint 2, 3, 1 + donnee3, 0
LoadRecCont.SetContourPoint 3, 3, 1 + donnee3 + donnee4, 0
LoadRecCont.SetContourPoint 4, 0, donnee3 + donnee4, 0

LoadRecCont.SetValue I_ICRV_PX1, 0
LoadRecCont.SetValue I_ICRV_PY1, 0
LoadRecCont.SetValue I_ICRV_PZ1, -donnee1 * donnee2 * 1000
LoadRecCont.SetValue I_ICRV_PY2, 0
LoadRecCont.SetValue I_ICRV_PZ2, -1000
LoadRecCont.SetValue I_ICRV_PX3, 0
LoadRecCont.SetValue I_ICRV_PY3, 0
LoadRecCont.SetValue I_ICRV_PZ3, -8000

LoadRecCont.SetPoint 1, 0, donnee3, 0
LoadRecCont.SetPoint 2, 3, 1 + donnee3, 0
LoadRecCont.SetPoint 3, 3, 1 + donnee3 + donnee4, 0

End Sub

[Stephane.kapetanovic]

next msg