Afficher layers

[dupin]

Bonjour,

J’espère que quelqu’un pourra m’aider,

Voila je désirerais afficher les layers de l’objet que je sélectionne

Manière (ssget)

Jusque maintenant j’ai seulement réussie a afficher tous les layers qui se trouve dans le dessin.

-----------------

(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)

)

---------

Merci d'avance.

 

[Tramber]

(setq SS (entget(ssname (ssget) 0)))

(setq PP (cdr (assoc 8 SS)))

 

Ne marche que pour un seul objet dans le ssget

[Tramber]

Si la selection contient + d'un objet,

(sslength ) donne la longueur de la selection, il suffit de boucler avec :

 

(setq jeusel (ssget))

(ssname jeusel "le numéro de l"objet en commencant à 0")

[Patrick_35]

Tramber à raison, c'est avec le code 8 dans la table de l'objet qu'on connaît le nom du calque. Cette table de l'objet contient tout les éléments ce qui la compose (couleur, calque, coord x y z, etc..)

Pour plus d'info concernant ces tables, il faut aller voir au chapitre 6 des références dxf

 

Juste une info, pour la sélection d'un seul objet, il existe aussi la fonction entsel