Modifier des blocs version 2

[Patrick_35]

Si, c'est faisable dans la table

 

(if (setq lst (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))
 (progn
   (foreach ent lst
     (entmod (append (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr ent))) (list (cons 62 0) (cons 62 0) (cons 62 0))))
   )
 )
)

 

@+

 

[Edité le 17/11/2006 par Patrick_35]

[(gile)]

Le entmod ne semble pas fonctionner chez moi.

 

Et, si je comprends bien, c'est le style de mline qui est modifié, pas uniquement les mlines composant un bloc.

 

Curieuse entité :casstet:

[Patrick_35]

Exact. La mline fait appel à un style qui contient les couleurs, le type de trait, l'offset, etc...

Le entmod fonctionne sur ma 2005. Peut-être un problème de version :casstet:

 

Cette solution ?

(if (setq lst (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))
 (progn
   (foreach ent lst
     (entmod (append (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr ent))) (list (cons 62 256) (cons 62 0) (cons 62 0))))
   )
 )
)

 

@+

[(gile)]

Pas mieux, et comme ça non plus :

 

(if (setq lst (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))
(progn
(foreach ent lst
 (setq elst (entget (cdar lst)))
 (while (member '(62 . 256) elst)
   (setq elst (subst '(62 . 0) '(62 . 256) elst))
   )
(entmod elst)
)
)
) 

[Patrick_35]

Je viens de comprendre. On ne peut modifier la table que s'il n'y a pas de mline qui s'y réfère et là le lisp fonctionne

 

@+

[denisf]

Faut admettre que des fois on y arrive pas...

J'essaie de "bricoler" ce lisp pour une application particulière, càd qu'il mette les textes, les textmult et les attributs en couleur DuCalque.

 

Help et merci d'avance