funkkybebel

Bonjour, Merci mais il y a beaucoup trop de "manœuvres". A la limite on pourrait facilement (je pense) faire sauter les lignes qui demandes le suffixe, le pas d'incrément... Non, le mieux serait ce qui est strictement décrit dans mon premier post. Merci quand même !

Merci, mais ça devient trop compliqué pour une simple incrémentation. Je continue à la main ça va plus vite. Salutations.

Effectivement oui si je mets 01 ça marche. Merci. Maintenant imaginons que je supprime 2 attributs (je met leur valeur à rien), et que je souhaite recommencer l'incrémentation à partir d'un attribut qui est déjà "lié". Le lisp me re-rempli les attributs ! Autre chose: J'essaie de repartir du dernier attribut incrémenté par LATT, pour continuer sur d'autres que j'ai rajoutés. Mais le lisp ne me permet pas de choisir "croissant". Merci de votre aide.

Bonjour, Pour information Patrick, le lisp LATT ne fonctionne pas pour incrementer au dessus de 9. Je m'explique: J'ai un bloc avec comme valeur d'attribut : PUI.1 Je veux incrementer le reste des attributs et continuer ensuite sur les attributs d'un bloc identique, je tapote donc LATT, je choisis Ajouter, et Croissant. De là, je selectionne autant d'attributs que je veux incrementer, mais lorsque j'en selectionne plus de 10, alors il met un slash. Je me retrouve avec : PUI.1 PUI.2 ..... PUI.9 PUI/0 PUI/1 ...... Existe-t-il un outil qui pourrait incrémenter d'autres attributs (quelque soit leur valeur à la base, chiffre ou n'importe quoi) à partir d'un attribut donné, en récupérant uniquement la dernière valeur numérique de l'attribut. C'est à dire qu'il m'aurait plutôt fallu cela: J'ai un attribut d'un bloc que je nomme PUI.1 Je lance le lisp magique, je lui montre par quel attribut commencer (PUI.1) Ensuite je selectionne autants d'attributs que je veux et il incrémente de 1 la valeur numérique trouvée dans l'attribut source. Une pression sur Echap me permettrait de sortir de la commande. Bien sûr je ne veux surtout pas indiquer un quelquonque suffixe ou prefixe. L'outil doit aussi bien continuer à incrémenter à partir de PUI.145 comme à partir de BONJOUR-08, puisqu'il est censé récuperer les derniers chiffres uniquement... Merci de m'aider s'il vous plait au pire à modifier un outil déjà existant... Salutations.

Merci énormément. C'est exactement ce qu'il me fallait. Je vais juste essayer d'adopter le dernier code afin d'activer cette fonction uniquement avec le bouton >>. Et que quand on clique sur ok (au lieu de annuler) ça me donne la sélection globale. UN GROS MERCI. ;)

Magnifique, c'est génial. Par contre est-il possible de garder la sélection courante si on lui demande => genre une case à cocher en plus qui laisse l'utilisateur choisir si les blocs sélectionnés restent dans la sélection, et le lisp inclue avec les sélections suivantes. De ce fait, il faudrait que lorsque je fais une sélection, l'outil reste actif pour que je puisse immédiatement choisir un autre bloc etc... Si c'est pas possible c'est déjà énorme comme ça. Merci beaucoup.

Pour ton patron (si tu en as un) : très certainement. Pour toi : je te le souhaite. Pour moi : rien, si ce n'est du plaisir (et ça me va bien) Alors puisqu'il est question d'argent, pourquoi pas une petite donnation à CADxp (dans lequel je n'ai aucun intérêt, si ce n'est, encore une fois, le plaisir) C'est fait. Merci encore.

Truc de fou ! MERCI ENORMEMENT !!!!!!!!!!!!! T'es vraiment trop fort Gile. Tu vas me permettre de gagner beaucoup beaucoup de temps ! (temps = argent)

Bonjour, je voulais savoir s'il existait la même fonction mais pour sélectionner tous les objets du même nom. Attention, pour corser le tout, je voudrais pouvoir choisir dans la liste des bloc (et non pas rentrer le nom du bloc à la main. En gros un truc du genre (réalisé avec trucage) : http://www.rhodes-tunes.com/misc/selectrapbloc.jpg Je clique sur mon bouton qui lance un lisp ou vba ou quoi que ce soit. Une fenêtre du genre du dessus apparait alors. Je n'ai plus qu'à choisir le nom de mon bloc. En effet quand je dois traiter une multitude de blocs, l'outil selection rapide devient ennuyeux (car il faut constamment naviguer dans les listes afin de tomber sur la configuration de l'image ci-dessus. Merci de votre aide ! [Edité le 4/10/2007 par funkkybebel]

Merci pour vos réponses. A bientôt.

Bonjour, Je cherche à redéfinir le point zéro et surtout que le nouveau point zéro ne puisse plus être modifié en réactivant le scu général. Pour cela je fais : _ucs o Je clique sur le point dont je veux qu'il soit le nouveau point Zéro. Là j'ai bien mon nouveau point zéro de défini. Par contre, quand je clique sur mon icône scu général (_ucs _w;_plan C) le point zéro revient comme à l'origine. Existe-t-il un moyen de rendre permanent le nouveau point zéro ? Merci de votre aide.

MERCI !!!!!!!!!! Nickel ça marche ! :)

Merci, mais est-il possible de l'integrer dans l'autre programme cité en réponse n°10 ? Merci, mais je suis une vraie quiche en lisp (j'ai bien essayé de recherché les lignes qui permettent de faire un zoom objet pour les repositionner dans l'autre programme mais je n'y vois que du feu)

Bonjour, désolé pour le temps de réponse, et je te remercie. Par contre ça ne marche pas et en plus je me suis trompé de programme. Est-il possible d'ajouter la particularité de faire un zoom OBJET (uniquement sur la polyligne et pas sur tout le dessin) avant de procéder au comptage sur le lisp suivant (cnt-blk.lsp) : (defun c:cnt-blk (/ obj ss n bl nom lst str file) (vl-load-com) (prompt "\nSélectionnez les blocs ou < Objet >: ") (if (not (setq ss (ssget '((0 . "INSERT"))))) (if (setq obj (car (entsel "\nSélectionnz l'objet délimitant la sélection: ") ) ) (if (member (cdr (assoc 0 (entget obj))) '("CIRCLE" "ELLIPSE" "LWPOLYLINE") ) (setq ss (SelByObj obj "WP" '((0 . "INSERT")))) (princ "\nEntité non valide.") ) (princ "\nAucune entité sélectionnée.") ) ) (if ss (progn (setq n (sslength ss)) (setq str (strcat "\n" (itoa n) " blocs dans la sélection\n") ) (repeat n (setq bl (vlax-ename->vla-object (ssname ss (setq n (1- n)))) nom (if (vlax-property-available-p bl 'EffectiveName) (vla-get-EffectiveName bl) (vla-get-Name bl) ) lst (if (assoc nom lst) (subst (cons nom (1+ (cdr (assoc nom lst)))) (assoc nom lst) lst ) (cons (cons nom 1) lst) ) ) ) (setq str (apply 'strcat (cons str (mapcar '(lambda (x) (strcat (car x) "\t" (itoa (cdr x)) "\n" ) ) lst ) ) ) ) (textscr) (princ str) (initget "Oui Non") (if (= (getkword "\nEnregistrer dans un fichier ? [Oui/Non] < Non >: " ) "Oui" ) (progn (setq file (open (getfiled "Créez ou sélectionnez un fichier" "" "xls" 1 ) "a" ) ) (princ str file) (close file) ) ) (graphscr) ) (princ "\nAucune entité sélectionnée.") ) (princ) ) Merci de votre aide à tous...

Ok merci beaucoup ! Par contre j'ai remarqué un gros bug (qui vient d'autocad à mon avis). Quand je selectionne ma polyligne avec un zoom tout, alors, le lisp me comptabilise bien tous les blocs. Par contre, si je zoom sur une partie de l'écran (donc je ne vois plus ma polyligne entièrement), le lisp prend en considération l'affichage écran + polilygne. (c'est à dire que les limites de mon écran (ce que je vois) correspond à ce moment là à ma polyligne !!!! Pour palier à ce problème, comment pourrait-on rajouter un zoom objet sur la polyligne (dans le lisp) afin que avant le traitement de comptage, le lisp positionne l'affichage écran sur la totalité de la polyligne ? En théorie il suffirait de rajouter _zoom _o mais où, ça je ne sais pas ! Merci de votre aide. [Edité le 19/7/2007 par funkkybebel]

Bonjour, merci, mais comme je suis nul en lisp, je n'ai rien compris. Pourriez-vous me coller dans un post le lisp complet qu'il faudra que je charge sous AutoCAD ? Merci.

Bonjour, je ne comprend pas pourquoi ça marche pas chez moi. J'ai chargé cela : (defun c:ct(/ bllst ent js lstbl nb) (if (setq js (ssget (list (cons 0 "INSERT")))) (progn (setq nb 0) (while (setq ent (ssname js nb)) (setq ent (vlax-ename->vla-object ent)) (if (not (vlax-property-available-p ent 'Path)) (if (vlax-property-available-p ent 'EffectiveName) (setq lstbl (append lstbl (list (vla-get-EffectiveName ent)))) (setq lstbl (append lstbl (list (vla-get-Name ent)))) ) ) (setq nb (1+ nb)) ) (setq lstbl (acad_strlsort lstbl)) (while (setq ent (car lstbl)) (setq nb (length lstbl) lstbl (vl-remove ent lstbl) bllst (append bllst (list (cons ent (- nb (length lstbl)))))) ) (mapcar '(lambda (x) (princ (strcat "\nIl y a " (itoa (cdr x)) " bloc(s) " (car x)))) bllst) ) ) (princ) ) (princ "\nCTT.LSP chargé. Tapez CT pour l'exécuter") (princ) Mas je n'ai toujours pas le choix de prendre une polyligne comme zone de comptage. Comment cela se fait ? Merci de votre aide !