didier

Bonjour @ericorne Une image est certes plus parlante, mais il nous manque encore quelques renseignements pour vous répondre. Ces valeurs en rouge sont des MEXT, il faut donc écrire en MTEXT des fois dans la colonne REF32 et d'autres fois dans la colonne REF20. Faire le total de tout ça, dites-vous, le total de quoi ? Pourriez-vous nous donner un dwg avec deux phases avant et après ? s'il vous plaît. Amicalement

Bonjour @jms Voici la première version de ma façon de voir les choses. La sélection est globale, c'est-à-dire toutes les polylignes du dessin, même si elles ont dans un calque inactif ou gelé. Idem pour les blocs. Il va peut-être falloir prévoir des filtres, mais j'attends vos indications. Création des deux fichiers texte avec l'extension CSV, ils sont donc ouvrables dans Excel aisément. Ces fichiers s'écrivent dans le dossier du dessin en cours. Le nom de la commande est jms01. Dans l'attente de vos commentaires. Je n'ai pas tenu compte de la colonne ehandle_pline dans le fichier des blocs, car je n'ai aucune idée de quoi il est question. Dois-je prévoir de faire la même chose en VBA ? Amicalement jms-01.lsp

Bonjour @jms OK, merci, je vais regarder ça. Amicalement

Bonjour @jms Désolé, mais les questions restent sans réponse, que puis-je faire de plus ? Écrire un VBA un LSP qui extrait les coordonnées des polylignes et des blocs dans un fichier texte ? Je n'ai pas compris qu'il y avait des valeurs d'attributs à extraire. Le tout depuis un fichier AutoCAD ouvert. Est-ce plus clair ainsi ? Si oui, merci de faire passer un fichier DWG avec des exemples de blocs et de polylignes. Amicalement

Bonjour @jms Arguments critiquables, mais après tout ce n'est pas l'objet de ce site. Je reviens à la question et je lis : car elle sera susceptible d'être utilisée par d'autres personnes qui ne travaillent pas nécessairement sur Autocad Qu'est-ce que ça signifie ? Est-ce qu'il faut lire ces données dans un DWG fermé ? Si les gens n'ont pas AutoCAD comment extraire les données ? Si c'est vous qui extrayez ces données pour eux, on s'en moque du langage de prog. Le souci, c'est que je n'ai pas Access, quelle alternative puis-je utiliser pour vous avancer dans votre code ? Merci de clarifier

Bonjour @jms Plusieurs choses : J'ai énormément à apprendre, en VBA, et je passe par ChatGPT Il est clair que pour apprendre ChatGPT (ou autre) est une vraie fausse bonne idée. J'ai fini par trouver l'erreur de ChatGPT la preuve ! Et si vous ne l'aviez pas trouvée, vous vous seriez sérieusement agacé, alors qu'en programmant "à la main" mais surtout avec votre propre intelligence pas artificielle du tout, vous n'auriez JAMAIS fait cette erreur. Passons à la réponse : Est-ce une réelle obligation de passer directement du DWG dans Access ? Access acceptant aisément un format csv, voire xls il est très facile de faire ça en quelques lignes robustes. Et aussi est-ce une obligation de passer par VBA ? Merci de répondre à ces questions avant de s'attaquer au code Amicalement PS: sur mon site, je ne parle pas que de LSP, je donne aussi des méthodes pour débuter en VBA. J'espérais ne pas avoir écrit tout ça pour rien.

Bonjour @metacilla Si cela n'a pas fonctionné, c'est que les sommets ne sont pas parfaitement accrochés aux points topo. En général, il y a un message qui précise que des polylignes ne sont pas traitables. Il faut modifier des sommets et relancer la commande. Amicalement

Bonjour @metacilla Il y a un souci dans la chronologie. Tout va dépendre des options choisies et des données existantes dans le dessin. Si des polylignes 2D existent ET, qu'elles ont été utilisées comme lignes de ruptures, alors la projection de ces polylignes donnera un résultat correct. Si le dessin des polylignes n'existe pas, OU que ces dernières n'ont pas été utilisées comme lignes de ruptures, la projection de ces polylignes ne donnera rien de concret. Sinon la transformation de polylignes 2D passant par des points est possible via le menu : Covadis3D->Gestion des polylignes2D->Convertir en polylignes3D en choisissant l'option Point Topo (pas MNT) Amicalement

OK, @vincentp010 Merci du partage. C'est aussi en faisant qu'on apprend, les essais/erreurs empiriques créent des ouvertures quelquefois ! Amicalement

Bonjour @vincentp010 Super, bravo ! C'est un test à l'aveugle pour les 128 octets ? ou c'est une combine connue ? Et comment on dénombre jusqu'au 128ᵉ ? Amicalement

