choix de selection d\'entités superposées?

[melino]

bonjour

quand plusieurs entités identiques sont exactement juxtaposées

je sais qu'il y a une possibilité pour alterner la selection de l' objet

quelquechose qui fait défiler la surbrillance, mais impossible de

retrouver cette méthode, il me semblait que c'etait quelque chose au clavier...

si vous avez une idée ...

 

merci

[didier]

Bonsoir,

 

effectivement, tu as raison,

il faut presser la touche Ctrl

pendant que tu continues à sélectionner les objets superposés,

le cycle choisit les entités une par une.

 

amicalement

 

 

 

 

[melino]

ça marche !

sympa merci!

(juste pour tatillonner : a part les differences de couleurs a l'écran, je n'ai aucune indication

au niveau des propriétés de l'entité effectivement selectionnée)

[bonuscad]

Salut

 

Mister "GrMania" en remet une couche (Gilles comprendra) ;)

 

C'est vrai que la touche CTRL ne donne aucune information :casstet:

 

Donc en désespoir de cause j'avais pondu ceci:

 

(defun c:what_select ( / l_ent e_sel pt_sel js l_js l_ent e_sel dxf_ent key)
(while (null (setq e_sel (entsel))))
(setq
	pt_sel (osnap (cadr e_sel) "_nearest")
	js (ssget "_C" pt_sel pt_sel)
	l_js (ssnamex js)
)
(foreach n l_js (if (eq (type (cadr n)) 'ENAME) (setq l_ent (cons (cadr n) l_ent))))
(setq e_sel (ssadd))
(sssetfirst nil (ssadd (car l_ent) e_sel))
(if (> (length l_ent) 1)
	(progn
		(setq dxf_ent (entget (car l_ent)))
		(grtext -1 (strcat "Entité: " (cdr (assoc 0 dxf_ent)) " Calque: " (cdr (assoc 8 dxf_ent)) (if (assoc 62 dxf_ent) (strcat " Couleur: " (itoa (cdr (assoc 62 dxf_ent)))) "") (if (assoc 6 dxf_ent) (strcat " TypeLigne: " (cdr (assoc 6 dxf_ent))) "")))
		(princ "\n pour faire défiler entité suivante; /[Espace]/Click+droit pour finir!.")
		(while (and (not (member (setq key (grread T 4 2)) '((2 13) (2 32)))) (/= (car key) 25))
			(cond
				((eq (car key) 3)
					(setq l_ent (append (cdr l_ent) (list (car l_ent))) e_sel (ssadd))
					(sssetfirst nil (ssadd (car l_ent) e_sel))
					(setq dxf_ent (entget (car l_ent)))
					(grtext -1 (strcat "Entité: " (cdr (assoc 0 dxf_ent)) " Calque: " (cdr (assoc 8 dxf_ent)) (if (assoc 62 dxf_ent) (strcat " Couleur: " (itoa (cdr (assoc 62 dxf_ent)))) "") (if (assoc 6 dxf_ent) (strcat " TypeLigne: " (cdr (assoc 6 dxf_ent))) "")))
				)
			)
		)
		(grtext)
	)
)
(prin1)
)

 

Si il y a plusieurs entités sous le curseur lors de la sélection, une info (type entité et calque) est affiché dans la barre d'état et un click gauche fait défiler l'entité suivante

[gile]

Salut,

 

Bonuscad a encore frappé !

 

Une telle production c'est du GrStakhanovisme ;)

 

Chez moi çà ne marche pas en faisant Espace,mais çà marche très bien avec Clic gauche, encore bravo !

 

 

[Edité le 23/6/2005 par gile]