• Industries
  • Products
  • Buy
  • Services & Support
  • Communities
  • Discussion Groups

    Autodesk Robot Structural Analysis

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

    API fissuration d'un type de ferraillage

    86 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
    Posts: 2,507
    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
    Product Support
    Autodesk, Inc.
    Please use plain text.
    Active Member
    Posts: 9
    Registered: ‎10-15-2008

    Re: API fissuration d'un type de ferraillage

    06-06-2012 06:29 AM in reply to: RG_Adsk

    Merci

    Please use plain text.