fabientoupeti

a voir si ça peut t'aider: Sub CATMain() Dim sMessage As string sMessage = InputBox ("entre msg", "message","yep") fichier=CATIA.FileSelectionBox("fichier texte",".*txt",CatFileSelectionModeOpen) Open fichier & ".txt" For Output As #1 Print#1, "le texte rentré dans l'inputBox est : " & sMessage Close #1 End Sub

bonjour, j'ai un petit soucis avec une scrollbar dans un formulaire. j'ai un formulaire avec des contrôles créés en dynamique sur ce formulaire j'ai ajouté une scrollbar. A l'heure actuelle ma scrollbar fonctionne quand je clique et que je déplace la barre mais avec les fleches rien ne bouge à part la barre. quelqu'un sait-il d'où cela vient? faut il que je mette tous mes controles dans une frame avec la scrollbar directement dans la frame? faut il que j'utilise la scrollbar de ma userform sans en rajouter une nouvelle? Merci d'avance pour vos réponses. Fabientoupeti

Merci pascalM pour ton aide, je viens d'essayer un truc mais ça ne fonctionne pas bien mieux, je n'ai plus de message d'erreur mais ce n'est pas pour autant que j'ai ce que je veux voici mon code des fois que quelqu'un voit une faute For X = 1 To (cantidad - 2) For j = 4 To i 'principio de lectura :linea 4 (antes son solo declaraciónes) 'j=linea y 0=pimera columna Dim t1 t1 = LeTableau(j)(0) Select Case t1 Case ls * X sum(X) = Sqr(LeTableau(j)(3) ^ 2 + LeTableau(j)(4) ^ 2 + LeTableau(j)(5) ^ 2) sum(X) = Round(sum(X), 5) af(X).writeline (sum(X)) End Select Next j Next X i vaut env 12000 c'est le nombre de ligne d'un fichier texte que je lis. voilivoilou merci d'avance fabientoupeti

je viens de lire plus precisement le message d'erreur, il me dit qu'il n'est pas possible de mettre autre chose qu'un commentaire entre select case et le premier case...ça ne m'arrange pas cela. avant a la place de l'instruction select case j'utilisais l'instruction if...elseif mais ce n'es pas non plus possible d'introduire une boucle for juste avant le elseif... là vraiment je ne sais pas comment solutionner mon probleme?? je vais continuer à chercher mais si quelqu'un a une idee je suis preneur parce que là pour l'instant j'avoue ne pas trop savoir comment faire. voilivoilou merci d'avance pour les aides que vous pourrez m'apporter fabientoupeti

Merci maximilien pour ton aide En fait ce que j'aimerais faire c'est incorporer une boucle for entre select case et le premier case voici exemple: Select Case t1 For X = 1 To cantidad - 2 Case 5 * X sum(X) = Sqr(LeTableau(j)(3) ^ 2 + LeTableau(j)(4) ^ 2 + LeTableau(j)(5) ^ 2) sum(X) = Round(sum(X), 5) af(X).writeline (sum(X))Next X mais quand je fais ça mon programme ne se lance pas (message d'erreur) et je ne sais pas ce qui le gêne. en ce moment chaque cas 5,10,15,20...sont ecrit explicitement mais pour la finalité de mon programme faut que je trouve une solution d'automatiser cela parce que par la suite je ne vais plus connaitre cantidad,ca va etre un parametre à renseigner au lancement du programme. voilivoilou en esperant avoir été clair. merci d'avance fabientoupeti

bonjour, j'aimerais savoir si il etait possible de créer une boucle for à l'interieur d'un select case en vb6. je veux faire ça parce que je ne connais pas à priori le nombre de cas que je vais devoir tester. si cela n'est pas possible, y aurait-il une autre solution pour arriver à un résultat similaire (autres boucles...)? merci d'avance pour vos réponses Fabientouepti

des que je essayer ce que tu m'as indiqué je le fais et je te tiens au courant. merci beaucoup pour tes conseils, je suis un petit nouveau alors je ne connais pas tout encore sur l'utilisation du forum. a+ fabientoupeti

Bonjour en fait le probleme que j'avais (pour ce probleme j'ai trouvé une solution) et que j'ai pour d'autre broutille c'est que j'ai créé mes textbox en dynamique parce que je ne sais pqs à priori le nombre que je vais devoir utiliser à l'execution du programme. et tout mon probleme venait de là. voici les solutions que l'on a pu me proposer sur des autres forums et qui fonctionnent. dans le module de mon programme general j'ai ecrit ce bout de code: For Each rad In definicion_mano.Controls If rad.Name = "textrad0" Then 'MsgBox rad.Name MsgBox "la valeur de " & rad.Name & " est : " & rad.Value ra0 = rad.Value End If Next rad MsgBox ra0 cela me permet de recuperer la valeur de textrad0. ce petit bout de code peut etre tres facilement adapté pour recuperer la totalité des textrad*. voilivoilou merci beaucoup sechanbask pour tes aides precieuses

