SamuelM

Super et merci

Merci Dinosor pour ta réactivité. aurai tu un code que je pourrai intégrer au code déjà présent pour mettre en surbrillance la valeur trouvée?

Je souhaite mettre les côtes trouvées en surbrillance (avec un fond de couleur jaune ou rouge) et que cette mise en forme ne s'imprime pas (si c'est possible). Merci d'avance pour ta réponse.

Bonjour, Sur autocad, nous pouvons rétablir la position d'origine du texte en sélectionnent la poignée du texte... mais il faut le faire côte par côte. Quelqu'un aurait il le moyen de le faire en sélectionnant toutes les côtes d'un coup ou via un bouton? Merci d'avance

avec le code ça aidera! (defun c:cotforc () (setq jeusel (ssget "X" '((0 . "DIMENSION")))) (setq long (sslength jeusel)) (setq i 0 n 0) (while (< i long) (progn (setq lstent (entget (setq noment (ssname jeusel i)))) (setq anctxt (assoc 1 lstent)) (if (not (or (wcmatch (cdr anctxt) "*<>*") (= (cdr anctxt) "") (= (cdr anctxt) "="))) (progn (if (= "{" (substr (cdr anctxt) 1 1)) (setq nvtxt (strcat "{\\L" (substr (cdr anctxt) 2))) (setq nvtxt (strcat "\\L" (cdr anctxt))) ) (setq nvtxt (cons 1 nvtxt)) (setq nvlst (subst nvtxt anctxt lstent)) (if (entmod nvlst) (setq n (1+ n)) ) ) ) (setq i (1+ i)) ) ) (alert (strcat (itoa long) " côte(s) dans ce dessin\n" (itoa n) " côte(s) forcée(s) trouvée(s) et soulignée(s)\n" "soit " (itoa (* (/ n long) 100)) "%")) ) (prompt "\n commande : COTFORC")

Bonjour, Pouvez vous m'aider? le code suivant me sert à détecter les côtes forcées et les souligne. je voudrai à la place de souligner les mettre en surbrillance non imprimable.