liste des GROUPES D'objets

[rebcao]

Bonjour à Toutes et à Tous,

 

J'ai fait quelque recherche, mais je n'ai rien trouvé sur la liste des GROUPES D'OBJETS dans un dessin ?!

 

Il ne s'agit pas d'une table où on accède avec la fonction (TBLnext ou search...) !

 

Comment obtenir cette liste ? L'idée c'est de reprendre tous les GROUPES d'un dessin et de les transformer en BLOC !

 

Je vous remercie pour votre aide.

 

Christian

[Fraid]

Bonjour,

 

Une petite fonction qui te retourne la liste des groupes

 

(defun getallgroups ( / dic item lst )
 (if (setq dic (reverse (dictsearch (namedobjdict) "ACAD_GROUP")))
   (while (setq item (assoc 3 dic))
     (setq lst (cons (cons (cdr item) (cdr (assoc 350 dic))) lst)
           dic (cdr (member item dic))
     )
   )
 )
 lst
)