hachures images

[pascal19]

Bonjour

 

J'utilise actuellement la routine suivante pour supprimer les hachures d'un plan

(defun suph2 ()

(vl-load-com)

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

(vlax-for bl a

(vlax-for ent bl

(if (= (vla-get-objectname ent) "AcDbHatch")

(vla-delete ent)

)

)

)

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

) 

 

Je voudrai le modifier pour passer les hachures en couleur 254 au lieu de les supprimer

Je cherche également une routine similaire pour passer toutes les images raster en couleur 255 (même dans les blocs)

 

D'avance merci

[Dinosor]

Hello,

 

Heu, j'suis pas spécialiste en lisp, je n'aurais donc pas la réponse. Mais je me pose la question suivante: Pourquoi ne pas utiliser la commande FILTER pour séléctionner les hachures ? :casstet:

[lecrabe]

 

Hello

 

Connais tu la Selection rapide ?

 

Il te suffit de selectionner toutes les hachures du dessin ...

 

Le Decapode

 

[pascal19]

Merci mais je voudrai integrer ces sélections dans une routine (nettoyage de plans architecte) c'est vrai que je n'utilise pas filter mais je sais que la sélection rapide sur les hachures ne sélectionne pas les hachures contenu dans les blocs...

[pascal19]

Bonjour

 

En fait il me semble que ce dont j'ai besoin, c'est de remplacer

(vla-delete ent) 

par une commande qui change la couleur mais existe-t-elle?

 

A+

[pascal19]

peut-être un

 

 (vla-put-Color ent 254)

 

je vais essayer...

[pascal19]

ça marche :

 

(defun c:modifh()

(vl-load-com)

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

(vlax-for bl a

(vlax-for ent bl

(if (= (vla-get-objectname ent) "AcDbHatch")

(vla-put-Color ent 254)

)

)

)

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

) 

 

 

pour les hachures c'est bon, par contre je cherche pour les images...

[pascal19]

ouai! je suis ceinture marron! trop content!

[pascal19]

En fait pour les images j'ai fait ça:

 

 (defun c:modifim()

(vl-load-com)

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

(vlax-for bl a

(vlax-for ent bl

(if (= (vla-get-objectname ent) "AcDbWipeout")

(vla-put-Color ent 255)

)

)

)

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

)

 

notez que ce dont j'avais besoin c'était changer la couleur des wipeout dans les blocs ce qui me permet d'éviter les problèmes d'impression des pdf (blocs tout noirs)

 

merci à tous ceux qui font vivre ce forum et en particulier à gile (auteur du code source) et à zebulon_ grace à qui j'ai trouvé mes infos

[pascal19]

Bonjour

 

J'ai juste un problème avec mes LISP, en commande, ils marchent trés bien, mais utilisés comme sous-programme , ils ne remplissent leur rôle que dans les blocs !

donc seules les hachures contenues dans les blocs passent en 254 mais pas les autres

si quelqu'un avait une idée...

[pascal19]

désolé il n'y a pas de problème...

a+