[Résolu] Suppression de calques "numériques"

[DenisHen]

Bonjour à tous. Voilà, aujourd'hui, je cherche à supprimer tous les calques nommés numériquement : de 1 à 64 issus d'un vieux DGN. J'ai écris ceci :

  (setq n 1)   (foreach (< n 70) (if (not (tblsearch "layer" (rtos n 2 0)))                   	(command "-supcalque" "n" (rtos n 2 0) "")                 	) ;_ Fin de if 	(setq (+ n 1))   ) ;_ Fin de foreach

Mais quand je charge mon Lisp, AutoCAD me répond :

nom de symbole incorrect dans FOREACH: (< N 70)

Si quelqu'un a une astuce, une idée ou un conseil, je suis preneur... Denis... EDIT : En plus, je cherche si le calque n'existe pas avec le not... Quel âne je fais...

  (setq n 1)   (foreach (< n 70) (if (tblsearch "layer" (rtos n 2 0))                   	(command "-supcalque" "n" (rtos n 2 0) "")                 	) ;_ Fin de if 	(setq (+ n 1))   ) ;_ Fin de foreach

[-Olivier-]

Bonjour DenisH,

 

foreach à besoin d'une liste comme premier argument et tu lui fourni un nombre.

Dans ton cas j'utiliserais plutôt

Pour chaque élément de la liste ...

(Repeat 70 ...

Répéter 70 fois ....

ou

(While (< n 70)

Répéter tant que n est inférieur à 70...

 

Olivier

[Patrick_35]

Salut

 

Remplace le foreach par while car un foreach parcours une liste.

Pour tester si un calque existe, et bien dans la table des calques (tblsearch "layer" ...)

 

Pour la boucle tu es à l'amende d'une bière ;)

 

@+

 

Edit : Olivier a été le plus rapide

Modifié le 18 avril 2016 par Patrick_35

[DenisHen]

Bonjour à vous...

 

Et merci pour votre aide...

 

Je vais partir sur un (while...

 

Patrick_35 : aucun problème, mais ça risque d'être long... :unsure: