Patrick_35

Salut Je viens mettre mon grain de sel pour dire qu'il existe plusieurs outils (dans ma signature) pour jouer avec les blocs et attributs, comme par exemple CAT, MAT, PAT et j'en passe. Un petit dernier comme IND qui permet de passer à l'indice supérieur un ou des plans. Très pratique quand on fait les DOE. Donc, il vaut mieux utiliser un bloc avec attributs. @+

Salut C'est que le fichier dcl ne se trouve pas dans les chemins de recherches d'Autocad. @+

Regarde la doc jointe et surtout dans les exemples. Tu as une version vba et la traduction en vlisp @+

Salut T'es mure pour le vlisp. Regarde bien la structure entre vlisp et vba. Ce sont des cousins, voir des germains. @+

Salut Par exemple (defun c:vis(/ bl dbx fic lst obj rep tab tx1 tx2 tx3 dirbox ouvrir_dessin_dbx) ;;;--------------------------------------------------------------- ;;; ;;; Choix du répertoire ;;; ;;;--------------------------------------------------------------- (defun dirbox(txt / cdl rep) (if (setq cdl (vlax-create-object "Shell.Application")) (progn (and (setq rep (vlax-invoke cdl 'browseforfolder 0 txt 512 "")) (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path)) ) (vlax-release-object cdl) ) ) rep ) ;;;--------------------------------------------------------------- ;;; ;;; Ouvrir un dessin via ObjectDbx ;;; ;;;--------------------------------------------------------------- (defun Ouvrir_dessin_dbx(dwg / dbx doc lan rel) (and (setq dwg (findfile dwg)) (progn (vlax-for doc (vla-get-documents (vlax-get-acad-object)) (and (eq (strcase (vla-get-fullname doc)) (strcase dwg)) (setq dbx doc lan T) ) ) (and (not dbx) (setq dbx (vlax-create-object (if (< (setq rel (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa rel)) ) ) ) (vla-open dbx dwg) ) ) ) (list dbx lan) ) (vl-load-com) (and (setq rep (dirbox "Sélectionnez un répertoire à traiter")) (and (setq lst (vl-directory-files rep "*.dwg" 1)) (foreach fic lst (if (setq dbx (ouvrir_dessin_dbx (strcat rep "/" fic))) (progn (setq tx1 nil tx2 nil tx3 nil ) (vlax-for bl (vla-get-blocks (car dbx)) (vlax-for obj bl (and (eq (vla-get-objectname obj) "AcDbAttributeDefinition") (cond ((eq (strcase (vla-get-tagstring obj)) "TYPE") (setq tx1 (vla-get-textstring obj)) ) ((eq (strcase (vla-get-tagstring obj)) "DIMENSIONS") (setq tx2 (vla-get-textstring obj)) ) ((eq (strcase (vla-get-tagstring obj)) "MATIERE") (setq tx3 (vla-get-textstring obj)) ) ) ) ) ) (vlax-release-object (car dbx)) (and tx1 tx2 tx3 (setq tab (cons (cons fic (strcat tx1 " " tx2 " " tx3 ".dwg")) tab))) ) (princ (strcat "\nNe peut pas lire le fichier " fic)) ) ) ) ) (and tab (foreach fic tab (or (= (strcase (car fic)) (strcase (cdr fic))) (if (findfile (strcat rep "/" (cdr fic))) (princ (strcat "\nNe peux pas renommer le fichier \"" (car fic) "\" en \"" (cdr fic) "\" car celui-ci existe déjà.")) (and (vl-file-rename (strcat rep "/" (car fic)) (strcat rep "/" (cdr fic))) (princ (strcat "\nRenommer le fichier \"" (car fic) "\" en \"" (cdr fic) "\"")) ) ) ) ) ) (princ) ) @+

Pour la réponse de didier, ne t'inquiète pas. Avant, quand on suivait un fil de discussion de didier, on recevait parfois 10 messages de lui. Parkinson ? Maintenant, il faut être très, mais alors très claire pour qu'il suive. Alzheimer ? Faut pas vieillir. :(rires forts): Remarque, je ne dois pas être très loin. Va falloir que je fasse gaffe :o Ok,je sors B) @+

Salut Si ça se trouve, tu n'as pas besoin de la version, comme par exemple pour appeler Excel Essaye sans pour commencer. Sinon, en parcourant les registres --> "HKEY_CURRENT_USER\Software\Autodesk\Autocad" "Curver" @+

Salut Avec la variable ACADLSPASDOC ? @+

Salut Un bloc avec 0 éléments dedans. Tu peux les effacer avec JAV @+

Didier, tu sais comment j'ai retrouvé la variable ? Et bien à partir de ta réponse. J'ai été dans la boite de dialogue, et dans le bon onglet, j'ai cliqué sur le bouton aide. Il ne restait plus qu'à lire ;) @+

Il est vrai quand je te vois dans tes demandes d'aide et que (gile) vient à ton secours, ça à l'air loin d'être simple. @+

Salut Ce n'est pas la variable PICKADD ? @+

Peut-être l'aide qui s'affiche quand tu fais F1 une fois la commande ou variable tapé au clavier ? @+

Salut Moi non plus, je ne suis pas un pro de la prog, juste un utilisateur averti. J'ai fait exactement le même parcours que toi. Développer pour mon besoin personnel mes propres outils car j'ai horreur de passer mon temps à refaire les mêmes choses. Autocad n'est qu'un outil et je fais de la conception, pas de la saisie. Malheureusement, tout n'est pas compris dans Autocad. Heureusement qu'il y a un langage de programmation qui permet de palier à cela. C’est pourquoi je me suis mis au lisp, et comme j’aime programmer, j’ai commencé avec Autolisp. Avec la version 2000 est arrivé vlisp. J’avais bien vu que cela offrait d’autres possibilités, mais il fallait encore apprendre un autre langage et l’aide n’était pas, à l’époque, aussi répandue sur les forums que maintenant. Après quelques années et une activité moins chargé, j’ai commencé à m’y mettre et à comprendre la logique. Puis j’ai compris aussi ce que pouvait apporter les API grâce au vlisp. Presque plus de limites. Pour passer un palier supplémentaire, ce serait de programmer en .net, mais là, encore un langage à apprendre, une logique à comprendre et pas très motivé pour commencer. Un jour peut-être. @+

2107, tu prends de l'avance ;) Pour LT 2017 https://knowledge.autodesk.com/support/autocad-lt/downloads @+

Salut https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/autocad-2017-service-pack-1.html#mtc-french @+

Oui, mais comme tu partages tes lisps, la question se pose, pour ceux qui voudraient les utiliser, de la version d'Autocad, et donc de l'utilisation du command. @+

Ben justement. Va voir le lien donné par Gégé @+

Oui et non. Réécrire une vieille routine permet de factoriser son code, d'y ajouter des astuces/techniques et même de la rendre plus pertinente. C'est à faire quand on a un "moment de libre". @+

Salut Une autre solution est de ne plus utiliser "COMMAND" et de passer au vlisp. Résultat --> 0% de problème de comptabilité ;) @+

Salut On ne vit qu'une fois. @+

Salut Oui, mais cela n'empêche pas de glisser un comparatif @+

Un petit clin d'oeil aux motards @+

Salut Remplace "Dubloc" par "ByBlock" @+

Salut Merci lili, tous mes voeux de santé et de bonheur pour toi et tes proches. Il n'y a pas de raisons de changer ;) Rien ne sert d'ouvrir, il faut partir à point. @+