Patrick_35

Bonjour Je n'avais pas pensé à la couleur ducalque, donc tu fais par exemple (setq obj (entget (entlast))) (setq coul2 1) (if (not (cdr (assoc 62 obj))) (setq obj (append obj (list (cons 62 coul2)))) (setq obj (subst (cons 62 coul2) (assoc 62 obj) obj)) ) (entmod obj) (entupd (cdr (assoc -1 obj))) (princ) @+

Tout à fait Patrick et pour être plus précis en faisant (command "_undo" "_group") (command ... etc (command "_undo" "_end") @+

Bonjour, ceci decrait répondre à ton besoin @+ (setq obj (entget (entlast))) ; récupération des valeurs du dernier objet (setq coul (cdr (assoc 62 obj))) ; récupération de la couleur de l'objet, c'est juste pour l'exemple (setq coul2 1) ; définition de la couleur (rouge=1 , jaune=2, etc...) (setq obj (subst (cons 62 coul2) (assoc 62 obj) obj)) ; changement de couleur dans la liste, toujours pour l'exemple, on peut faire plus court, pas besoin de passer par coul2 (entmod obj) ; mise à jour de la liste dans la base (entupd (cdr (assoc -1 obj))) ; mise à jour à l'écran (princ)

Oui, merci d'avance de nous le faire parvenir et j'avais aussi oublié de citer ces trois fichiers (toujours en anglais) VlispDev.pdf,VlispPut.pdf et VbaDev.pdf @+

Dans le répertoire help d'autocad (pour la 2000 en tout cas), il y a un fichier AlispRef.pdf :) qui est le manuel d'autolisp avec des exemples mais en anglais :( @+

J'ai déjà eu ce soucis, et je l'ai résolu en appuyant sur la touche f2 puis en réduisant la fenêtre de texte à 3 lignes et en déplaçant la fenêtre (sur la partie haute) sur la barre où sont indiquées les accroch obj,coordonnées,etc... @+

Tu es bien sur Autocad en version pleine et non sur une LT, sinon il n'y a pas de raison que ça ne marche pas, il faut faire attention aux guillemets et aux parenthèses @+

Je viens de relancer le lien, je tombe sur une page pour choisir une version anglaise ou polonaise, puis plus rien, une page vide :( Si ça marche bien chez toi, c'est sûrement dû à mon navigateur @+

Oui, avec un logiciel comme DmCad qui gère les indices et les plans dépendant des xrefs On à une tracabilité complète de nos dossiers, la gestion des indices,du cartouche, des bordereaux d'envoi est automatique Ca fonctionne sous une base access. J'ai entendu dire que la boite à apparemment déposé le bilan, mais je n'en suis pas sur Tu peux toujours aller voir http://www.graphicdm.com/index2.html pour te faire une idée plus précise @+

Ca m'a l'air intéressant, mais le lien ne marche apparemment pas @+

Par la méthode lisp (command "_open" "c:/.../.../.../fichier.dwg") ou encore (command "_open" "c:\\...\\...\\...\\fichier.dwg") pas besoin de jouer avec le filedia Et juste une chose, si la variable sdi est différente de 0, il faut faire une sauvegarde ou en automatique avec la variable dbmod @+

Tiens, un nouveau jeu de questions/réponses, pas besoin de participer

Salut Didier Oui, tout à fait, ce n'est pas exactement ce que je voulais dire, mais c'est quand même très orienté objet et au vu des fonctionnalités qu'on à de plus en plus besoin avec d'autres applications, cela me paraît de plus en plus difficile avec le lisp @+

Merci Didier, c'est bien ce que je cherche, mais le prog tourne constamment et ça me fait penser qu'il est buggé, mais ce n'est pas grave, ça m'a indiqué où chercher. Décidément, il faut que je me mette au vb @+

Bonjour, Après une recherche infructueuse dans les bases de données d'autocad, je ne sais pas où trouver les filtres qui sont appliqués dans les calques C'est après avoir reçu des plans de l'extérieur, j'ai une liste de filtres de calques impressionnante que je voudrais supprimer par un lisp, ceci afin de définir les miens @+

En faisant la commande _plan ---> courant, ca permet de recaler le dessin sur le scu en cours @+

Et en redéfinissant le bloc dans le dessin, cela devrait logiquement redéfinir l'image ??? @+

Bonjour à tous Juste une chose et je ne veux pas passer pour un radin, mais ma méthode coûte..... 0€ et fonctionne en plus sur n'importe quelle version ;) @+

Une méthode simple pour faire rapidement un script sur plusieurs fichiers Lancer un session ms-dos Se placer dans le répertoire où sont les fichiers faire la commande dir *.dwg /on /s /b > fichier.scr (en faisant dir /?, on comprends les options) Lancer un editeur sur le fichier et avec le jeu de rechercher/remplacer, on écrit la ligne de commande à exécuter ex : recherche c:\ et remplace par _open c:\ permet l'ouverture de tous les dessins Il faut juste faire attention dans ce style de script à la variable SDI @+

Bon, j'ai trouvé comment faire en incluant dans la 1er valeur de la boucle juste un princ, mais je ne comprends toujours pas pourquoi ça n'a pas fonctionné du premier coup et pouquoi il faut ajouter un princ pour que ça marche ??? Merci beaucoup à Bonuscad d’avoir essayé de m’aider :thumbup: Donc voici l ‘exemple corrigé et qui fonctionne @+ (setq total 5 n 0) (princ "\nCeci est un test") (while (< n total) (if (= n 0) (princ)) (setq n (1+ n)) (alert (strcat "Boucle indice " (itoa n))) ) (princ)

Ce n'est malheureusement pas si simple, je ne veux pas faire un défilement de texte, mais faire un retour sur mon texte en utilisant ceci (princ (strcat (chr 8) (chr 8) (chr 8) (chr 8) comb "%")) @+

Oui grread est pratique et ce n'est pas spécialement la fonction alert que je veux utiliser, mais ça me permet de faire un point d'arrêt, le but du jeu est de lancer une boucle avec beaucoup d'éléments et d'indiquer le pourcentage d'avancement sur ma ligne de commande pour indiquer que le prog tourne et que ce n'est pas planté, mais comme le texte s'affiche à la fin, du coup, ça ne sert plus à rien @+

Merci de ta réponse rapide mais ce n'est pas ça. Ce que je veux faire afficher en premier est "Ceci est un test" sur ma ligne de commande avant que la boucle se lance et affiche mon indice d'incrémentation @+

Il y a un truc que je n'arrive pas a comprendre. Je veux faire afficher un message au niveau de ma ligne de commande et ensuite lancer une boucle. Le problème est que la boucle s'exécute bien mais avant que le message apparaisse sur ma ligne de commande. Tout le contraire de ce que je veux faire Pourtant dans mon exemple ci-dessous, ça me parait correcte mais en l’exécutant, que nenni :casstet: (setq total 5 n 0) (princ "\nCeci est un test") (while (< n total) (setq n (1+ n)) (alert (strcat "Boucle indice " (itoa n))) ) (princ)

J'ai constaté une chose pour faire accélérer l'affichage, c'est de faire page précédente puis tout de suite après, page suivante dans le navigateur et ça s'affiche presque tout de suite. @+