Bonjour @Tsami Du coup, je suis allé vérifier, car je n'aime pas écrire des bêtises. Ce que vous proposez ne fonctionne que dans un environnement SDI à 1. Il faut l'écrire parce que ceux qui vont tester sans cette option vont être quelque peu déçus. Amicalement

Bonjour Comme Christian, chercher aussi les SV$ ça fonctionne plus bien en renommant l'extension en DWG. Amicalement

Bonjour @PATRICE69 Pourquoi utiliser "nouveau" si le dessin existe déjà ?. Je n'ai pas testé depuis longtemps, mais, de souvenirs, (command "_FILEOPEN" ne fonctionne qu'en environnement SDI à 1.

Bonjour @lili2006 Je confirme les dires précédents et l'impossibilité d'ouvrir ce fichier. J'ai même essayé avec la visionneuse Web -> Refus. Et quand on observe le contenu, on constate que ce n'est pas l'apparence classique d'un DWG. Le tien est à gauche et un dwg lambda est à droite, c'est parlant !

Bonjour @Maxime10 Je ne comprends pas les échanges avec lecrabe, que faut-il faire ? Pour les caractères spéciaux dans les noms de pièce, c'est parce que ce sont des textes multilignes avec des options de formatage qui pourrissent bien la vie à tout le monde. Il n'y a aucun intérêt d'utiliser ce genre d'entités pour écrire des textes simples. J'écris mes textes de superficies dans un calque que j'ai créé "à la main" car je ne pense pas qu'on imprime avec les polylignes de délimitation. Est-ce utile ? et si oui, faut-il le prévoir dans le LSP ? ou on reste à écrire dans le calque courant. Le fichier est étrange parce que tout est ortho, mais pas parfaitement aligné sur l'axe des X, est-ce une mauvaise manipulation de votre part ? Je centre un peu les textes, mais il y aura toujours des reprises à prévoir, dégagements et placards… J'en suis là : le nom de la commande est maxime10, (si vous trouvez ça lent, je peux l'accélérer). Amicalement Maxime10.LSP

Bonjour @Maxime10 Ce que je vous propose est de prendre le centre géométrique et de chercher à se décaler du nom de la pièce (très mal écrit au demeurant). Autre chose d'important, la valeur de superficie doit-elle être associative avec la polyligne ? Amicalement

Bonjour @Maxime10 Dans un premier temps, je réponds à la demande initiale. Un mini fichier LSP permet de faire ça : Il va falloir l'améliorer en cas de géométrie s'éloignant du rectangle, je pense à un point proche du centre géométrique, mais en tenant compte de l'écriture du nom de pièce. Pour ce faire, ce serait bien d'avoir un exemple de fichier tel que vous les faites. Pas une image, un DWG pour avoir les styles de texte, les unités… Amicalement

Bonjour @Maxime10 Modifier une commande COVADIS relève de la gageure, je ne m'y attèlerai assurément pas. Par contre, cocher la case "Confirmer la position de chaque surface" me semble un bon palliatif, non ? Il est possible d'écrire un LSP qui fasse le job, ça existe d'ores et déjà d'ailleurs, mais pas "reprendre" du Covadis. Amicalement

Bonjour @Jbrosteaux Y a-t-il un Covadis sur la machine ? J'ai déjà remarqué des lenteurs avec Covadis mais pratiquement jamais avec AutoCAD seul. Amicalement

Bonjour @AnglesDroits Je n'ai jamais entendu parler d'une quelconque incompatibilité I9/AutoCAD. Pour confirmer, le benchmark qu'on a fait place le I9 en tête des meilleurs sur AutoCAD. Qui a dit ça et où ? Amicalement

Bonjour @ricky Les renseignements sont incomplets, mais à première vue, ce n'est pas terrible. Ou alors le prix est très bas. Quel est votre budget ?

Bonjour @ericorne. Ça a l'air simple, j'espère avoir compris, c'est ça qui est attendu ? Si oui j'envoie le bloc. Un simple "déplacer" sur le rectangle (le I)

Bonjour @fredbross Je n'ai pas une version aussi récente, mais ce qui se passe quelquefois, c'est qu'une instance d'Excel se ferme mal. Aller par Ctrl+Alt+Sup dans les applications et regarder dans les processus s'il n'y reste pas un Excel ouvert. Fin de tâche s'il le faut et redemander le listing. J'espère ne pas être hors sujet. Amicalement

@PATRICE69 Au fait, c'est pour du Lisp ou autre chose ?

Bonjour @PATRICE69 Cachée ????? À quoi ça sert de répondre si c'est pour oublier et reposer la question six jours plus tard ? Amicalement