Hi
I already create cases in my model and I would like to add cases with VBA to this one.
3 : equipements
I only know this command but it create new cases.
Set cas = robapp.Project.Structure.Cases.CreateSimple(robapp.Project.Structure.Cases.FreeNumber, _
casdecharge, typecharge, I_CAT_STATIC_LINEAR)
Can you give the command to select cases in order to define new loads ?
I'd like also to create combinations like ?
type : linear
nature of case ELS
name COMB1
number 101
0.5 * 1 + 1 * 2 + 6 * 3
How can I make it ?
Solved! Go to Solution.
Solved by Rafal.Gaweda. Go to Solution.
Code for creating combination
Dim Loads As RobotCaseServer
Set Loads = RobApp.Project.Structure.Cases
Dim cmb As RobotCaseCombination
Set cmb = Loads.CreateCombination(110, "COMB1", I_CBT_ALS, I_CN_EXPLOATATION, I_CAT_COMB)
cmb.CaseFactors.New 1, 0.3
cmb.CaseFactors.New 2, 1
cmb.CaseFactors.New 6, 1
Seleting case for eg adding loads:
Dim Loads As RobotCaseServer
Set Loads = RobApp.Project.Structure.Cases
Dim RCase As RobotSimpleCas
Set RCase = Loads.Get(3) '/ where 3 is real case number
then create and set records for RCase
These are Code Combinations.
Please take a look here:
Much Thank Rafal Gaweda
but how to use the group with VBA
' G2 = CASE 2 + CASE 3
' Q1 = CASE 4 + CASE 5
' Q2 = CASE 6 + .... + CASE 14
Hi Rafal Gaweda,
Plz how to use the relation between 2 groups with code VBA and much thank
Example :
G1 And G2
Q1 Or Q2