-Olivier-

Bonjour, Malgré cette bizarerie je garde tout de même ton code (avec ta permission bien sûr. :P ) Olivier

Bonjour, jalna parlais de vues et non pas de fenêtres... Olivier

Bonjour, Attention toutefois à la variable DIMZIN. Le bit 4 supprime les zéros en la fin du nombre. Le bit 8 supprime le zéro avant la virgule. Avec dimzin à 12 : $ (rtos 0.1 2 2) ".1" Olivier PS : grillé par Bonuscad :D

Bonjour ASTERIXII, Tu peux le faire en insérant la sélection dans une boucle WHILE, comme ceci par exemple : (while (not (and (/= ent1 nil) (= (cdr (assoc 0 (entget (car ent1)))) "LINE"))) (setq ENT1 (entsel "\nChoix du point sur le réseau :")) ) Tant que la sélection est vide ou que l'objet sélectionné n'est pas une ligne, aors le progamme repose la demande. Olivier

Bonjour philsogood, dans la fenêtre d'impression, tu as une coche (à droite) pour activer ou non les styles de tracés. Olivier

Merci VDH-BRUNO, Merci pour la précision, car en effet je ne comprenais pas pourquoi certaine fois entmake pouvais fonctionner sans ces marqueurs. Olivier PS : Regarde bien, j'avais grillé bonuscad au poteau(sur l'épaisseur de l'écorce) :D

Bonjour Julian-Nihon, Tout comme pour la création du calque, il faut que tu ajoute les 2 codes de groupes 100 '(100 . "AcDbEntity") '(100 . "AcDbPolyline") Dans la liste dxf. Bonne journée. PS : J'adore les caractères Japonais dans les résultats d'interprétations. :D

Bonjour Julian-Nihon, La commande BATTMAN, c'est pour les attributs. Pour les paramètres... Olivier

Hello, C'est normal que tu parle de la commande MAPWSPACE alors que La Lozère indique une commande MWSPACE... :unsure: Olivier PS : corrigé par Lecrabe

Bonsoir fredshmidt, Dans ton cas, je créé des configurations que je pilote grâce à une table excel. Une fois l'ensemble des configurations créees. Dans le cas de dimensions suivants une ou plusieurs équations cela ne devraient pas prendre plus de quelques secondes. Les configurations sont donc ensuite aisément pilotable depuis ton assemblage. Sans passer par les configurations, si tu modifie une dimension dans ta pièce, elle sera modifiée dans l'ensemble des assemblages où cette pièce sera insérée ainsi que dans toutes les occurences de ton assemblage. Olivier

Bonjour MadamAlex, Les programmes lisp ne fonctionnent pas sur des versions LT. C'est l'une des plus grande différence (avec la 3D) entre une version LT et FULL. Olivier

Bonjour Tramber, Félicitation au papa et à la maman. Et bienvenu au petit Lucien dans ce vaste monde. Encore faut-il trouver une crêche équipée d'Autocad... :D Olivier

Bonjour MidiCC, Vérifie que la variable SDI est bien à 0. C'était la bonne section. ;) Olivier

Bonjour Mogo, Le code 370 correspond bien à l'épaisseur de ligne comme tu l'a trouvé. Cette valeur est un réel, hors dans les épaisseurs de ligne que te propose Autocad tu as aussi DuCalque, Par_défaut et Dubloc. L'épaisseur -2 correspond à cette dernière. Continu dans cette voie et bon courage. Olivier

Bonsoir Saturnin, Le traceur que j'utilisais aurai plus de 11ans aujourd'hui. Il y a peut-être eu des évolutions entre temps (le "PS" doit bien servir à quelquechose ;) ). Désolé de ne pouvoir t'aider davantage. Olivier

Bonjour, Si tu n'as pas de mémoire additionnelle sur ton traceur, tu es limité à des envois de fichiers d'environ 10Mo sur ce type de traceur. Sauf erreur de ma part, Adobe Reader, contrairement à Autocad, envoi des fichiers plus imposants au fur et à mesure que le format d'impression augmente. La mémoire du traceur est donc rapidement saturée. Lors de l'édition ,vérifie dans ta liste d'impression que tu ne dépasse pas les 10Mo fatidiques. Les HP500 ont plus de 10ans, ils sont donc un peu dépassés par les capacités informatiques actuelles. Lorsque j'avais un HP500, Autocad n'offrais pas la possibilité d'insérer du PDF. La solution de SteamRoller est donc à tester. Essaye aussi de diminuer la qualité d'impression, voir d'imprimer en noir et blanc. Olivier

Bonjour Bonuscad, Cela ne répond pas à ta question mais juste une précision. La commande TSPACEINVADERS détecte les textes qui chevauchent un objet quel qu'il soit à priori (pas testé avec tout) et non pas uniquement un objet chevauchant un autre objet. Comment as tu fais pour là découvrir ? Olivier Edit : Je voulais dire un texte chevauchant un autre texte.

J'avais cru voir passé un poste de (gile) à ce sujet. C'est pourquoi j'utilise une fenêtre. Une autre possibilité, faire une sélection global des blocs avec un filtre de nom puis vérifier que la coordonnées est équivalente à celle rechercher. Olivier

Pour ta première question : le problème doit provenir de la précision des coordonnées. Soit pt1 les coordonnées et ton point. (setq lupr (/ 1.000000000 (expt 10 (getvar 'luprec)))) Permet de définir une précion plus ou moins grande suivant la valeur de la variable LUPREC Puis : (setq ss1 (ssget "_C" (mapcar 'lambda (x) (- x lupr)) pt1) (mapcar 'lambda (x) (+ x lupr)) pt1) (list '(0 . "INSERT") '(2 . "annotation"))) Défini une sélection avec une fenêtre autour des coordonnées de ton point. Pour la seconde question : Le résultat est une sélection. Pour obtenir l'entité, il te suffit de récupérer le premier (et normalement unique objet) de la sélection avec (ssname ss1 0) Olivier

Bonjour, D'après ce que j'ai compris, ceci devrais fonctionner : (ssget "_X" '((0 . "INSERT") (2 . "nom_du_bloc") (10 coordonnées_du_bloc))) Bonne journée, Olivier

(= (cdr (assoc 1(ssget ss))) "AFFAIRE") Pour obtenir le code dxf d'un objet il faut utilisé la fonction entget et non ssget. De plus comme je te les déjà dit le première boucle permet de faire défilé les blocs. Les informations que tu recherchent sont situés sur les objets attributs. Il te faut donc faire une seconde boucle sur les entités de ce blocs. Voici un exemple Olivier

Bonsoir Mogo, Comme là précisé bonuscad, tu ne pourras pas contrôler le résultat uniquement avec des entités. La commande ajustement ne demande pas seulement une entité mais aussi un point de sélection qui a une influence sur son comportement. Pour cela tu devras avoir une variable dont la forme ressemblera au résultat de la fonction entsel. Obtenir cela dépasse mes connaissances en lisp je ne pense donc pas que je pourrais continué à t'aider sur ce programme. Olivier

Tu peux sélectionner tous les blocs désirés en une seule fois avec (ssget "_X" '((0 . "insert") (2 . "cartouche"))) Le "_X" permet déjà de traiter l'ensemble des objets du dessin. Ensuite le reste permet de filtrer les blocs puis peux qui ont pour nom cartouche. Le lisp sur les blocs n'est pas des plus simple pour un début car il te faudra ensuite faire défiler les objets à l'intérieur du bloc. Tu trouveras de nombreux exemples sur le forum. Une recherche avec SEQUEND devrais te permettre de les trouver facilement. J'espère t'avoir aidé. Olivier

Ok, Entsel te donnes le nom de l'entité et le point de sélection. La fonction car permettant de ne conserver que le om de l'entité. La fonction ssget te donnes elle une sélection. Tu devras ensuite faire défiler les diférents objets de cette sélection pour obtnir traiter chaque entité. Pour faire défiler les entités regarde la fonction ssname à insérer dans une boucle. (setq n 0); compteur (setq ss (ssget));enregistrement d'une sélection (repeat (sslength ss); boucle autant de fois qu'il y a d'entité dans la sélection (ssname ss n); récupération du nom de la n-1 entité. ) Olivier

Bonsoir Zebzeb, Pour cette ligne (setq lis (ssget "_X" (list '(0 . "INSERT") (cons 2 monbloc)))) La variable monbloc que tu enregistres est une sélection. Hors le code de groupe 2 correspond au nom du bloc sous forme de string. Je te laisse faire les corrections nécessaires. Je ne comprend d'ailleur pas pourquoi tu fais cette sélection en 2 fois ? Bon courage Olivier