bryce

Bonjour, Avec la commande -IMAGE ;) [Edité le 18/4/2011 par bryce]

Bonjour, Avant même de regarder plus en détail le lisp, je vois que tu fais par exemple (command "polylign" pt01 pt02 "c") : tu traces une polyligne entre 2 points, et tu utilises l'option Clore. Le résultat est une polyligne constituée de 2 segments identiques superposés (décompose une des polylignes pour voir)... :casstet: Ensuite : - (+ angl(/ 0 )), c'est-à-dire angl + 0/??? : il manque un argument à la fonction / - (+ angl(/ pi )), idem - ((command "dimaligned" pt00 pt09 "c") (* 5 (getvar "DIMTXT"))) : il y a des parenthèses en trop, je suppose que tu voulais écrire (command "dimaligned" pt00 pt09 "c" (* 5 (getvar "DIMTXT"))) - il n'y a pas d'option "c" dans la commande dimaligned :casstet: - je ne vois pas à quoi doit servir (* 5 (getvar "DIMTXT"))... [Edité le 18/4/2011 par bryce]

Salut (gile), Ma question s'adressait à VtKp, toi et moi avons posté au même moment (toi quelques secondes avant moi manifestement...). ;)

Bonjour, Quel est l'intérêt de faire ça en lisp plutôt que de sélectionner tes polylignes à la main et de changer leur couleur ensuite ? Puisque d'après ce que j'ai compris il faudra de toute manière cliquer sur les textes, autant cliquer directement sur la polyligne, je ne vois pas trop le gain de temps qu'un lisp pourrait apporter. Avec plus d'infos et un dessin exemple, peut-être que ça motivera quelqu'un pour se pencher sur ta question... ;)

Bonjour, Je ne vois pas de lien vers le fichier !? ;) Plutôt que d'effacer les blocs, il suffirait je pense de dissocier les échelles qui posent problème avec la manip de mon précédent message, puis de réassocier ces échelles à tes blocs avec ECHELLEOBJET (ou à tout le dessin en activant ANNOAUTOSCALE et en choisissant l'échelle dans la liste).

Bonjour, Si tu veux pouvoir coller les commandes directement dans la ligne de commande, il faut que ton fichier Excel génère un script (et en respecte la syntaxe), et non une macro. Dans un script, on ne peut pas utiliser le ; ou ^M pour la simuler la touche Entrée. L'espace oui, mais évidemment quand on utilise l'espace au sein d'une commande Texte, ça crée un espace dans le texte, ça ne valide pas la commande. Il faudrait donc dans ton fichier Excel concaténer tes commandes avec un saut de ligne ( CAR(10) ) à chaque fois que c'est nécessaire. Tu peux voir un exemple sur cette vidéo que j'avais faite pour une utilisation proche de ce que tu veux faire :

Une macro, ça ne se s'utilise pas directement dans la ligne de commande ! :casstet: Il faut créer une commande personnalisée (un bouton) dans la boîte de dialogue Personnaliser (commande CUI), puis utiiser ce bouton dans une barre d'outils, dans le Ruban, ou dans une palette d'outils. ;)

Bonjour, Normalement ça fonctionne avec le point-virgule. Je viens de tester la macro suivante (sur AutoCAD 2011), et aucun problème : ^C^C_point;0,123;_-text;_j;_mc;0,128;4;0;1;_point;0,-14.4;_-text;_j;_mc;-2.75,-14.4;4;90;81.23;_pline 0,0 0,-110.8;; Elle ne fonctionne pas chez toi ?

Bonjour, Il faut donner un nom différent à chaque bloc, tout simplement. Je ne vois pas pourquoi tu voudrais donner le même nom à tous tes blocs.. Tu ne donnerais pas le même prénom à tous tes enfants, non ? :P ;)

