VBA cases and combinations

[mateaus]

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 ?

[Rafal.Gaweda]

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

[Rafal.Gaweda · Accepted solution]

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

[bensalahsayf.edd]

Hi Rafal Gaweda, 

How to use this combination with vba and much thank  

[bensalahsayf.edd]

Hi Rafal Gaweda

How to use this combination with VBA and much thank ...nd much thank 

[Rafal.Gaweda]

Hi @bensalahsayf.edd 

These are Code Combinations.

Please take a look here:

https://forums.autodesk.com/t5/robot-structural-analysis-forum/api-generate-code-combinations/m-p/54...

[bensalahsayf.edd]

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

[bensalahsayf.edd]

How to create relation with group in VBA and thank 

[bensalahsayf.edd]

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