Aller au contenu

hachures solides


LUDWIG

Messages recommandés

Bonjour le forum,

 

Je retente un sujet car j'ai reçu 0 réponses, j'ai l'impression que mon sujet est invisible...

 

Je voudrais appliquer une transparence sur toutes les hachures de mon dessin dont le motif est "SOLID" (y compris dans les blocs).

 

(defun c:soltrans	()
(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 "Hatch" (vla-get-objectname ent)))
(VLA-PUT-TRANSPARENCY ent 50)
)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
) 

 

Mais é&évidemment il ne connait pas VLA-PUT-TRANSPARENCY et en plus je sélectionne TOUS les type de hachures.

 

Est-ce que quelqu'un pourrait m'aider ?

 

Merci d'avance

Autocad 2021 - Revit 2022 - Windows 10

Lien vers le commentaire
Partager sur d’autres sites

Bon, j'ai combiner un lisp existant (= (vla-get-PatternName ent) "SOLID") et une recherche sur internet (vla-put-entitytransparency ent 50) et là ça marche !

Il s'agissait donc de vla-put-entitytransparency et non vla-put-transparency

 

(defun c:hs50 ()
(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 (= (vla-get-objectname ent) "AcDbHatch")
(= (vla-get-PatternName ent) "SOLID")
)
(vla-put-entitytransparency ent 50)
)
)
)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acActiveViewport)
)

Autocad 2021 - Revit 2022 - Windows 10

Lien vers le commentaire
Partager sur d’autres sites

vla-put-transparency est sans doute fait pour les calques.

Bravo pour ta résolution. C'est bien de nager un peu seul parfois :rolleyes:

 

PS : Je n'ai plus la formule mais on peut faire un "dump" sur un objet pour connaitre les méthodes applicables. Je cherche un lien si tu veux et si j'oublie pas

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

(while (setq ent (entsel “\nSélectionnez l'objet: “))
(setq obj (vlax-ename->vla-object (car ent)))
(vlax-dump-object obj T)
(vlax-release-object obj))

A faire tourner dans la console Vlisp.

 

Le DUMP kezako ? c'est parcourir les propriétés et méthodes (selon T ou ni l à lza fin je ne sais plus). A connaitre.

Patrick_35 avait fait un tuto ou un résumé il y a longtemps. Mais je t'ai donné un bout de code qui suffit pour s'intéresser B)

Bureau d'études dessin.

Spécialiste Escaliers

Développement - Formation

 

./__\.
(.°=°.)
Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité