Aller au contenu

côtes forcées


SamuelM

Messages recommandés

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")

Modifié par (gile)
Formatage du code, ajout des bbcodes
Lien vers le commentaire
Partager sur d’autres sites

Hello,

 

Ce n'est pas que je sache faire, mais juste une idée...

 

Peut-être en mettant l'arrière plan du texte de cote sur couleur 255 ?

 

Bien à vous ;)

Seuls nous allons vite, ensemble nous allons plus loin...

CPU Intel 3,5Go / Nvidia RTX-3090

AutoCad (Architecture) 2022 - Lumion PRO

BMW R-1200-RT, c'est moche, oui... je sais...

 

www.neda.ch

Lien vers le commentaire
Partager sur d’autres sites

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?

 

Désolé, comme dit plus haut, je ne sais pas faire cela

J'adorerai... :)

Seuls nous allons vite, ensemble nous allons plus loin...

CPU Intel 3,5Go / Nvidia RTX-3090

AutoCad (Architecture) 2022 - Lumion PRO

BMW R-1200-RT, c'est moche, oui... je sais...

 

www.neda.ch

Lien vers le commentaire
Partager sur d’autres sites

Salut,

ce vieux plug-in pour PowerClicles passe en jaune

et les sélectionne.

après tu n'as plus qu'a les mettre dans un calque non imprimable.

(tu peux créer le calque avec un sufixe directement à partir du dialogue PowerClic)

a+

gégé

 

;*******************************************************************************
;; showbaddim
;;§/plugg/Montre les cotes forcées - show forced dim./none
;; register this plug-in for dimension
(pw_pluggin_register '("showbaddim" ("DIMENSION" "ARC_DIMENSION")("Montre les cotes forcées" "-" "show forced dim" )))
;;definition de la commande - function definition
(defun showbaddim ( / sel1 sell l eg olt col mode)
(setq mode (pw_ch_choix "Change color or Text value ?" "Color Text" "Text"))
(if (= mode "COLOR")
  (setq col (itoa (acad_colordlg 256)))
)

;;selection obtenue avant (par powerclic)
(pw_select_only_ctab (ssget "_p"))
(if (setq sel1 (ssget "_p" '((-4 . "<NOT")(-4 . "<OR")(1 . "*<>*")(1 . "")(-4 . "OR>")(-4 . "NOT>"))))
 (progn
  (if (= mode "TEXT")
   (progn
    (setq sell (pw_listsel sel1))
    (foreach l sell
     (setq eg (entget l))
     (setq olt (assoc 1 eg))
     (setq eg (subst '(1 . "<>") olt eg))
     (entmod eg)
     (entupd l)
    )
   )
   (command "_chprop" sel1 "" "_color" col "")
  )
 )
 (Prompt "\nNo bad dimensions")
)
)

----------------------------------------------------------------------

Site: https://www.g-eaux.fr

Blog: http://g-eaux.over-blog.com

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité