Besoin d'une petite aide "syntaxique" avec un ssget

[DenisHen]

Bonsoir à tous.

 

Voilà, j'ai écris ce que je sais faire (enfin presque), à savoir, un ssget pour sélectionner tous les bloc "NumeroDuLot" dans l'espace papier (courant), le code (simplifié) est donc le suivant :

  (setq n 0)
 (if (setq Select (ssget "X" (list (cons 0 "INSERT") (cons 2 "NumeroDuLot") (cons 410 (getvar "CTAB"))))) ;_ Fin de setq
   (while (setq ent (ssname Select n))
     ) ;_ Fin de setq
     ... Diverses opération sur l'entité ent
     (setq n (1+ n))
   ) ;_ Fin de while
 ) ;_ Fin:if

 

Mais je suis sûr qu'il y a plus simple avec cecode, car il n'y a qu'un seul bloc nommé "NumeroDuLot" dans cet espace.

 

Mais je ne'arrive pas à me sortir cette boucle, et donc, faire un tri "unique" de l'entité dans le (ssget...

 

Rien n'est grave sur terre (dixit "le diable") mais ça pourrait raccourcir mes routines et de ce fait, les rendre plus claire...

[didier]

Coucou

Ben alors !!!

Tu retires le while et c'est tout

Tu vérifies tout de même qu'il n'y a qu'une seule entité dans le jeu de sélection et que cette dernière correspond à ton choix.

Quand on te dit que BIEN (se) poser la question est important ...

 

EDIT :

on se demande diable! ce que fait le diable dans ce message, à part se cacher dans les détails

[DenisHen]

Ben alors !!!

Tu retires le while et c'est tout

Tu vérifies tout de même qu'il n'y a qu'une seule entité dans le jeu de sélection et que cette dernière correspond à ton choix.

ben comment faire sans le while...

 

Quand on te dit que BIEN (se) poser la question est important ...

Mais j'ai toujours été d'accord... Même si je me trompe... Errare humanum est Et je ne suis pas le premier... ;)

on se demande diable! ce que fait le diable dans ce message, à part se cacher dans les détails

Pour une citation...

[vincentp010]

Salut,

 

sans le while il suffit juste de prendre la première entité de la sélection

(setq ent (ssname Select 0))