Discussion Groups

Robot Structural Analysis

Reply
Active Member
mejdi
Posts: 10
Registered: ‎10-15-2008

API fissuration d'un type de ferraillage

143 Views, 2 Replies
06-05-2012 06:51 AM

bonjour

je vient de creer un type de ferraillage(avec VBA) d'une plaque selon la norme BAEL 

j'aiemerai le type de modifier le type de fissuration en autre (comme indiqué dans imgaes) et modifier les valeures :contrainte dans le Béton fc28 et la contrainte dans l'acier


Capture.JPG

 

j'ai essayer de modifier la valeur de fissuration de la label en autre (Ferlabledata.Cracking = I_CBAELCT_OTHER) Mais ça n'a rien donné (ci dessous mon code)

 

Sub test_reinforce_BAEL()

Dim robot As IRobotApplication
Dim monobjet As RobotObjObject
Dim Ferlabel As RobotLabel
Dim Ferlabledata As RConcr_BAEL_ReinforceData
Set robot = New RobotApplication

'ouverture
robot.Project.New I_PT_SHELL

'préference de l'affaire  & Norme de calcul de ferraillage
Set ProjectPrefs = robot.Project.Preferences
ProjectPrefs.SetActiveCode I_CT_RC_THEORETICAL_REINF, "BAEL 91 mod. 99"

Set Ferlabel = robot.Project.Structure.Labels.Create(I_LT_PANEL_REINFORCEMENT, "BAEL2")
Set Ferlabledata = Ferlabel.Data

Ferlabledata.SetMainDirection I_CRD_ALONG_Z, 1, 1, 1 'Direction
Ferlabledata.Main.UnidirReinf = False 'Ferraillage dans une Direction

'=========parametre  ELS
Ferlabledata.SLS_Deflection = True 'Etendue des calculs Fléche
Ferlabledata.SLS_DeflectionReinfCorrect = True 'Etendue des calculs Correction du ferrailage

Ferlabledata.CrackingBot = I_CBAELCT_OTHER 'Fissuration - = autre
Ferlabledata.CrackingTop = I_CBAELCT_OTHER 'Fissuration + = autre

'=========Ferraillage
Ferlabledata.BarDim_D1_Bot = 20
Ferlabledata.BarDim_D1_Up = 20
Ferlabledata.BarDim_D2_Up = 25
Ferlabledata.BarDim_D2_Bot = 32


robot.Project.Structure.Labels.Store Ferlabel

End Sub


Please use plain text.
Product Support
Rafal.Gaweda
Posts: 5,189
Registered: ‎04-26-2010

Re: API fissuration d'un type de ferraillage

06-06-2012 02:37 AM in reply to: mejdi

Small corrections:

 

Ferlabledata.CrackingBot = 3 'Fissuration - = autre
'Ferlabledata.CrackingBot = I_CBAELCT_OTHER 'Fissuration - = autre
Ferlabledata.CrackingTop = 3 'Fissuration + = autre
'Ferlabledata.CrackingTop = I_CBAELCT_OTHER 'Fissuration - = autre


'=========Ferraillage
Ferlabledata.BarDim_D1_Bot = 0.02
Ferlabledata.BarDim_D1_Up = 0.02
Ferlabledata.BarDim_D2_Up = 0.025
Ferlabledata.BarDim_D2_Bot = 0.032

 Unfortunately it is not possible to set these Parameters thru API



Rafal Gaweda
Please use plain text.
Active Member
mejdi
Posts: 10
Registered: ‎10-15-2008

Re: API fissuration d'un type de ferraillage

06-06-2012 06:29 AM in reply to: Rafal.Gaweda

Merci

Please use plain text.