bonjour, je suis entrain de créer un userform qui contient des controls (label et textbox créé) de façon dynamique, sur cette userform il y a aussi une scrollbar verticale, et autres textbox créé eux de manière classique. voila comment se deroule mon prog : je rentre une valeur de ligne à créer sur ma userform, je clique OK nombre de ligne demandé se crée, sur chaque ligne j'ai un label et 4 textbox. si je depasse 25 lignes le tout sort de ma page c'est pour cela que j'ai poser une scrollbar. ce que j'aimerai faire c'est pouvoir deplacer les labels et les textbox créés dynamiquement avec la scrollbar, mais je n'y arrive pas. actuellement voici ce que j'ai, une boucle de creation de label en dynamique For i = 1 To cantidad 'boucle pour la création des label capa Set capa = definicion_mano.Controls.Add("forms.Label.1") With capa .Name = "capa" & i - 1 .Object.Caption = "capa" & i - 1 .left = 90 .Top = 18 * i + 5 .width = 60 .height = 20 End With Next i une boucle qui recupere la valeur de la position de chaque label '---------recup de la position suivant top des labels capa----------- For i = 1 To cantidad For Each capa In definicion_mano.Controls If capa.Name = "capa" & i - 1 Then captop(i - 1) = capa.Top End If Next capa Next i j'arrive donc a avoir la valeur du .top de ces labels la valeur varie meme avec la scrollbar captop(0) = 23 - ScrollBar1.Value mais par contre la position du label en lui même sur ma userform ne varie pas et je ne vois pas ce qu'il me manque. un update ou une sorte d'actualisation de la position peut etre? voilivoilou si quelqu'un pouvait me donner un tuyau pour pouvoir faire ça, ça serait vraiment super merci d'avance fabientoupeti

je suis conscient que j'ai été un peu fouilli lors de mon premier poste c'est pour ça que je viens de préciser ce que je veux régler, mais d'après ce que tu me dit ce n'est pas encore assez clair... et je me suis permis de reposter un message parce que peut etre quelqu'un d'autre pourra me donner une piste. et à mon avis catia ou pas, vb ça reste du vb et peut etre que je me trompe mais le vb et en particulier l'utilisation des userforms et les commandes associés (textbox, .value, .name...) restent les mêmes d'un logiciel à un autre. voilivoilou merci d'avance pour vos réponses et les aides que vous pourrez m'apporter fabientoupeti

rebonjour j'ai passé toute ma journée à chercher une solution mais je n'y arrive pas tout seul. mon probleme est la recuperation des valeurs de mes textbox créées j'ai essayé pas mal de truc mais la seule chose que je parviens a faire c'est recuperer le valeur de la derniere textbox en ecrivant MsgBox rad.value voici le bout de programme For i = 1 To cantidad 'boucle pour la création des textbox radio Set rad = definicion_mano.Controls.Add("forms.TextBox.1") With rad .Name = "textrad" & i - 1 'je n'arrive pas a reutiliser ce nom dans la suite de mon prog .left = 138 .top = 18 * i + 5 .width = 40 .height = 20 .Value = i End With Next i Quand j'ecris Msgbox textrad0 ou Msgbox textrad1 ou un autre chiffre j'ai un message d'erreur. peut etre que j'oublie une chose essentielle plus grosse que moi??? quelqu'un aurait-il une piste pour moi? parce que là je commence à désespérer Merci d'avance pour vos réponses fabientoupeti

merci beaucoup sechanbask, je ne connaissais pas ça et ça fonctionne du feu de dieu! qu'est ce que tu aimerais savoir sur les commandes? hier je croyais avoir tout dit... voilivoilou merci encore pour ton aide fabientoupeti

