la commande grouper des objets

[rebcao]

Pourquoi subsiste toujours cette différence de la commande GROUPE dans les versions complètes et les versions LT...

 

à quand la même fonctionnalité que dans LT ??? Qui est nettement plus rapide pour créer un groupe sans nom !

 

 

Voici la commande GROUPE des versions complètes...

 

http://www.rebcad.fr/CADxp/images/cde-groupe-2006.png

 

 

Voici la commande GROUPE des versions LT...

 

http://www.rebcad.fr/CADxp/images/cde-groupe-LT2006.png

 

 

 

Pour grouper des objets avec LT, il suffit de sélectionner les objets, puis bouton droit et GROUPE... :D

c'est plus long avec les versions complètes...!!!... :mad:

 

http://www.rebcad.fr/CADxp/images/cde-groupe-LT2006-menu.png

 

Pourquoi ne retrouve-t-on pas ce menu contextuel dans les versions complètes ???

 

 

Christian

[Tramber]

Parce que les utilisateurs LT sont si peu servis, qu'on a décidé de faire exception :cool:

[bonuscad]

Bien que je sois pas trop à l'aise avec les dictionnaires, j'ai tenté le coup avec ce qui suit.

Il a l'air de fonctionner, le dégroupage est le plus difficile mais on pourrait également faire le regroupage de la même manière; sans (command)

Mais j'ais fait au plus simple avec REGROUPER :cool:

 

Il y a certainement mieux ou plus simple, c'est une approche :P

(defun c:degroup ( / ent dxf_ent dxf_def dxf_grp lst lst_name_gr ent_grp)
(while (null (setq ent (entsel))))
(setq dxf_ent (entget (car ent)))
(setq dxf_def (entget (cdr (assoc 330 dxf_ent))))
(cond
	((eq (cdr (assoc 100 dxf_def)) "AcDbGroup")
		(setq
			dxf_grp (dictsearch (namedobjdict) "ACAD_GROUP")
			lst (member (cons 350 (cdar dxf_def)) (reverse dxf_grp))
			nam_gr (list (cadr lst) (car lst))
			ent_grp (dictsearch (cdr (assoc -1 dxf_grp)) (cdar nam_gr))
		)
		(entdel (cdar ent_grp))
		(princ "\nEntités dégroupées")
	)
	(T
		(princ "\nEntité non groupée")
	)
)
(princ)
)
(defun c:regroup ( / js)
(setq js (ssget))
(cond
	(js
		(setvar "cmdecho" 0)
		(command "_.-group" "_create" "*" "" js "")
		(setvar "cmdecho" 1)
		(princ "\nGroupe créé.")
	)
	(princ "\nAucune sélection.")
)
(princ)
)
(princ "\nCommande REGROUP/DEGROUP")(princ)

[rebcao]

Voici [surligneur] un autre sujet avec quelques petites icônes pour simplifier la gestion-création de groupes[/surligneur] avec une version complète !

 

j'ai remarqué une petite erreur d'inversion dans l' ACTIVATION-INACTIVATION des groupes ( PICKSTYLE ), à l'occase je corrige ça !

 

Christian

[PHILPHIL]

salut

 

grouper degrouper il existe un petit lisp proteger qui marche pas trop mal

qui marche bien meme je dirais

 

grpdegrp.vlx

 

fonction "grp" "degrp"

 

phil

[rebcao]

ça y est c'est fait ! j'en ai profité pour corriger la MACRO Groupes ACTIF INACTIF

 

tout arrive un jour ;)

 

Christian