colorx...sur plusieurs plans?

[bono05]

Salut à tous,

 

utilisant très souvent la routine Colorx, j'aurai aimé savoir si il était possible de lancer cette commande 1 seule fois pour plusieurs plans?

 

Je dois faire cela pour plus de 100 plans!!!

 

Mon idée serait de lancer cela avant de partir le soir... :cool:

 

Ps: j'ai tenté avec SuperAutoScript....mais sans succès!

 

 

Merci à tous!

[RhymOne]

Salut,

Un fichier AutoCAD.lsp dans le dossier courant qui fait appel à cet commande.

Sa devrait le faire par contre obliger de les ouvrir tous.

 

[Patrick_35]

Salut

 

Si tu fais

(ChangeAllObjectsColor (vla-get-activedocument (vlax-get-acad-object)) 7)

avec SAS, cela devrait fonctionner.

 

ps : pas de calques verrouillés et couleur 7 utilisée

 

nb : il est possible d'utiliser ObjectDbx, a toi de voir

 

@+

[bono05]

Patrick_35,

 

Avec cette commande j'ai le message suivant:

; error: no function definition: VLAX-GET-ACAD-OBJECT

 

Maintenant en plus de cette commande il me faudrai au préalable dévérouiller tous les calques car il y en a dans ma centaine de plans!! Ce que Colorx n'oblige pas...

 

Je me demandais si colorx devait obligatoirement appeler une boite de dialogue, car c'est cela qui ne le fait pas fonctionner dans SAS?

Si à l'appel de la commande Colorx il demanderai ensuite (et sans la boite de dialogue) quelle couleur on désire , cela pourrait alors peut-être fonctionner?

 

Merci!!!! :D

[Patrick_35]

Alors, au plus simple

 

(defun C:COLORX	(/ doc col)
 (vl-load-com)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
 (mip:layer-status-save)
 (if (setq col [surligneur][b]Ma_Couleur[/b][/surligneur])
   (ChangeAllObjectsColor doc col) ;_ col — color number
 ) ;_ end of if
 (mip:layer-status-restore)
 (vla-endundomark doc)
 (princ)
)

 

N'oublie pas de faire une sauvegarde du lisp auparavant

 

@+

[bono05]

Patrick_35,

 

Je suis heureux de lire que c'est simple pour toi... :P

 

Avec le nouveau colorx j'ai le retour suivant:

; error: no function definition: MIP:LAYER-STATUS-SAVE

 

Une idée? Merci!!

[Patrick_35]

Tu as posté une routine contenant les lisps

 

COLORX

COLORXREF

COLORXL

COLORXREFL

mip:layer-status-restore

mip:layer-status-save

ChangeXrefAllObjectsColor

ChangeAllObjectsColor

 

Il suffit de charger ces routines.

 

@+

[bono05]

Patrick_35,

 

Moi j'ai cela dans ma routine...

 

defun C:COLORX	(/ doc col)
 (vl-load-com)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
 (mip:layer-status-save)
 (if (setq col  [surligneur](acad_colordlg 7 t))[/surligneur]
   (ChangeAllObjectsColor doc col) ;_ col — color number
 ) ;_ end of if
 (mip:layer-status-restore)
 (vla-endundomark doc)
 (princ)
) ;_ end of defun 

 

Et si je remplace comme tu me l'as demandé j'ai le message d'erreur suivant au chargement du lisp:

 

; error: malformed list on input

[Patrick_35]

A mon avis, il doit manquer une parenthèse

 

Le lisp modifié

 

J'ai ajouté la commande colorp qui utilise la couleur 7

 

@+

[bono05]

FANTASTIQUE!!!!! C'est super!

 

Maintenant serait-il possible de faire la même chose, mais au lieu d'une couleur définie (par ex 7), de tout mettre bylayer?

 

J'ai essayé la commande SETBYLAYER mais comme j'ai des layers lock cela ne fonctionne pas.

 

Alors je me disait que si tu pouvais "l'incorporer" dans Colorx? Bien entendu j'ai essayé de remplacer le "7" par "bylayer"...et je contate que c'est vraiment pas simple pour moi. :D

 

MERCi!!!!!!!!!

 

[Edité le 29/9/2010 par bono05]

[Patrick_35]

C'est la couleur 256

 

Essaye

(acad_colordlg 7 t)

et clique sur ducalque, tu auras la réponse 256

 

Pour dublock, c'est la couleur 0

 

@+

[bono05]

Autocad en Anglais...lorsque je clique sur Bylayer...il m'affiche Bylayer.

 

Mais si je tente colorx...et puis 256...il me met tout en Bylayer!!!!!

 

J'envie tes connaissances! Tout GRAND merci Patrick_35! :D

 

[Edité le 29/9/2010 par bono05]

[Patrick_35]

C'est un site de partage.

 

Tu vas y arriver. Il suffit juste de se mettre au lisp et tu verras comment on progresse vite

(gile) est un excellent exemple.

 

@+

[bono05]

J'aimerai tellement...mais j'ai encore du chemin. :D