Rafraichir écran Résolu

Question

Bonjour a tout le monde

Je code un pong sur Catia V5 en VBA, le problème est que l&#8217;affichage se fais qu&#8217;une fois le code terminer (on ne voit pas la balle se déplacer)

J&#8217;aimerais savoir qu&#8217;elle fonction en VBA pourrait m&#8217;activé le rafraichissement de l&#8217;écran (ou si quelqu&#8217;un qui si connais en macro sur Catia passe par la, se qui est extrêmement rare).

Merci d&#8217;avance.

ucfoutu · Accepted Answer

Je dois te dire que je m'y attendais un peu.
Je crains dans ce cas que ce soit là un problème Catia, soi de rafraichissement, soit de lenteur.
As-tu essayé de rechercher tout ce qui tourne autour du mot Refresh dans ton aide Catia ?

Je viens par exemple de lire quelqu part sur le Web une expression du genre :
CATIA.RefreshDisplay = true

Sans avoir pu déterminer à quoi elle correspondait exactement.
Bonne chance.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

MarcPL · Answer

Pour avoir programmé diverses "animations" en VBA,
il faut effectivement faire une "pause" pour que l'animation se déroule.

Il faut regarder du côté de DoEvents si présent sous Catia ...

gourmand86 · Answer

J&#8217;ais tester la fonction DoEvents, mais je n&#8217;ais aucun résulta.
J&#8217;ais tester avec des variable spécifique a catia comme : ActiveWindow / ActiveViewer / viewer.Update. Mais même résultat.
Je recherche encor mais je n&#8217;ai, pour le moment, pas trouver d&#8217;équivalent à DoEvents dans catia.

gourmand86 · Answer

pourquoi a chaque fois que je mais un apostrof, sa me marque: &#8217; ?

ucfoutu · Answer

pourquoi a chaque fois que je mais un apostrof, sa me marque: &#8217; ?

Ca va même plus loin que cela :
- "il" t'a enlevé l'accent que tu avais mis sur le "à", t'a transform ton "mets" en "mais", ton "une apostrophe" en "un apostrof" et ton "ça" en "sa" 
Et tout cela, sur ton dernier message. Je ne parle pas des autres 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

J&#8217;ais tester la fonction DoEvents, mais je n&#8217;ais aucun résulta.
et
Je recherche encor mais je n&#8217;ai, pour le moment, pas trouver d&#8217;équivalent à DoEvents dans cat

Laquelle de ces deux assertions est-elle donc vraie ?
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

MarcPL · Answer

Pour forcer le programme à "temporiser", il faudrait ajouter le code suivant
puis insérer une ligne Pause à chaque fois qu'un rafraichissement est nécessaire.

Sub Pause(Optional P = 0.01)
         T = Timer

    Do While Timer < T + P
        DoEvents
    Loop
End Sub
Si la pause est trop courte, tester différents paramètres comme 0.05, 0.1, 0.5 ou 1.
Si une seule valeur de pause est nécessaire pour chaque ligne Pause dans le programme,
modifier la pause par défaut dans la déclaration du Sub (optional P =) ...

___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !

gourmand86 · Answer

J&#8217;ais déjà tester avec la fonction Pause que tu me présente, mais même avec une seconde, rien ne s&#8217;affiche.
Je suis tombé sur la fonction stop, qui marche bien, mais je suis obligé de relancer la macro à chaque fois. Et il possible de relancer automatiquement la macro après un stop ?

(Excuser moi pour l&#8217;orthographe, je fais se que je peux mais se n&#8217;est pas encore sa.)

ucfoutu · Answer

Je ne connais pas CATIA.
Mais peut-on voir le bout de code relatif au déplacement (là où tu as tenté le DoEvents) ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gourmand86 · Answer

bien sur :

For i = 1 To 1000
        VitesseB = VitesseB + 1
        If Vie = 0 Then
            moveJ1Variant.Apply arrayOfVariantOfDoubleA
            If VitesseB = 100 Then
                Vie = 1
                VitesseB = 0
            End If
        Else
            moveJ1Variant.Apply arrayOfVariantOfDoubleB
            If VitesseB = 100 Then
                Vie = 0
                VitesseB = 0
            End If
        End If
        
        'Pause 0.1
        
        'CATIA.ActiveWindow.ActiveViewer.Viewpoint3D = MyCamera.Viewpoint3D
        'viewer3D1.Update
        'MyViewer.Update
        'ActiveWin.Activate
        
    Next i
    MsgBox "Fin"
    
End Sub

Sub Pause(Optional P = 0.01)
         T = Timer

    Do While Timer < T + P
        DoEvents
    Loop
End Sub

ucfoutu · Answer

Essaye (jour voir) ainsi : dim duree as single ' <<<<<< "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs. Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

MarcPL · Answer

Mon code de Pause est un copier/coller de mes programmes d'animation tant ludiques que
professionnels, le seul élément changeant étant la pause par défaut selon l'effet désiré,
certes il est vrai en VBA / Excel.

Vu donc qu'il fonctionne bien tel quel, je ne pense pas qu'une déclaration de variable
y change quoi que ce soit sous Catia.

Face donc à un souci spécifique à Catia et ne le connaissant pas,
je ne peux apporter d'aide supplémentaire ...

___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !

ucfoutu · Answer

je ne pense pas qu'une déclaration de variable y change quoi que ce soit sous Catia. 
Je n'en sais rien car :
je ne sais pas comment catia réagit avec une variable duree non typée et une valeur décimale !
Si Catia est capable d'interpréter correctement ===>> Va bene.
Le risque est que 0.01 sans typer duree soit interprété par catia comme duree =  0 dans l'expression :
 Do While Timer < T + duree
Même réflexion en ce qui concerne la valeut T (la valeur extraite par la fonction Timer elle-même)
Dans le doute, donc, je fais ce qu'il est de toutes manières recommandé de toujours faire : typer les variables  expressément .
Pour le reste : je ne sais pas si cela suffira (et l'ai dit) !
Mais je commence par une écriture propre, hein ...

____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gourmand86 · Answer

Je viens de tester ta proposition ucfoutusa, elle marche au niveau du temps mais pas au niveau de l&#8217;affichage.
Le problème est que j'ais passé toute les fonctions spécifique à Catia, mais je n'ai rien trouvé.
Catia désactive l&#8217;actualisation de la fenêtre il doit y avoir un moyen de la réactivé.
Je vais recherche encor une fois dans mes ActiveWindow, ActiveViewer de Catia.

gourmand86 · Answer

Merci, c'est la fonction que je cherché. Un mois que je tourne autour.

ucfoutu · Answer

C'était tout ?
J'ai de la chance, alors ?
Bonnes fêtes 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

gourmand86 · Answer

oui c'était tout, juste une fonction que je ne trouver pas.
bonne fète aussi. j'ias dotre problèpme mais je cherche encor un peux avent de poster

Rafraichir écran

17 réponses

Votre réponse

Discussions similaires