ajout d\'une clé dans une entité

[challenge75]

Salut,

Je veux ajouter une clé dans les propriétes d'une entité, par exemple la clé (62.1), correspandant a la clé couleur.J' ai une solution, mais elle ne fonctionne pas, pourquoi?

(setq data (entget ( setq ne ( car (entsel)))))

(setq ajout ( cons 62 8);cle couleur

(setq data2 ( append data ajout))

(entmod data2)

merci

[ElpanovEvgeniy]

Salut,

Je veux ajouter une clé dans les propriétes d'une entité, par exemple la clé (62.1), correspandant a la clé couleur.J' ai une solution, mais elle ne fonctionne pas, pourquoi?

(setq data (entget ( setq ne ( car (entsel)))))

(setq ajout ( cons 62 8);cle couleur

(setq data2 ( append data ajout))

(entmod data2)

merci

 

(setq data (entget (setq ne (car (entsel)))))
(setq ajout (cons 62 8))
(setq data2 (subst ajout (assoc 62 data) data))
(entmod data2)
(entupd ne) 

 

Ou

 

(defun c:test (/ ne)
 (if (setq ne (car (entsel)))
   (progn
     (entmod (subst '(62 . 8) (assoc 62 (entget ne)) (entget ne)))
     (entupd ne)
   )
 )
) 

[didier]

hello,

 

Peux tu en dire plus, car tu ne peux pas "ajouter" ce renseignement

à une entité, car, elle le contient déjà.

Si tu veux changer la couleur d'une entité,

c'est un peu ça, mais il faut REMPLACER le code 62

 

amicalement

[Tramber]

(setq data(if(assoc 62 data)
	   (subst(cons 62 8(assoc 62 data)data)
	   (append data(list(cons 62 8)))))

 

Voilà ce qu'il faut que tu fasses avec ta liste data, tout simplement avant le (entmod data2)

[Bred]

Je me permet d'expliquer ce que fait Tramber : le code 62 n'est pas présent si l'objet et en "blanc" (255 255 255), donc c'est pour ça qu'il faut tester d'abord sa présence avant d'essayer de la modifier, sinon tu la rajoutes.

 

 

[(gile)]

le code 62 n'est pas présent si l'objet et en "blanc" (255 255 255)

 

Eh non, l'explication est bonne mais l'indice du "blanc" (255,255,255) c'est 7.

Le code peut être absent si l'objet est en couleur BYLAYER (DUCALQUE). Dans ce cas, s'il n'est pas absent, il a (62 . 256).

 

Voir dans Aide aux dévellopeurs >> Référence DXF >> Section ENTITIES >> Codes de groupe communs aux entités.

 

[Edité le 29/1/2007 par (gile)]