Soucis avec une routine de Lee Mac

[Pieroka]

Salut,

 

J"ai un soucis avec une routine que je voulais utiliser pour renommer un bloc en le sélectionnant.

routine de Lee Mac qui me redéfinit le bloc en le renommant mais le soucis c'est qu'elle me fait passer les hachures devant les polylignes dans le bloc.

Y a t-il moyen de palier à ce problème ?

[lecrabe]

Hello

 

OUI en effet une routine qui (a partir d'une selection AutoCAD classique ou bien TOUT le DWG)

selectionnerait toutes les Hachures (HATCH) dans les Blocs pour les passer en arriere plan du Bloc

serait sympathique et fort utile ...

 

Un peu le principe de cette routine qui efface TOUTES les Hachures dans les Blocs

 

Merci d'avance, lecrabe

 

;; Supprimer (Kill) les hachuress (HATCH) dans les blocs (BLOCK)
;; Par GC le 11/03/2011 - Passage en DEFUN par Fraid

(defun c:KHATCH_BLOCK (/ b o)
(vl-load-com)
(vlax-for b (vla-get-Blocks
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(or
(= (vla-get-IsLayout B) :vlax-true)
(= (vla-get-IsXref B) :vlax-true)
(vlax-for o b
(if (wcmatch (vla-get-ObjectName o) "AcDb*Hatch")
(vla-delete o)
)
)
)
)
)