dxf/lisp

[Thelduin]

Bonjour !

 

Je reviens vers vous (encore :D) car j'aimerais changer l'echelle du type de ligne d'une ligne ou polyligne. Je sais que le code dxf 48 correspond à l'echelle du type de ligne, seulement, il apparaît uniquement si l'echelle est différente de 1.

 

J'ai donc voulu ajouter à la liste dxf, la clé 48 avec une valeur quelconque pour pouvoir la changer par la suite avec subst. Le couple (48 . x) s'ajoute bien à la liste dxf, j'arrive à changer le x avec subst, mais quand je lance entmod, ça ne change rien, comme si ça ne prenait pas en compte l'echelle.

 

(setq dxlist(entget(entlast)))
(setq dxlist(cons 48 1.0)(cons dxlist))
(subst (cons 48 3) (assoc 48 dxlist) dxlist))
(entmod dxlist)

 

J'arrive à changer d'autres paramètres avec subst puis entmod, je vois le changement se faire, mais là vraiment, pour l'echelle du type de ligne, je sèche complètement ...

 

Merci d'avance,

 

Guillaume

[didier]

Coucou

 

Pas besoin de mettre une valeur bidon dans l'échelle de ligne

Il suffit de faire un test de présence, s'il y en a on la change et on la met s'il n'y en a pas

Par exemple :

 

(setq ent (entlast))
(setq ent-liste (entget ent))
(if (assoc 48 ent)
 (entmod (subst (cons 48 5) (assoc 48 ent) ent-liste)))
 (entmod (append ent-liste (list (cons 48 5))))  
)
(entupd ent)

 

Amicalement

[lecrabe]

Hello

 

Un truc SEMBLABLE provenant de Gilles (gile) ou on voit bien qu'il teste la presence du code DXF 48 :

- Si present alors ENTMOD ...

- Si absent alors ENTMOD (append ...

 

MERCI Gilles, Bye, lecrabe

 

   (if    (setq lts (assoc 48 dxf))
     (entmod (subst (cons 48 (* scl (cdr lts))) lts dxf))
     (entmod (append dxf (list (cons 48 scl))))
   )