titicool

Carboleum, Ok je vais suivre ton conseil. C'est vrai qu'il faut travailler pas mal avec autolisp, je pense, pour maitriser cet outil. Concernant la routine, je viens de m'apercevoir que la routine fonctionne une seule fois correctement dans un dessin. Lorsque je relance la routine, la polyligne n'es plus dessiné correctement par rapport aux points définis à la souris. Il y a un décalage. Pour l'instant, je n'ai as encore saisi d'où pourrait provenir le souci. Si tu pouvais vérifier de ton côté si tu as le même résultat. Merci beaucoup. Titicool

Merci Carboleum, Ca marche nickel. Par contre pour le problème de l'utilisation de la commande ligne, pourquoi cela ne fonctionne-t-il pas? Dans l'énoncé de ma demande, je précisais que je désirais passer par un boîte à dialogue pour encoder mes différents données et choisir mon bloc. Quelqu'un pourrait-il m'aiguiller à ce sujet? Merci d'avance de vos conseils. Ttiticool

Bonjour à totes et à tous, Carboleum, merci pour cette réponse. Cela marche pas mal. Le souci, la polyligne ne démarre qu'à partir du 2ème bloc. J'ai modifié l'instruction (setq lpts nil) par (setq lpts pos) mais le résultat n'est pas correct. De même, j'ai essayé de remplacer la commande polyligne (_pline) par la commande ligne (_line). Avec cette comande, il y a un message d'erreur et aucune ligne n'est tracée. Quel pourrais être le souci? Merci de l'aide reçue. Titicool

Bonjour à toutes et à tous, J'ai besoin d'un peu d'aide pour le développement d'une routine. J'ai développé la routine suivante, elle permet d'insérer des blocs avec incrémentation d'attributs. Le problème que je désire maintenant résoudre est de pouvoir relier les blocs insérés au fur et à mesure de l'insertion par un ligne ou une polyligne. Ou après l'insertion des blocs. Je pense qu'il faut que je récupère les points d'insertion des blocs, mais je ne vois pas du tout comment exécuter cela. Voici la routine actuelle: (defun c:TITI () (setq saveblip (getvar "blipmode") ) (setq savecmde (getvar "cmdecho") ) (setvar "blipmode" 0) (setvar "cmdecho" 0) (setq num (getint "\nNumero du detecteur de depart: ") inc (getint "\nPas incrementation : ") pref (getstring "\nPrefixe = F + ID centrale: ") suff (getstring "\nSuffixe: ") num2 (getint "\nAdresse du detecteur de depart: ") inc2 (getint "\nPas incrementation adresse : ") pref2 (getstring "\nPrefixe = numero de la boucle: ") suff2 (getstring "\nSuffixe: ") ) (setq pos (getpoint "\nLocalisation du premier point: ")) (while (/= nil pos) (setq i (strcat pref " " (itoa num) suff)) (setq s (strcat pref2 " " (itoa num2) suff2)) (command "_insert" "DETECT" pos 1 1 0 i s ) (setq num (+ num inc)) (setq num2 (+ num2 inc2)) (setq pos (getpoint "\nLocalisation du point suivant: ")) ) (setvar "blipmode" saveblip) (setvar "cmdecho" savecmde) (princ) ) Une autre évolution que j'aimerais mettre au point, c'est la possibilité de pouvoir utiliser une boite à dialogue pour choisir dans une liste de blocs et définir les préfixe, suffixe et incréments de ma routine. Si quelqu'un peu m'aiguiller à ce sujet cela m'intéresse également. Je ne suis peut-être sur le bon forum pour cela. Merci d'avance des réponses. Titicool