Bonsoir, http://blog.jtbworld.com/2005/03/delete-autocad-layer-filters.html ;;; DLF.LSP ;;; ;;; Delete all layer filters with the DLF command ;;; ;;; By Jimmy Bergmark ;;; Copyright (C) 2004-2008 JTB World, All Rights Reserved ;;; Website: www.jtbworld.com ;;; E-mail: info@jtbworld.com ;;; 2004-05-23 - Added support to delete filters introduced in 2005 ;;; 2005-03-14 - Confirmed to work with AutoCAD 2006 ;;; 2005-04-19 - Added (vl-load-com) ;;; Written for AutoCAD 2000, 2000i, 2002, 2004, 2005, 2006, 2007, 2008, 2009 ;;; (vl-load-com) ;;; Purge/delete all layer filter or filters ;;; Example: (DeleteLayerFilters) (defun DeleteLayerFilters () (vl-Catch-All-Apply '(lambda () (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))) "ACAD_LAYERFILTERS"))) ) ;;; Purge/delete all layer filter or filters compatible with 2005 or later ;;; Example: (DeleteLayerFilters2) (defun DeleteLayerFilters2 () (vl-Catch-All-Apply '(lambda () (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))) "AcLyDictionary"))) ) (defun c:dlf() (DeleteLayerFilters) (DeleteLayerFilters2) (princ "\nAll layer filters deleted!") (princ) ) Testé et approuvé ! :)

Bonsoir, Pourquoi l'échelle d'annotation est-elle à 1:20 dans la présentation, et à 1:25 dans l'onglet Objet ? :casstet: En plus, tes blocs sont inutilement associés à plusieurs échelles (1:1, 1:10, 1:4, 1:25...). La manip ci-dessous règle le problème, il faudrait faire la même chose avec les autres échelles inutiles. Commande: -ECHELLEOBJET Sélectionnez des objets annotatifs: tout 63 trouvé(s) 10 n'étaient pas dans l'espace courant. Sélectionnez des objets annotatifs: Entrez une option [Ajouter/Supprimer/?] : s Entrez l'échelle nommée à supprimer ou [?] <1:25>: 18 échelles d'objet supprimées. Entrez l'échelle nommée à supprimer ou [?]: Commande:

Bonjour, C'est tout à fait normal ! Il ne peut pas exister dans un même dessin deux blocs d'aspect différent qui auraient le même nom. Une fois que tu as dans ton dessin un bloc "Test A", le Design Center insérera celui-ci chaque fois que tu essaieras d'insérer un bloc qui s'appelle "Test A", quel que soit son fichier source. Dans la ligne de commande, tu devrais voir un avertissement "Définition en double du bloc Test A ignorée" (ou quelque chose d'approchant). ;)

Bonjour, On ne peut pas modifier le SCG, il est fixe par définition. On peut seulement changer de système en créant un SCU Si les coordonnées de tes points dans le SCG ne te conviennent pas et que créer un SCU ne suffit pas, tu peux déplacer tes points.

Ça fonctionne très bien, je viens de tester sur AutoCAD 2010, 2011 et LT 2010... Celui qui dit que ça n'est pas possible est à côté de la plaque ! ;) Si ça ne fonctionne pas chez toi, il y a une raison. Ça ne suffit pas comme info, il faudrait tout le contenu de la fenêtre de texte (touche F2) à partir du lancement de la macro. Quoi qu'il en soit, c'est sans doute plus pratique d'utiliser un bloc pour ce genre de choses.

Qu'est-ce qui se passe exactement ? Tu pourrais faire un copier-coller du contenu de la fenêtre de texte ? Tu as quelle version d'AutoCAD ?

Bonjour, - 1ère question : tu peux extraire tous tes blocs, puis ouvrir le fichier d'extraction dans un tableur, trier par nom de bloc et supprimer ceux qui ne t'intéressent pas (automatisable avec une macro dans le tableur). Dans LT, tu ne pourras pas automatiser la sélection des blocs qui t'intéressent. - 2e question : pourquoi ne pas créer des attributs invisibles directement ? Mais tu peux très bien mettre tes attributs sur un calque différent de celui sur lequel sont insérés les blocs, et geler ou désactiver le calque des attributs. Ça fonctionne très bien. ;)

Bonjour, La macro suivante fonctionne très bien a priori : ^C^C_point;X,Y;_text;_j;_mc;X,Y;4;0;MON TEXTE;

Bonjour, Je pense que tu devrais poster ton fichier (ou un extrait) pour qu'on puisse voir comment il est fait. Qui sait, peut-être que quelqu'un aura un peu de temps pour écrire un Lisp vite fait... ;)