Bonjour à tous, je suis un petit nouveau dans le monde de VB ( 3 mois d'ancienneté alors je ne connais pas toutes les ficelles du métier et là je crois que j'ai besoin df'aide parce que je suis comme on dit un peu perdu) J'utilise VB avec CATIA en faisant de la macro pour creer une aorte abdominale Ce que je souhaite faire : créer un formulaire dynamique contenant un nombre de lignes spécifiées. chaque ligne correspond à un cercle avec son centre, son rayon, et l'épaisseur de la paroi de l'aorte entre cercles "capa". voici ce que j'ai fait jusqu'à présent (je pose directement le code ca sera plus parlant) comme ça avec un copier/coller vous pourrez tout de suite voir ce que ça donne. Dans un form qui s'appelle definicion_mano creer a la main 3 boutons commandes comme sur l'image command1=creación command2=OK command3 =cancelar 2 textbox textbox1 fera reference à cantidad et textbox2 fera ref à distancia (non utilisé pour l'instant) et 4 label au dessus de chaque colonne de textbox radio excen Y excen Z espesor '-------------------------------------- 'L'UserForm doit préalablement contenir un bouton nommé CommandButton1 Option Explicit Private Sub CommandButton1_Click() cantidad = Replace(definicion_mano.TextBox1.Value, ".", ",") Dim capa As Control Dim rad As Control Dim excenY As Control Dim excenZ As Control Dim espe As Control Dim i As Integer '-------------------------------------------------------------------------- For i = 1 To cantidad 'boucle pour la création des label capa Set capa = definicion_mano.Controls.Add("forms.Label.1") With capa .Name = "capa" & i - 1 .Object.Caption = "capa" & i - 1 .left = 90 .top = 18 * i + 5 .width = 60 .height = 20 End With Next i '---------------------------------------------------------------------------- For i = 1 To cantidad 'boucle pour la création des textbox radio Set rad = definicion_mano.Controls.Add("forms.TextBox.1") With rad .Name = "textrad" & i - 1 .left = 138 .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad 'boucle pour la création des textbox exc Y Set excenY = definicion_mano.Controls.Add("forms.TextBox.1") With excenY .Name = "textexcY" & i - 1 .left = 203 '(11 de plus que label.left) .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad 'boucle pour la création des textbox exc Z Set excenZ = definicion_mano.Controls.Add("forms.TextBox.1") With excenZ .Name = "textexcZ" & i - 1 .left = 275 '(11 de plus que label.left) .top = 18 * i + 5 .width = 40 .height = 20 End With Next i For i = 1 To cantidad - 1 'boucle pour la création des textbox espesor Set espe = definicion_mano.Controls.Add("forms.TextBox.1") With espe .Name = "textespesor" & i - 1 .left = 338 '4 de moins que label left .top = 18 * i + 15 .width = 40 .height = 20 End With Next i End Sub Private Sub CommandButton2_Click() creation2 = "oui" definicion_mano.Hide End Sub Private Sub CommandButton3_Click() creation2 = "non" definicion_mano.Hide End Sub Dans un module avec n'importe quel nom Sub CATMain() definicion_mano.Show If creation2 = "oui" Then Else MsgBox "comando cancelado por el usuario", vbOKOnly, "Error" End If End Sub Dans un autre module avec n'importe quel nom Option Explicit Public creation2 As String Public cantidad As Double maintenant que je viens de poser mon code, voici ce qu'il faut faire pour l'utiliser: ecrire une valeur dans la textbox1 et cliquer sur creación un nombre de lignes avec capaX se creer. maintenant passons aux questions et problèmes: si je lance deux fois de suite mon prog la valeur entrée la preñiere fois reste et mon formulaire ne se reactualise pas automatiquement.(en particulier quand je veux mettre une valeur plus petite la seconde fois) Comment réutiliser les valeurs rentrées à la main dans mon formulaire afin de créer mon aorte dans CATIA (ne serait que savoir quoi mettre dans MsgBox pour retrouver la valeur renseigner par exemple pour radio de capa0). Et pour finir est ce que je pars sur la bonne voie bien ou pas? y a t'il une manière plus simple de faire cela? Vais-je être obligé d'utiliser un module de classe? voilivoilou Merci d'avance Fabientoupeti ps:les noms sont en espagnol parce que je suis en stage en espagne en ce moment, voilà vous savez tout.

Salut chocolatGC, bon alors moi je n'ai pas réinstallé CATIA, j'ai peut être eu de le chance je en sais pas, mais je suis juste allé dnas les options->part infrastucture->partdocument et j'ai activé la case hybrid design et creer un geometrical Set. pour résumer, j'ai configuré le lancement du part de R17 comme celui de R15. avant que cela fonctionne j'ai du régler quelques petits problèmes dans mon programme (petites failles au niveau des noms des sketchs, j'avais un decalage dans les numéros des sketchs) mais maintenant mon programme tourne sans probleme (enfin jusque là!) voilivoilou en esperant que ton soucis se regle aussi facilement que le mien bon courage a+ fabientoupeti

Merci beaucoup pour ta réponse naurel, vu que je suis sur un projet qui utilise des macros je ne pense pas revenir en arrière plus tard donc je vais laisser ça comme ça, le truc maintenant c'est qu'il faut que j'arrive à faire tourner mon programme. Mais je pense que ca va le faire d'ici peu. merci encore pour vos aides, c'est vraiment sympa. A+ fabientoupeti

merci à vous deux pour vos reponses. vendredi j'ai regardé de plus près, et je crois bien que cela vient du mode "conception hybride " qui n'était pas activé. j'ai une question la dessus,en ce moment, dans la boîte au je suis on a une formation sur CATIA et ce matin (au plus grand des hasards) le formateur est venu à parler du mode conception hybride et il nous a dit de tous désactiver. donc je ne sais plus trop ce que je dois faire pour mon projet, j'ai commencé avec conception hybride activée et un autre mode qui ordonne(je ne me souviens plus du nom exact) activé. c'est vraiment gênant de les laisser activer? merci d'avance Fabientoupeti

bonjour à tous, voici mon problème jusqu'à hier je réalisais mon projet (projet sur aorte pour ceux qui ont suivi mes avantures) avec CATIA V5 R15 et mes programmes en VBA fonctionnait parfaitement bien. Mon tuteur est venu me voir pour me dire de changer de pc, ce que j'ai fait ce matin, le nouveau pc a CATIA V5 R17. j'ai donc transférer tout ce dont j'avais besoin pour mes macros et à mon grand désespoir quand j'ai lancé mes progs plus aucun ne fonctionne, ils plantent assez vite même, dès la creation du second plan d'esquisse sur un HybridBody j'ai l'erreur 438 l'objet n'admet pas cette propriété ou méthode. la ligne qui me pose soucis est : Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1") j'avais obtenu cela grâce à un start recording. mais en faisant de nouveau un start recording avec CATIA V5R17, le prog donné est different. est-ce que quelqu'un a déjà eu ce type de problème? D'où cela peut venir? que puis je faire pour éviter de refaire tous mes programmes (ca m'arrangerait plutôt pas mal beaucoup)? Merci d'avance Fabientoupeti

bonjour, comme le dit le sujet j'ai un problème avec le e de exposant et un fichier texte. j'utilise VB en macro avec CATIA donc je ne peux et je ne veux pas utiliser excel. Pour cerner le sujet: j'ai un fichier texte comportant 20000 env. avec en 1º colonne des valeurs allant de 0 à 100 aléatoire sauf 5, 10,15... je lis ce fichier ligne à ligne dès que je repère un 5 je stocke le resultat d'une operation sur les colonnes 4 et 5 dans un nouveau fichier txt, on va l'appeler sum5.txt. ensuite dans sum5.txt qui comporte une colonne avec sur chaque ligne une valeur differente, je repere la valeur maximale de sum5.txt et je la stocke dans la variable max5 mais voilà il y a un truc que je ne comprends pas. quand je fais mes operations sur mes colonnes 4 et 5 tant que le resultat est 0,** la valeur dans mon fichier texte (sum5.txt) s'ecrit comme cela (0,**) par contre quand mon resultat est 0,0** la valeur de mon fichier texte (sum5.txt) s'écrit *,**E-2 et part la suite j'ai un probleme pour trouver la valeur maximale ( le E n'est pas considéré comme exposant). Comment puis je faire pour régler ce problème? est ce que ça peut venir du fait que je n'ai pas préciser le type de ma variable d'operations? Si c'est ça quels types dois-je préciser Merci d'avance fabientoupeti

Bon bin comme d'habitude je te dis un GRAND MERCI ouinamp! Tes réponses vont bien m'aider je crois que j'ai les idées plus claires sur le sujet et maintenant j'ai une petite idée sur la façon de procéder. Merci encore. Sans être indiscret, comment fais tu pour savoir tout ça? moi ça m'épate! a bientôt Fabientoupeti

bonjour voici mes interrogations : 1)En macro, est-il possible de sortir un numéro de noeud? 2)En macro, est-il possible de sortir les contraintes en un noeud précis? 3)En macro, est-il possible de sortir les d´formations en un noeud précis? 4)En macro, est-il possible de sortir un numéro de noeud à partir de ses coordonées (Par exemple:sortir tous les numéros de noeuds situés à X=5mm avec Y et Z quelconques)? 5)En macro, est-il possible de créer un "line group"(module advanced meshing tools ou module generative structural analysis)? Pour l'instant à la main j'arrive à le faire mais lorsque je passe en macro, je en sais pas quel objet sélectionner pour récupérer quelque chose lorsque j'analyse les noeuds du groupe. 6)En macro et même à la main, est-il possible de construire des surfaces directement sur le modèle déformé afin de créer un nouveau modèle à mailler et à analyser? 7)Connaissez-vous le module ABAQUS for CATIA V5, fonctionne-t-il avec des macros? Merci d'avance pour vos réponses Fabientoupeti

