effacer les entités d'une sélection

[jujugeometre]

Bonjour,

 

Je souhaite nettoyer un dessin en supprimant les entités situées hors d'une zone de sélection, je construis un jeu de sélection de tout puis un jeu de sélection de ce que je veux conserver et je parcours ensuite le tout en vérifiant à chaque fois si l'entité est dedans ou non.

 

(setq		ENTSELEC	(ssadd) 			;je mets les listes à 0
   		ENTSELECTOTALE	(ssadd)
   		ENTSELEC 	(ssget "_WP" liste-sommets )	;sélection des objets dans la zone de sélection
	COMPTEUR 	0
 );setq

(setq ENTSELECTOTALE 	(ssget "_X") ) 			;sélection de tous les objets du dessin

;et effacer tous les objets hors de cette zone de sélection

(repeat (sslength ENTSELECTOTALE)
(setq 	ENT 		(ssname ENTSELECTOTALE COMPTEUR)
	COMPTEUR 	(+ 1 COMPTEUR)
	)
(if (= nil (ssmemb ENT ENTSELEC)) ;je vérifie si l'entité est dans le jeu de sélection à conserver, sinon je la supprime
 		(entdel ENT)
	);if
);repeat

 

Ça fonctionne mais j'ai des objets qui sautent quand même en bord de zone de sélection, je me demandais s'il n'y avait pas plus "simple" comme méthode?

[Luna]

Coucou,

 

Juste si tu as des entités qui sont supprimées en bordure de ta zone de sélection, essaie un (ssget) en "_CP" et non "_WP", chat sera plus agressif.

Autrement, la méthode fonctionne très bien de la sorte et il ne me semble pas qu'il existe un moyen plus rapide pour faire des intersection de jeux de sélection..

 

Bisous,

Luna

[jujugeometre]

Coucou,

 

Juste si tu as des entités qui sont supprimées en bordure de ta zone de sélection, essaie un (ssget) en "_CP" et non "_WP", chat sera plus agressif.

Autrement, la méthode fonctionne très bien de la sorte et il ne me semble pas qu'il existe un moyen plus rapide pour faire des intersection de jeux de sélection..

 

Bisous,

Luna

 

 

Bonjour, merci pour ta réponse, bonne journée.