Bonsoir, C'est normal, puisque ce paramètre n'existe pas dans SketchUp. ;) On peut appliquer des couleurs unies ou des textures, jouer sur la transparence, mais ça s'arrête là. Pour un rendu plus réaliste, il faut importer le modèle dans un logiciel de rendu.

Bonsoir, Chris_38, dis-toi que si tu te tapes les 2500 fichiers à la main, tu participes à la sauvegarde des emplois en France ! :cool: Vu le temps que tu vas y passer, les responsables de ta boîte se demanderont peut-être si ça vaut vraiment le coup de sous-traiter à l'étranger la prochaine fois... :exclam: Je plaisante (à moitié seulement) et je compatis, bon courage... ;)

Bonsoir, Tu parles d'extraction de données, mais cette fonction n'existe pas dans LT... :casstet: Est-ce que tu as une version complète ? Si c'est le cas ça pourrait sans doute se faire en Lisp si ça en vaut le coup (si la liste est très longue). Sur LT, je ne vois pas trop de solution...

Bonjour, Oui, c'est un truc que j'utilise pour obliger l'interpréteur DIESEL à évaluer l'ensemble de la macro une première fois. Il faut savoir que dès que l'interpréteur rencontre la première expression DIESEL, il évalue l'ensemble des expressions DIESEL suivantes avant de reprendre la macro après la première expression ( http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=30255#pid131215 ). $(if,0,) est toujours faux et renvoie un résultat vide, mais je l'oblige ainsi à évaluer la première expression $(getvar,distance) (mais pas la 2nde qui est entre guillemets) avant que la deuxième distance soit saisie. Le but est d'éviter d'avoir à utiliser une variable USERRx pour stocker la 1ère distance avant de saisir la 2nde. :) Tu peux utiliser -INSERER (commande française en version ligne de commande) ou _-INSERT (commande native en anglais, d'où le _ , en version ligne de commande), mais pas _INSERER. ;)

L'apostrophe ne sert que pour utiliser une commande de façon transparente (si une autre commande est déjà active, ce qui n'est pas le cas dans ta macro). ;) Voici une macro qui a priori fonctionne selon ton souhait (à condition qu'il y ait bien 5 attributs dans le bloc FONDATION, et qu'ils soient demandés dans l'ordre que tu as indiqué) : *^C^C_dist;\\$m=$(if,0,)_dist;\\attdia;0;attreq;1;_-insert;fondation;e;1;r;0;\\\$m=$(getvar,distance);"$m=$(getvar,distance)";\ [Edité le 9/4/2011 par bryce]

Si c'est uniquement pour de la 2D, le choix est vite fait, c'est AutoCAD LT ou bien un équivalent moins cher, par exemple : - Draftsight, gratuit mais plus limité qu'AutoCAD LT - ZwCAD, moitié prix par rapport à AutoCAD LT, qui te permettrait éventuellement d'utiliser des Lisp, mais dont les fonctions seraient quand même un peu en retrait par rapport à LT 2012.

Bonjour, Je suppose que tu voulais dire 3D ? Parce que prendre Solidworks ou Inventor pour faire de la 2D, ça ne me paraît pas très logique... Quels 2 ? Entre AutoCAD LT et Solidworks ? :casstet: