LUDWIG Posté(e) le 28 juin 2016 Posté(e) le 28 juin 2016 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
LUDWIG Posté(e) le 28 juin 2016 Auteur Posté(e) le 28 juin 2016 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
Tramber Posté(e) le 28 juin 2016 Posté(e) le 28 juin 2016 vla-put-transparency est sans doute fait pour les calques.Bravo pour ta résolution. C'est bien de nager un peu seul parfois 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 ./__\. (.°=°.)
Tramber Posté(e) le 28 juin 2016 Posté(e) le 28 juin 2016 (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 ./__\. (.°=°.)
Messages recommandés
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 compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant