SamuelM Posté(e) le 16 novembre 2016 Partager Posté(e) le 16 novembre 2016 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. Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
SamuelM Posté(e) le 16 novembre 2016 Auteur Partager Posté(e) le 16 novembre 2016 (modifié) 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 Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
(gile) Posté(e) le 16 novembre 2016 Partager Posté(e) le 16 novembre 2016 Salut, Peux-tu expliquer ce que tu entends par : "les mettre en surbrillance non imprimable". Citer Gilles Chanteau - gileCAD - Développements sur mesure pour AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
SamuelM Posté(e) le 17 novembre 2016 Auteur Partager Posté(e) le 17 novembre 2016 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. Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Dinosor Posté(e) le 17 novembre 2016 Partager Posté(e) le 17 novembre 2016 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 ;) Citer 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 More sharing options...
SamuelM Posté(e) le 17 novembre 2016 Auteur Partager Posté(e) le 17 novembre 2016 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? Citer Lien vers le commentaire Partager sur d’autres sites More sharing options...
Dinosor Posté(e) le 17 novembre 2016 Partager Posté(e) le 17 novembre 2016 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... :) Citer 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 More sharing options...
GEGEMATIC Posté(e) le 17 novembre 2016 Partager Posté(e) le 17 novembre 2016 Salut,ce vieux plug-in pour PowerClicles passe en jauneet 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") ) ) Citer ----------------------------------------------------------------------Site: https://www.g-eaux.frBlog: http://g-eaux.over-blog.com Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés