Plan tout gris

[vinz34]

Bonjourt,

 

Suite à la demande de plusieurs membres et du fait que énormément de dessinateurs ou projeteurs aiment travailler avec un fond de plan en gris, voici quelque chose qui devrai simplifier la vie de pas mal d'utilisateurs.

 

(vl-load-com)
(defun c:8 (/ cdoc lst)  
 (setq cdoc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark cdoc)
 (vlax-for l (vla-get-layers cdoc)
   (setq lst (cons (cons l (vla-get-lock l)) lst))
   (vla-put-lock l :vlax-false)
   (vla-put-color l 8)
 )
 (vlax-for i (vla-get-blocks cdoc)
   (vlax-for e i (vla-put-color e 256))
 )
 (foreach n lst
   (vla-put-lock (car n) (cdr n)))
 (vla-endundomark cdoc)
)

 

Bon test.[Edité le 6/5/2008 par vinz34]

 

[Edité le 6/5/2008 par vinz34]

[Patrick_35]

Salut

 

Je vois avec plaisir que tu vas à fond dans le vlisp :)

 

Bravo

 

Juste une remarque, c'est que si des calques sont verrouillés, ce serait bien de les remettre dans l'état précedent

 

Ca me fait aussi penser que (gile) avait fait quelque chose dans ce style

 

@+

[vinz34]

Salut,

 

Il me semblait bien que j'avais déjà vu quelque chose dans le style mais je ne le retrouvais pas, alors c'était un petit exercice sur lequel je me suis régalé.

Pour les calques vérouillés, je ne sais si c'est bien utile mais je l'ai rajouté, en revanche ce qui l'est plus c'est le undogroup.

 

Les modifications sont intégrées au dessus.

[lili2006]

Bonjour à toutes et tous,

 

Fonctionne parfaitement sur une V2008.

 

Merci vinz34.

[vinz34]

Salut,

 

Je me suis aperçu que le modelspace étant répertorié dans la table des blocs, je peux supprimer ça :

 

(vlax-for e (vla-get-modelspace cdoc)
(vla-put-color e 256)
)

 

Modifié sur le premier post.

[jalna]

Super vinz34!

Merci, très sympa effectivement!!

[dzanomaniak]

Bonjour,

 

merci à toi pour ce lisp.

 

J'ai encore un objet qui reste de couleur.

 

Pourrais-tu essayer de régler cet élément ? moi je n'y connais pas grand chose.

 

Apparemment ce sont des objets texte "style généré"

 

https://onedrive.live.com/redir?resid=43AEE38827F8D353!1102&authkey=!AFzQdDxbQhjXmf4&v=3&ithint=photo%2cJPG

 

https://onedrive.live.com/redir?resid=43AEE38827F8D353!1103&authkey=!ADep2T0vB-DaAQo&v=3&ithint=photo%2cJPG

 

https://onedrive.live.com/redir?resid=43AEE38827F8D353!1101&authkey=!AH8fzaZhuVfh1W4&ithint=folder%2cdwg

 

 

Merci d'avance