changer de couleur

[rik]

Bonjour,

 

je dois modifier toutes les entités du plan en couleur 8

comment changer rapidement la couleur des différents blocs d'un plan qui sont constitués d'entités de couleur et non en bylayer

 

merci

 

Richard

 

[jalna]

Salut!

Si tu es bien sur 2008, tu vas dans modification, remplacer par DuCalque!!

[(gile)]

Salut,

 

J'avais écrit un petit LISP qui fait ça (fonctionne avec les blocs, même imbriqués).

[rik]

mettre tout en bylayer ne fonctionne pas car les blocs sont constitués par des entités de couleur

 

J'ai essayé le list mais j'obtiens le message suivant

 

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

c'est peut être du à la version autocad?

 

j'ai essayer le programme ci-après car c'est ce que je dois faire

 

(defun LSTAB ( TABL / LB X )

(if (member

(strcase tabl)

'("APPID" "BLOCK" "DIMSTYLE" "LAYER" "LTYPE" "STYLE" "UCS" "VIEW" "VPORT")

)

(progn

(setq lb (cons (cdr (assoc 2 (tblnext tabl T))) lb))

(while (setq x (cdr (assoc 2 (tblnext tabl))))

(setq lb (cons x lb))

)

(if (/= (strcase tabl) "BLOCK")

(setq lb (acad_strlsort lb))

lb

)

)

)

)

 

(defun lst2str (lst sep / )

(strcat

(vl-princ-to-string (car lst))

(apply 'strcat

(mapcar

'(lambda (x) (strcat sep (vl-princ-to-string x)))

(cdr lst)

)

)

)

)

(defun c:CHLAY (/ cmdecho a b ent)

(setq cmdecho (getvar "cmdecho"))

(setvar "cmdecho" 0)

(command "_undo" "D")

(if (setq a (ssget "_X"))

(repeat (setq cn (sslength a))

(setq ent (entget (ssname a (setq cn (1- cn)))))

(entmod (subst

(cons 62 256)

(assoc 62 ent)

ent

))

(entupd (ssname a cn))

)

)

(command "-calque" "CO" 8 (lst2str (lstab "layer") ",") "" "_UNDO" "F")

(setvar "cmdecho" cmdecho)

(princ)

)

 

la j'obtiens le message ci-après

 

Requires an integer between 1 and 32767, or option keyword.

 

; error: Function cancelled

merci pour vos réponses

 

richard

[(gile)]

Salut,

 

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

 

ajoute :

(vl-load-com)

au début du code et recharge le, ça devrait marcher.

[rik]

c'était bien ca, j'ai rajouté

(vl-load-com)

dans AutoCAD.mnl et cela fonctionne

il ya juste les mtext et des leader de cotation qui font le difficile

mais cela est un détail par rapport au gain de temps obtenu

 

merci beaucoup

 

Richard

[(gile)]

Salut,

 

Pour supprimer tous les formatages des mtextes, j'avais fait ça

[rik]

cela fonctionne très bien

 

il faut savoir que je devais mettre ne gris environ 50 plans!

 

ces routines m'ont fait gagner pas mal de temps

 

merci

 

Richard