côtes forcées

[SamuelM]

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.

[SamuelM]

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é le 16 novembre 2016 par (gile)
Formatage du code, ajout des bbcodes

[(gile)]

Salut,

 

Peux-tu expliquer ce que tu entends par : "les mettre en surbrillance non imprimable".

[SamuelM]

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.

[Dinosor]

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

[SamuelM]

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?

[Dinosor]

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... :)

[GEGEMATIC]

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