sélection dans bedit

[bseb67]

Salut à tous,

 

Pour la première fois depuis 2ans, je dois faire un bedit d'un bloc dans lequel

je dois supprimer des entités. Mais là je suis un peu dans le flou:

- je pensais faire un ssget "x" et filtrer sur les objets voulus, mais en fait le ssget me renvoie

les objets de tout le dessin et pas ceux uniquement contenus dans le bloc ouvert :(

- et je ne vois pas comment filtrer autrement...

 

Si l'un de vous peut m'éclairer?

 

Merci.

[(gile)]

Salut,

 

ssget ne sélectionnera que des références de bloc insérées dans le dessin.

Il faut que tu agisses sur la définition du bloc.

 

Avec AutoLISP :

- atteindre la définition du bloc :

(setq BlkDef (tblsearch "BLOCK" "NomDuBloc"))

- la première entité dans la définition :

(setq ent (cdr (assoc -2 BlkDef)))

- les entités suivantes :

(setq ent (entnext ent))

 

avec Visual LISP

- atteindre la définition du bloc :

(setq BlkDef (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) "NomDuBloc"))

- parcourir les entités :

(vlax-for ent BlkDef ...)

[bseb67]

Ok et merci (gile),

 

je vais alors essayer par la définition du bloc.

[Patrick_35]

Salut

 

Une méthode plus simple que d'utiliser bedit

 

Sélection de l'objet à effacer dans le bloc

(setq obj (nentsel))

 

Effacer l'objet

(vla-delete (vlax-ename->vla-object (car obj)))

 

Regen, pour éviter une boucle pour mettre à jour les blocs modifiés

(vl-cmdf "_.regen")

 

 

@+

[bseb67]

Alors là je suis sur le cul :o

 

un simple:

; on parcourt les entités du bloc
(vlax-for vl_ent (vla-Item (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object))) bl_name)
 	(cond
  	; on teste si c'est un bloc
  	((/= (vla-get-ObjectName vl_ent) VAR_ACAD_DEF_BLOC)
	)
	; on teste si le nom est un de ceux cherchés
	((/= (member (vla-get-EffectiveName vl_ent) lst_ss_bl_name) nil)
	 	(vla-delete vl_ent)
	)
) ; cond
) ; vlax-for

; un regen pour mettre à jour
(vl-cmdf "_.regen")

 

où:

VAR_ACAD_DEF_BLOC = "AcDbBlockReference"

bl_name = nom du bloc à traiter

lst_ss_bl_name = liste de noms de blocs

 

 

Il y a des moments ou je me dit autocad c'est de la bouse, mais pour

ce cas là: c'est super fort :D

 

[(gile)]

Salut,

 

(/= (member (vla-get-EffectiveName vl_ent) lst_ss_bl_name) nil)

peut s'écrire plus simplement :

(member (vla-get-EffectiveName vl_ent) lst_ss_bl_name)

 

En LISP, les procédures de décision (if, cond...) n'évaluent pas si l'expression-test retourne strictement un Booléen (T ou nil) mais simplement une valeur non nil ou nil.

 

 

 

 

[bseb67]

oui, je sais, mais c'est encore un reflex gardé... ;)