Aller au contenu

barre de progression


PHILPHIL

Messages recommandés

bonjour

 

en lisp ou visual lisp

 

comment fait on pour avoir une barre de progression

pour les lisp traitant enormement d'entites

 

j'avais penser faire afficher sur la ligne de commande

en chiffre ou en etait le traitement quand il y a une boucle

genre " 125 entites traités sur 1253"

mais quand le lisp est en cour plus rien ne s'affiche sur la ligne de commande

 

une idée ?

 

trouver la barre de progression propre a autocad ?

une boite de dialogue qui s'affiche en mettant le nombre d'entite a traiter et l entite sur laquelle le lisp bosse ? pregrssion chiffré et/ou graphique

 

a+

 

Phil

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

HELLO patrick

 

bon je dois etre idiot car je vois pas du tout comment l utilisé

 

ou comment l'integrer dans un LISP

 

remplacer une boucle (while ... ) par le (repeat 50000 ) ?

 

sinon dans le test la barre est déja a fond ( toute bleue ) des le debut

et il ne s'affiche pas de % dedans ou a coté, est ce normal ?

 

a+

 

phil

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

En reprennant l'exemple. (testé sur 2014)

La variable Tot permet de définir le nombre d'éléments. A toi de la définir

Le repeat 5000 est une "pause" pour voir le défilement de la barre de progression, sinon c'est instantané.

 

(defun c:test(/ ava express pou tot)
 (if (eval 'acet-ui-progress-done) ; Possibilité d'enlever le test pour voir sans les express
   (setq express T)
 )
 (setq ava 0 tot 1000)
 (if express
   (acet-ui-progress-init "Avancement" tot)
   (princ "\nAvancement à : 00%")
 )
 (repeat tot
   ; soit je mets ici ma routine au début du traitement
   (setq ava (1+ ava)
  pou (/ (* ava 100) tot)
   )
   (repeat 50000)
   (if express
     (acet-ui-progress-safe ava)
     (progn
(if (< pou 10)
  (repeat 2 (princ (chr 8)))
  (repeat 3 (princ (chr 8)))
)
(princ (strcat (itoa pou) "%"))
(princ)
     )
   )
   ; soit je mets ici ma routine en fin du traitement
 )
 (and express
   (acet-ui-progress-done)
 )
 (princ)
)

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

hello patrick

 

merci je vois un peu mieux, mais sur la 2015 ca semble moins bien marcher

car la barre est toute bleue des le debut, sans visibilite de progression, ni pourcentage qui s'affiche

 

et ne j'ai plus la 2014 sous le coude

 

merci

 

bon week end

 

Phi

Autodesk Architecture 2023 sous windows 11 64

24 pouces vertical + 30 pouces horizontal + 27 pouces horizontal

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité