[Résolu] Petit soucis avec un entmode pour un type de ligne.

[DenisHen]

Bonjour à la communauté.
J'ai un petit soucis pour changer le type de ligne d'une polyligne.
J'ai écris ceci :
 

(while (/= (setq ArmatObj (car (entsel "\nSélectionner une armature :"))) nil)
  (setq MetreHaHo (vlax-ldata-get ArmatObj "MetreHAHo" ""))
  (princ (strcat "\nType de ligne : Chain" MetreHaHo))
  (setq elst (entget ArmatObj))
  (setq elst (subst (cons 6 (strcat "Chain" MetreHaHo)) (assoc 6 elst) elst))
  (entmod elst)
) ;_ Fin de while

Sachant que MetreHAHo correspond à "HA6", "HA12" "HA..." et que les types de ligne "ChainHA..." sont toutes chargées.
Quelqu'un aurait une idée ?
Denis.

[Luna]

Coucou,
Premier point, tu peux simplifier ta condition (while) comme suit :

(while (setq ArmatObj (car (entsel "\nSélectionner une armature :")))

Ensuite, certain codes DXF sont facultatifs dans la liste DXF, le code 6 en fait parti ! En réalité il n'est présent que si l'objet possède un type de ligne forcé (donc différent de "DuCalque"). Donc il faut faire plutôt quelque chose comme ceci pour être paré à toute éventualité :

(if (assoc 6 elst)
  (setq elst (subst (cons 6 (strcat "Chain" MetreHaHo)) (assoc 6 elst) elst))
  (setq elst (append elst (list (cons 6 (strcat "Chain" MetreHaHo)))))
)

Bisous,
Luna

[DenisHen]

Bonjour Luna.
Mille mercis pour ton aide.