Bonjour, Je suis toujours sur mon projet d'aorte et j'ai une interrogation concernant l'exportation de noeuds d'un modèle maillé. pour preciser la chose : - le squelette de mon aorte est constitué de 22 cercles (22 esquisses) espacés de 5 mm suivant X. -j'ai crée la paroi de l'aorte en surfacique, avec l'outil multisection en m'appuyant sur chaque cercle. -j'ai maillé cette aorte avec des éléments quadrangles (1mm). -j'ai crée une analyse statique qui me sort Vonmises Max et Déformation max de mon aorte. et maintenant ce que j'aimerais faire (et en premier savoir si c'est possible), c'est : créer un fichier (texte) qui contient pour chaque cercle (mes 22 cercles du squelette) les noeuds le constituant (liste par exemple) et la déformation maximale au niveau de ce cercle. Le but de cela est de créer une pseudo évolution de l'aorte lorsque celle-ci est atteinte par un anévrisme. Toutes idées sont les biens venues parce que j'avoue que là je commence à être un peu juste question inspiration. J'ai essayé d'utiliser l'outil LINE GROUP, à la main (souris) cela fonctionne tres bien mais dès que je tente le passage en MACRO je suis bloqué, je ne sais pas comment sélectionner mon cercle en macro. La reference enregistrée avec le START RECORDING n'est pas exploitable dans ma macro et quand j'utilise des publications ca ne fonctionne pas. voilivoilou Merci d'avance pour vos aides. Fabientoupeti

