Robot Structural Analysis Forum
Welcome to Autodesk’s Robot Structural Analysis Forums. Share your knowledge, ask questions, and explore popular Robot Structural Analysis topics.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

API fissuration d'un type de ferraillage

2 REPLIES 2
Reply
Message 1 of 3
mejdi
340 Views, 2 Replies

API fissuration d'un type de ferraillage

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


2 REPLIES 2
Message 2 of 3
Rafal.Gaweda
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
Message 3 of 3
mejdi
in reply to: Rafal.Gaweda

Merci

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report