RDforum.free.fr/Cast3M   Index du Forum
Site Web Cast3M
RDforum.free.fr/Cast3M
Forum d'entraide des utilisateurs de Cast3M
Répondre au sujet
Extraction des valeurs d'un champ complet dans excel
borisclouet


Inscrit le: 15 Juil 2013
Messages: 2
Répondre en citant
Bonjour,

J'aimerais extraire un champ de déplacements, ou températures, ou déformations dans une table excel avec 3 colonnes:

1:abscisses,
2:ordonnées,
3:valeur de la composante choisie


Est-ce que certains d'entres vous on déjà effectué cette manipulation?

je suis preneur de conseils.

Smile

Boris
Voir le profil de l'utilisateurEnvoyer un message privé
lguenhael
Administrateur

Inscrit le: 25 Nov 2006
Messages: 146
Localisation: Laboratoire Roberval - UTC
Répondre en citant
Bonjour,

Pour se faire vous pouvez vous inspirer directement de la procédure @EXEL1 :

http://www-cast3m.cea.fr/index.php?page=procedures&procedure=%40excel1

En entrée de la procédure modifiée vous donnez un champ par point scalaire.
Dans la procédure vous récupérez les coordonnées et la valeur de champ que vous écrivez dans votre fichier.

Cordialement.
Voir le profil de l'utilisateurEnvoyer un message privéEnvoyer un e-mail
RG


Inscrit le: 06 Nov 2013
Messages: 7
Répondre en citant
Bonjour,

Je n'arrive pas à faire fonctionner cette procédure correctement.

Si j'exécute ce fichier :
ev1 = EVOL MANU (PROG 0. 1. 2.) (PROG 0. 1. 2.) ;
FICOUT = 'r_400.txt' ;
@EXCEL1 EV1 FICOUT ;

Le fichier résultat r_400.txt contient uniquement :
0.0000 ; 0.0000

Et de manière générale lorsque j'essaye d'utiliser une routine de type :
OPTI IMPR 10 IMPR FICOUT;
REPETER BOU1 NB;
X1=EXTR PROG1 &BOU1;
Y1=EXTR PROG2 &BOU1;
MESSAGE X1 ';' Y1 ;
FIN BOU1;
OPTI IMPR 6;

J’obtiens uniquement la première ligne dans mon fichier résultat.

Y a t il quelque chose que je rate?

Merci!

RG
Voir le profil de l'utilisateurEnvoyer un message privé
borisclouet


Inscrit le: 15 Juil 2013
Messages: 2
Répondre en citant
Bonjour,

Pour ma part j'ai réussi en extrayant les valeurs en chaque noeud en faisant une boucle sur le nombre de noeuds, cependant il y a des petites erreurs d'extraction pour certains noeuds.

*
SIGMXX = PROG;
SIGMYY = PROG;
UXX = PROG ;
UYY = PROG ;
XTEST = PROG;
YTEST = PROG;
EXX = PROG ;
EYY = PROG ;
*
*nNoeud = NBNO SURFTOT ;
*
*REPE BOUCSX (nNoeud) ;
* NOEUN = NOEU &BOUCSX ;
* XX YY = COOR NOEUN ;
* XTEST = INSE XTEST &BOUCSX XX ;
* YTEST = INSE YTEST &BOUCSX YY ;
* UX = EXTR DT 'UX' NOEUN ;
* UY = EXTR DT 'UY' NOEUN ;
* UXX = INSE UXX &BOUCSX UX ;
* UYY = INSE UYY &BOUCSX UY ;
* EX = EXTR EPS1b 'EPXX' NOEUN ;
* EY = EXTR EPS1b 'EPYY' NOEUN ;
* EXX = INSE EXX &BOUCSX EX ;
* EYY = INSE EYY &BOUCSX EY ;
* SIGMX = EXTR S_b_FIN 'SMXX' NOEUN ;
* SIGMY = EXTR S_b_FIN 'SMYY' NOEUN ;
* SIGMXX = INSE SIGMXX &BOUCSX SIGMX ;
* SIGMYY = INSE SIGMYY &BOUCSX SIGMY ;
*FIN BOUCSX ;
Voir le profil de l'utilisateurEnvoyer un message privé
RG


Inscrit le: 06 Nov 2013
Messages: 7
Répondre en citant
Si quelqu'un rencontre le même soucis que moi :
il faut faire FIN; dans le programme pour que l'écriture du fichier sortie soit effective et complète.
Voir le profil de l'utilisateurEnvoyer un message privé
Extraction des valeurs d'un champ complet dans excel
Vous ne pouvez pas poster de nouveaux sujets dans ce forum
Vous ne pouvez pas répondre aux sujets dans ce forum
Vous ne pouvez pas éditer vos messages dans ce forum
Vous ne pouvez pas supprimer vos messages dans ce forum
Vous ne pouvez pas voter dans les sondages de ce forum
Vous ne pouvez pas joindre des fichiers
Vous ne pouvez pas télécharger des fichiers
Toutes les heures sont au format GMT + 2 Heures  
Page 1 sur 1  

  
  
 Répondre au sujet