Re bonjour à tout le monde, c'est juste pour dire que j'ai reussi a faire ce que je voulais. voilivoilou pour ce que ca interesse, voici ce qu'il faut faire: dans le programme il faut juste ecrire: userform1.Textbox1.Value="nom variable resultat" a+ fabientoupeti

bonjour, Je suis entrain de travailler en macro sur un modèle CATIA, pour l'instant ma macro modelise ma piece, la maille et calcule des contraintes et des deformations. Pour introduire les dimensions de ma piece et la pression à appliquer j'utilise une boîte de dialogue avec 3 champs. Ma question porte sur celle-ci. Comment fait-on pour remplir un champ automatiquement avec une valeur d'un calcul precedent sans etre obligé de le faire à la main? Merci d'avance Fabientoupeti

Merci beaucoup pour toutes ces infos. je vais dire ça à mon tuteur et puis je verrai ce qui va me répondre, mais je ne crois pas que dans la boîte ils ont ce logiciel enfin je demanderai quand même. merci encore Fabientoupeti

Ce que je dois faire sur cette aorte, c'est modéliser son comportement mécanique quand il y a une anévrisme (plus le diamètre de l'aorte augmente, plus son épaisseur diminue) et voir les zones critiques de celle-ci. Pour l'instant pas de calcul de méca flu, seulement un bon vieux calcul statique avec une pression à l'intérieur de l'aorte. Au fait j'ai une question, est ce que tu sais si il est possible de récupérer un résultat d'un calcul (rayon de l'aorte après déformation) pour que ce soit l'entrée du calcul suivant? et ainsi de suite pour mieux comprendre l'évolution de celle-ci Merci d'avance, Fabientoupeti