Décomposer tous les groupes d\'un dwg

[mushu75]

Bonjour,

 

j'ai récupéré un fichier généré par Covadis comme base de travail.

 

je me retrouve avec des tonnes de groupes d'objets aux noms barbares (ex: COVA_PRA_000X) que je voudrais pouvoir decomposer sans passer par la commande "groupe" qui m'oblige à les traiter un à un.

 

Pourriez vous m'indiquer un code pour réaliser ce tour de passe-passe?

 

Merci.

 

PS: si en plus, le code permettait de selectionner les groupes à decomposer par une chaine de caractère, ça serait le top (ex: tous les groupes contenant "COVA").

 

PS2: j'utilise autocad2007

 

[Carboleum]

 

(defun explode-groups (wcname)

(vlax-for group (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))

(cond ((wcmatch (vla-get-name group) wcname) (vla-delete group))))

(princ))

 

qui s'utilisera comme suit:

(explode-groups "*COVA*")

à tes risques et périls ;)

 

 

[Edité le 12/1/2010 par Carboleum]

[lovecraft]

Bonsoir,

 

Et un p'tit raccourci CRTL+H pour dégrouper ou regrouper ?

 

Est-ce que cela te convient ?

 

@plus

 

Laurent

[lecrabe]

 

Hello

 

Un autre petit VLisp

 

Le Decapode

 

 

(defun c:del_all_groups ()

(vl-load-com)

(setq grp (vla-get-groups (vla-get-activedocument(vlax-get-acad-object))))

(vlax-for gr grp (vla-delete gr) )

)

 

 

 

[Eric]

Et dire que la version LT permet cela sans programmation.

 

C'est un comble.

 

:D

[lili2006]

Bonsoir à toutes et tous,

 

Et dire que la version LT permet cela sans programmation.

 

Ben, la pleine non plus et c'est lovecraft qui donne la bonne réponse,...

[(gile)]

Salut,

 

Petite précision, Ctrl+H sert bascule pour la variable système PICKSTYLE (sélection des groupes), mais ne supprime pas les groupes.

 

Les groupes sont stockés dans le dictionnaire ACAD_GROUP et, comme tous les objets dictionnaire, peuvent alourdir considérablement un fichier s'ils sont nombreux.

[rebcao]

Bonsoir,

 

Le prog LISP donné par LE CRABELEUX fonctionnne très bien !

 

Merci PAT...

 

J'aurai juste une suggestion à ajouter dans le prog, en fonction du nombre total des groupes SUPPRIMER tous les groupes s'il y a plus de 100 groupes un peu comme LAYERFILTERALERT.

 

Merci

 

Christian