(gile) Posté(e) le 27 mars 2009 Partager Posté(e) le 27 mars 2009 (defun c:XCol (/ acdoc layers color vr) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) layers (vla-get-Layers acdoc) ) (if (setq color (acad_colordlg '255)) (vlax-for l layers (if (wcmatch (vla-get-Name l) "*|*") (if (member color '(0 256)) (progn (setq vr (getvar "VISRETAIN")) (setvar "VISRETAIN" 0) (vlax-for b (vla-get-Blocks acdoc) (if (= (vla-get-IsXref b) :vlax-true) (progn (vla-unload b) (vla-reload b) ) ) ) (setvar "VISRETAIN" vr) ) (vla-put-color l color) ) ) ) ) (vla-regen acdoc acActiveViewport) (princ) ) Gilles Chanteau - gileCAD - Développements sur mesure pour AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
(gile) Posté(e) le 27 mars 2009 Auteur Partager Posté(e) le 27 mars 2009 (defun c:XCol (/ acdoc layers color vr) (vl-load-com) (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)) layers (vla-get-Layers acdoc) ) (if (setq color (acad_colordlg '255)) (vlax-for l layers (if (wcmatch (vla-get-Name l) "*|*") (if (member color '(0 256)) (progn (setq vr (getvar "VISRETAIN")) (setvar "VISRETAIN" 0) (vlax-for b (vla-get-Blocks acdoc) (if (= (vla-get-IsXref b) :vlax-true) (progn (vla-unload b) (vla-reload b) ) ) ) (setvar "VISRETAIN" vr) ) (vla-put-color l color) ) ) ) ) (vla-regen acdoc acActiveViewport) (princ) ) Gilles Chanteau - gileCAD - Développements sur mesure pour AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
Bred Posté(e) le 10 avril 2009 Partager Posté(e) le 10 avril 2009 Salut,Hey !Mais c'est bien ce format "Visual" !!!Tu arrives à faire ça comment ? Si vous êtes persuadés de tout savoir sur un sujet, c''est que vous en ignorez quelque chose... Lien vers le commentaire Partager sur d’autres sites More sharing options...
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