@didier
Re-bonjour Didier
En cherchant un peu, j'ai modifier le lisp que tu as posté et cela à l'air de fonctionner.
Dis-moi ce que tu en pense
(defun c:ht-att (/ att oldh newh)
;question en ligne de commande pour la nouvelle hauteur
(setq newh (getreal "\nNouvelle hauteur ? : \n"))
(while (and (setq att (car (nentsel "\nVeuillez cliquer sur un attribut : ")))
(= (cdr (assoc 0 (entget att))) "ATTRIB")
)
;extraction de la hauteur actuelle
(setq oldh (cdr (assoc 40 (entget att))))
;modification de la hauteur de l'attribut
(entmod (subst (cons 40 newh) (cons 40 oldh) (entget att)))
)
(if name
(prompt "\nErreur : L'objet sélectionné n'est pas un attribut")
(prompt "\nFin de la commande")
)
(princ)
)app
Merci et bonne fin de journée