Hachures solides transparentes

[LUDWIG]

Bonjour,

 

Dans le cadre du "nettoyage" des plans architecte, je voudrais automatiser par un lisp permettant de mettre un niveau de transparence sur toutes les hachures solides. C'est facile avec qselect sauf que j'ai souvent des hachures dans des blocs et là ça ne fonctionne pas.

 

Je voudrais m'inspirer d'un lisp que quelqu'un avait fait (je ne sais plus qui, sans doute (gile) )qui force la largeur de toutes les polylignes à 0.

Il me faudrait

-remplacer le terme POLYLIGNE par HATCH

-que j'ajoute un niveau de s"lection pour uniquement les hachures au nom de motif "SOLID" (?)

-remplacer VLA-PUT-CONSTANT-WIDTH par la propriété TRANSPARENCE (VLA-PUT-TRANSPARENCY ?)

 

Est-ce que quelqu'un pourrait m'aider dans cette démarche ?

 

Merci d'avance !

 

(defun c:poly0 ()

(vl-load-com)

(setq a (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))

(vlax-for bl a

(vlax-for ent bl

(if (and (vl-string-search "AcDb" (vla-get-objectname ent))(vl-string-search "Polyline" (vla-get-objectname ent)))

(vla-put-ConstantWidth ent 0)

)

)

)

(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)

)