Faire clignoter un bloc ??

[didicools]

Bonjour a tous,

 

Tout est dans le titre, comment puis-je faire pour faire clignoter un bloc ?

j'ai qu'il y avait éventuelement l'instruction "bns_blink_and_show_object" mais je c absolument faire faire de lisp.

 

Quelqun aurai-t-il une solution.

 

Merci

[bonuscad]

Bonjour,

 

qu'il y avait éventuelement l'instruction "bns_blink_and_show_object"

 

Curieux, j'ai essayé cette fonction que je ne connaissais pas.

A priori cette fonction attend un nom d'entité et un code de couleur.

L'appel pourrait se faire comme ceci en ligne de commande:

 

(bns_blink_and_show_object (car (entsel)) 2)

 

Tu choisi ton objet et la bounding-box (boite de contour) va apparaitre du code couleur demandé (ici en jaune) par clignotements successifs.

 

 

[Patrick_35]

Bonjour

 

cette fonction que je ne connaissais pas

Elle fait partie de certaines instructions cachées du lisp comme par exemple la version du vlisp (_VLISP-VERSION) ou encore (fnsplitl " ceci est un test ") qui enlève les espaces au début et à la fin d'une chaîne de caractères

Il y en a plusieurs autres

 

@+

[didicools]

Bonjour,

 

j'ai essayé la commande (bns_blink_and_show_object (car (entsel)) 2)

mais ca marche pas chez moi, ca fait rien, ca me marque ca dans la barre de commande

 

Commande: (bns_blink_and_show_object (car (entsel)) 2)

 

Choix de l'objet: _.redraw

Commande: _.redraw

Commande: _.redraw

Commande: _.redraw

.

.

.

.

.

Commande: _.redraw

Commande: _.redraw

Commande: nil

 

Commande:

 

 

mais rien ne ce passe.

Peu etre le PC est trop rapide......

 

Personne n'a de solution ?

 

En fait ce que je souhaiterai c'est que mon bloc clignote tout le temps, reste a savoir si c'est possible.......

 

 

[Edité le 28/10/2008 par didicools]

[bonuscad]

mais rien ne ce passe.

Peu etre le PC est trop rapide......

 

Quand je l'ai testé j'avais les mêmes messages, donc normal.

 

Ce qu'il faut savoir, c'est que cela fait clignoter LA BOITE DE CONTOUR de l'objet, donc si les extrémités de ton objet sont en dehors de l'écran, tu ne verras pas la boite clignoter.

Ré-essayes en ayant un zoom approprié.

 

Ou un peu différent ceci : (copie-colles directement en ligne de commande pour tester)

Bouger la souris, ou faire des click-click

((lambda ( / ent n key)
 (setq ent (car (entsel)) n 0)
 (princ "\nEntrée - Espace -> pour quitter")
 (while (and (setq key (grread T 4 0)) (not (member key '((2 13) (2 32)))))
   (redraw ent (setq n (1+ n)))
   (if (zerop (rem n 4)) (setq n 0))
 )
 (redraw ent 1)
 (prin1)
))

[Tramber]

Rigolo bns_blink_and_show_object

mais très rapide sur 2004, trop rapide sur 2006 ! Même pas visible.

[bonuscad]

Le même code que précédemment, mais je me suis appuyé sur un délai de temps de clignotement fixé à 3 secondes ici.

 

((lambda ( / ent n fix_time)
(setq ent (car (entsel)) n 0)
(setq fix_time (fix (* 86400.0 (- (getvar "date") (fix (getvar "date"))))))
(while (< (- (fix (* 86400.0 (- (getvar "date") (fix (getvar "date"))))) fix_time) 3)
(redraw ent (setq n (1+ n)))
(if (zerop (rem n 2)) (setq n 0))
)
(redraw ent 1)
(prin1)
))