Aster/Cata/cataSTA9/Macro/defi_cable_bp_ops.py

   1 #@ MODIF defi_cable_bp_ops Macro  DATE 16/10/2007   AUTEUR REZETTE C.REZETTE
   2 # -*- coding: iso-8859-1 -*-
   3 #            CONFIGURATION MANAGEMENT OF EDF VERSION
   4 # ======================================================================
   5 # COPYRIGHT (C) 1991 - 2003  EDF R&D                  WWW.CODE-ASTER.ORG
   6 # THIS PROGRAM IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
   7 # IT UNDER THE TERMS OF THE GNU GENERAL PUBLIC LICENSE AS PUBLISHED BY
   8 # THE FREE SOFTWARE FOUNDATION; EITHER VERSION 2 OF THE LICENSE, OR
   9 # (AT YOUR OPTION) ANY LATER VERSION.
  10 #
  11 # THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
  12 # WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
  13 # MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
  14 # GENERAL PUBLIC LICENSE FOR MORE DETAILS.
  15 #
  16 # YOU SHOULD HAVE RECEIVED A COPY OF THE GNU GENERAL PUBLIC LICENSE
  17 # ALONG WITH THIS PROGRAM; IF NOT, WRITE TO EDF R&D CODE_ASTER,
  18 #    1 AVENUE DU GENERAL DE GAULLE, 92141 CLAMART CEDEX, FRANCE.
  19 # ======================================================================
  20 # RESPONSABLE ASSIRE A.ASSIRE
  21
  22 # ===========================================================================
  23 #           CORPS DE LA MACRO "DEFI_CABLE_BP"
  24 #           -------------------------------------
  25 # USAGE :
  26 # Entrée :
  27 #  - MODELE
  28 #  - CABLE
  29 #  - CHAM_MATER
  30 #  - CARA_ELEM
  31 #  - GROUP_MA_BETON
  32 #  - DEFI_CABLE
  33 #  - TYPE_ANCRAGE
  34 #  - TENSION_INIT
  35 #  - RECUL_ANCRAGE
  36 #  - RELAXATION
  37 #  - CONE
  38 #      RAYON
  39 #      LONGUEUR
  40 #      PRESENT          OUI ou NON deux fois
  41 #  - TITRE
  42 #  - INFO               1 / 2
  43 #
  44 # ===========================================================================
  45
  46
  47
  48 def defi_cable_bp_ops(self,MODELE,CHAM_MATER,CARA_ELEM,GROUP_MA_BETON,
  49                            DEFI_CABLE,TYPE_ANCRAGE,TENSION_INIT,RECUL_ANCRAGE,
  50                            RELAXATION,CONE,TITRE,INFO,**args):
  51
  52   """
  53      Ecriture de la macro DEFI_CABLE_BP
  54   """
  55   from Accas import _F
  56   import aster,string, types
  57   from Utilitai.Utmess import UTMESS
  58   ier=0
  59
  60   # On importe les definitions des commandes a utiliser dans la macro
  61   DEFI_GROUP      = self.get_cmd('DEFI_GROUP')
  62   IMPR_RESU       = self.get_cmd('IMPR_RESU')
  63   DEFI_CABLE_OP   = self.get_cmd('DEFI_CABLE_OP')
  64   RECU_TABLE      = self.get_cmd('RECU_TABLE')
  65   IMPR_TABLE      = self.get_cmd('IMPR_TABLE')
  66   IMPR_CO         = self.get_cmd('IMPR_CO')
  67
  68   # La macro compte pour 1 dans la numerotation des commandes
  69   self.set_icmd(1)
  70
  71   # Le concept sortant (de type char_meca) est nomme CHCABLE dans
  72   # le contexte de la macro
  73
  74   self.DeclareOut('__DC',self.sd)
  75
  76   # ---------------------------------------------------------------------------- #
  77   #                  Début de la Macro :
  78
  79   motscles={}
  80
  81   # RECUPERATION DES INFOS DONNEES PAR LE MOT-CLE "CONE"
  82
  83   if CONE:
  84     dCONE=CONE[0].cree_dict_valeurs(CONE[0].mc_liste)
  85     for i in dCONE.keys():
  86       if dCONE[i]==None : del dCONE[i]
  87
  88     RAYON    = dCONE['RAYON']
  89     LONGUEUR = dCONE['LONGUEUR']
  90
  91     motscles['CONE']=[]
  92     motscles['CONE'].append( dCONE )
  93
  94     # RECUPERATION DU MAILLAGE A PARTIR DU MODELE
  95     __MAIL = aster.getvectjev( string.ljust(MODELE.nom,8) + '.MODELE    .LGRF        ' )
  96     __MAIL= __MAIL[0].strip()
  97     MAILLAGE = self.get_sd_avant_etape(__MAIL,self)
  98
  99     # DEFINITION DU NOM DES GROUP_NO
 100     __NOM = 'AN__'
 101     __LGNO = MAILLAGE.LIST_GROUP_NO()
 102     __LGN1 = []
 103     for i in __LGNO :
 104       __LGN1.append( i[0][:len(__NOM)] )
 105
 106     __NB  = __LGN1.count(__NOM)
 107
 108 # FIN RECUPERATION DES INFOS DONNEES PAR LE MOT-CLE "CONE"
 109
 110
 111   # RECUPERATION DES INFOS DONNEES PAR LE MOT-CLE "DEFI_CABLE"
 112
 113   dDEFI_CABLE=[]
 114   for j in DEFI_CABLE :
 115       dDEFI_CABLE.append(j.cree_dict_valeurs(j.mc_liste))
 116       for i in dDEFI_CABLE[-1].keys():
 117           if dDEFI_CABLE[-1][i]==None : del dDEFI_CABLE[-1][i]
 118
 119
 120   # BOUCLE SUR LES FACTEURS DU MOT-CLE "DEFI_CABLE"
 121
 122   motscles['DEFI_CABLE']=[]
 123
 124   for i in dDEFI_CABLE:
 125
 126     # CAS OU L'ON A DEFINI LE MOT-CLE "CONE"
 127     if CONE:
 128
 129       # CREATION DU PREMIER TUNNEL
 130
 131       if dCONE['PRESENT'][0] == 'OUI':
 132         __NB = __NB + 1
 133         __NOM1 = __NOM + str( int(__NB) )
 134
 135         motscle2={}
 136         motscle2['CREA_GROUP_NO']=[]
 137
 138         if i.has_key('GROUP_MA') == 1:
 139           __CAB = i['GROUP_MA']
 140
 141           if type(GROUP_MA_BETON) in [types.TupleType, types.ListType]: gma = list(GROUP_MA_BETON)
 142           else:                                                         gma = [ GROUP_MA_BETON ]
 143           gma.insert(0, __CAB)
 144
 145           motscle2= {'CREA_GROUP_NO': [{'LONGUEUR': LONGUEUR, 'RAYON': RAYON, 'OPTION': 'TUNNEL', 'GROUP_MA': gma, 'GROUP_MA_AXE': __CAB, 'NOM': __NOM1}]}
 146         if i.has_key('MAILLE') == 1:
 147           UTMESS('F','CABLE0_2')
 148         if i.has_key('GROUP_NO_ANCRAGE') == 1:
 149           __PC1 = i['GROUP_NO_ANCRAGE'][0]
 150           motscle2['CREA_GROUP_NO'][0]['GROUP_NO_ORIG'] = __PC1
 151         if i.has_key('NOEUD_ANCRAGE') == 1:
 152           __PC1 = i['NOEUD_ANCRAGE'][0]
 153           motscle2['CREA_GROUP_NO'][0]['NOEUD_ORIG'] = __PC1
 154
 155         DEFI_GROUP( reuse=MAILLAGE,
 156                     MAILLAGE=MAILLAGE,
 157                     INFO=INFO,
 158                     ALARME='NON',
 159                     **motscle2
 160                    ) ;
 161
 162       # CREATION DU DEUXIEME TUNNEL
 163
 164       if dCONE['PRESENT'][1] == 'OUI':
 165         __NB = __NB + 1
 166         __NOM2 = __NOM + str( int(__NB) )
 167
 168         motscle2={}
 169         motscle2['CREA_GROUP_NO']=[]
 170
 171         if i.has_key('GROUP_MA') == 1:
 172           __CAB = i['GROUP_MA']
 173
 174           if type(GROUP_MA_BETON) in [types.TupleType, types.ListType]: gma = list(GROUP_MA_BETON)
 175           else:                                                         gma = [ GROUP_MA_BETON ]
 176           gma.insert(0, __CAB)
 177
 178           motscle2= {'CREA_GROUP_NO': [{'LONGUEUR': LONGUEUR, 'RAYON': RAYON, 'OPTION': 'TUNNEL', 'GROUP_MA': gma, 'GROUP_MA_AXE': __CAB, 'NOM': __NOM2}]}
 179         if i.has_key('MAILLE') == 1:
 180           UTMESS('F','CABLE0_2')
 181         if i.has_key('GROUP_NO_ANCRAGE') == 1:
 182           __PC1 = i['GROUP_NO_ANCRAGE'][1]
 183           motscle2['CREA_GROUP_NO'][0]['GROUP_NO_ORIG'] = __PC1
 184         if i.has_key('NOEUD_ANCRAGE') == 1:
 185           __PC1 = i['NOEUD_ANCRAGE'][1]
 186           motscle2['CREA_GROUP_NO'][0]['NOEUD_ORIG'] = __PC1
 187
 188         DEFI_GROUP( reuse=MAILLAGE,
 189                     MAILLAGE=MAILLAGE,
 190                     INFO=INFO,
 191                     ALARME='NON',
 192                     **motscle2
 193                    ) ;
 194
 195
 196       # CREATION DES NOUVEAUX FACTEURS DU MOT-CLE "DEFI_CABLE" POUR DEFI_CABLE_BP
 197
 198       if dCONE['PRESENT'][0] == 'OUI' and dCONE['PRESENT'][1] == 'OUI':
 199         if i.has_key('GROUP_MA') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 200           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 201                                             GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'],
 202                                             GROUP_NO_FUT=( __NOM1,__NOM2, ), ), )
 203         if i.has_key('GROUP_MA') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 204           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 205                                             NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'],
 206                                             GROUP_NO_FUT=( __NOM1,__NOM2, ), ), )
 207
 208       if dCONE['PRESENT'][0] == 'OUI' and dCONE['PRESENT'][1] == 'NON':
 209         if i.has_key('GROUP_MA') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 210           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 211                                             GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'],
 212                                             GROUP_NO_FUT=( __NOM1, ), ), )
 213         if i.has_key('GROUP_MA') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 214           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 215                                             NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'],
 216                                             GROUP_NO_FUT=( __NOM1, ), ), )
 217
 218       if dCONE['PRESENT'][0] == 'NON' and dCONE['PRESENT'][1] == 'OUI':
 219         if i.has_key('GROUP_MA') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 220           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 221                                             GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'],
 222                                             GROUP_NO_FUT=( __NOM2, ), ), )
 223         if i.has_key('GROUP_MA') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 224           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 225                                             NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'],
 226                                             GROUP_NO_FUT=( __NOM2, ), ), )
 227
 228       if dCONE['PRESENT'][0] == 'NON' and dCONE['PRESENT'][1] == 'NON':
 229         if i.has_key('GROUP_MA') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 230           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 231                                             GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'], ), )
 232         if i.has_key('GROUP_MA') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 233           motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 234                                             NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'], ), )
 235
 236
 237     # CAS OU L'ON A PAS DEFINI LE MOT-CLE "CONE"
 238     else:
 239       if i.has_key('GROUP_MA') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 240         motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 241                                           GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'], ), )
 242
 243       if i.has_key('GROUP_MA') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 244         motscles['DEFI_CABLE'].append( _F(GROUP_MA=i['GROUP_MA'],
 245                                           NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'], ), )
 246
 247       if i.has_key('MAILLE') == 1 and i.has_key('GROUP_NO_ANCRAGE') == 1:
 248         motscles['DEFI_CABLE'].append( _F(MAILLE=i['MAILLE'],
 249                                           GROUP_NO_ANCRAGE=i['GROUP_NO_ANCRAGE'], ), )
 250
 251       if i.has_key('MAILLE') == 1 and i.has_key('NOEUD_ANCRAGE') == 1:
 252         motscles['DEFI_CABLE'].append( _F(MAILLE=i['MAILLE'],
 253                                           NOEUD_ANCRAGE=i['NOEUD_ANCRAGE'], ), )
 254
 255
 256 # FIN BOUCLE sur i in DEFI_CABLE
 257
 258
 259   # LANCEMENT DE DEFI_CABLE_BP
 260
 261   if RELAXATION:
 262     dRelaxation=RELAXATION[0].cree_dict_valeurs(RELAXATION[0].mc_liste)
 263     for i in dRelaxation.keys():
 264       if dRelaxation[i]==None : del dRelaxation[i]
 265
 266     __DC=DEFI_CABLE_OP(MODELE=MODELE,
 267                        CHAM_MATER=CHAM_MATER,
 268                        CARA_ELEM=CARA_ELEM,
 269                        GROUP_MA_BETON=GROUP_MA_BETON,
 270                        TYPE_ANCRAGE=TYPE_ANCRAGE,
 271                        TENSION_INIT=TENSION_INIT,
 272                        RECUL_ANCRAGE=RECUL_ANCRAGE,
 273                        RELAXATION=dRelaxation,
 274                        INFO=INFO,
 275                        **motscles
 276                        );
 277
 278   else:
 279
 280     __DC=DEFI_CABLE_OP(MODELE=MODELE,
 281                        CHAM_MATER=CHAM_MATER,
 282                        CARA_ELEM=CARA_ELEM,
 283                        GROUP_MA_BETON=GROUP_MA_BETON,
 284                        TYPE_ANCRAGE=TYPE_ANCRAGE,
 285                        TENSION_INIT=TENSION_INIT,
 286                        RECUL_ANCRAGE=RECUL_ANCRAGE,
 287                        INFO=INFO,
 288                        **motscles
 289                        );
 290
 291 #   __TCAB = RECU_TABLE(CO=__DC,NOM_TABLE='CABLE_BP');
 292 #   IMPR_TABLE(TABLE=__TCAB);
 293
 294   return ier