re-afficher layer

[dupin]

Re-bonjour (trember)

c'est pour une sélection de plusieurs objet.

Mais comment l'incorporer a mon programe

 

(defun c:voir_couche (/ layer)

(setq layer (tblnext "LAYER" T))

(while layer

(princ (strcat "\nLayer name: " (cdr (assoc 2 layer))))

(setq layer (tblnext "LAYER"))

)

(princ)

)

---------

Re-merci

[Tramber]

(setq compt 0)

 

(setq jeus (ssget))

(setq entss (entget (ssname jeus compt)))

(setq PP (cdr (assoc 8 entss)))

 

(setq compt (1+ compt))

 

A mettre dans une boucle de longueur:

(setq aaa (sslength jeus))

 

Je vais pas faire tout le boulot.

Essaie avec (while

ou (repeat

 

Après tu colles tout avant ton (princ) et ca roule.

Reste à afficher correctement les résultats

[Tramber]

J'ai posté le message ici pour continuer dans le bon forum:

 

http://www.cadxp.com/sujetXForum-1879.htm

 

:exclam: