Olivier Eckmann

Le mieux c'est de reconstruire complètement la liste des points Transforme ta polyligne en objet ActiveX avec (vlax-ename->vla-object ... Tu auras alors la longueur de ta polyligne avec (vla-get-length ... Ensuite tu crées un compteur depuis 0 jusqu'à la longueur totale par pas tel que tu souhaites (celui que tu utilises dans ta commande mesurer) et tu récupères chaque point à l'abscisse donnée avec (vlax-curve-getPointAtDist ... Tu insères le dernier point si pas déjà dans la liste et tu passes cette liste à ta fonction de création de polyligne.

Quand tu vas dans le menu de ton Profil / Mes pièces jointes, tu vois l'espace encore dispo. Comme on a que 8Mo, c'est possible que tu ais dépassé ton quota.

Je crois que pour que ça fonctionne, il faut que la fenêtre "principale" soit ancrée en bas de ton écran (et non flottante), réduite à quelques lignes. Dès lors si tu appuie sur F2, ça ouvre une seconde fenêtre "flottante" qui peut être positionnée où tu veux. Mais je crois qu'il n'est pas possible d'avoir les 2 fenêtres flottantes. Olivier

Bonjour @litelsousa, Il y a plusieurs switch possible dans le raccourci de lancement d'AutoCAD, notamment /B qui permet d'exécuter un script à l'ouverture du dessin. Par exemple si dans mon dossier D:\DONNEES\AUTOCAD j'ai un fichier nommé TEST12.DWG qui contient une présentation nommée PLAN GENERAL, je peux créer aussi un fichier script nommé par exemple TEST.SCR contenant la ligne suivante (setvar "CTAB" "PLAN GENERAL") Puis je crée un raccourci de ce type "C:\Program Files\Autodesk\AutoCAD 2019\acad.exe" /b "D:\Donnees\AutoCAD\TEST" "D:\Donnees\AutoCAD\TEST12.dwg" Ce raccourci, va ouvrir, le fichier TEST12, puis exécuter le script qui va rendre courante la présentation nommée PLAN GENERAL Il y a également un switch /V qui permet d'ouvrir le plan DWG sur une vue nommée. Lien vers l'aide pour les différents switch possible en raccourci : https://help.autodesk.com/view/ACD/2024/FRA/?guid=GUID-8E54B6EC-5B52-4F62-B7FC-0D4E1EDF093A Olivier

Merci @bonuscad, Je rentre rarement autant dans les détails surtout pour un programme aussi court, mais ayant appris tout seul la programmation, j'ai besoin que ce soit clair. Et je me suis aperçu, quand tu reviens après plusieurs mois (ou années) sur du code que tu as écrit, tu te poses parfois des questions sur un traitement spécifique en te disant, mais pourquoi j'ai fait ça, c'est inutile et finalement, il y avait souvent une bonne raison. Donc j'ai pris l'habitude de mettre des commentaires dès que je fais un truc qui m'a demandé de sortir des clous ou de traiter d'une manière un peu différente de d'habitude. Quand j'ai eu l'occasion de bosser avec une équipe de développement, chaque fois que l'on changeait un morceau de code (sur un module commercialisé), on mettait systématiquement en commentaire (pour conserver) la partie modifiée avec la date de modification. C'est pareil, j'aime bien que mon code (déclaration, opération...) soit bien aligné. Donc je m'arrange pour nommer mes variables avec le même nombre de lettre (quand c'est possible) et j'aligne mes opérations. Ca ne sert à rien, mais c'est plus clair (enfin pour moi) à relire. Après, on est souvent pressé d'avoir un résultat qui fonctionne donc on zappe cette étape. Olivier

et un simple bouton -XREF R * Olivier

Bonjour Covadis 2013 n'a jamais existé. Quelle version d'AutoCAD? Quelle version de Covadis? Olivier

Voilà la version modifiée et commentée pour l'apprentissage 🙂 SURFACELOT.lsp

Quand on débute, modifier un programme, que l'on a pas écrit et que l'on en comprends pas, s'avère quasi impossible ou en tout cas très long et risqué. Il faut malheureusement passer par un apprentissage des bases d'algorithmiques et de la syntaxe du langage afin d'au moins comprendre ce que fait le programme pour pouvoir isoler chaque portion : demander de cliquer un point ou sélectionner des objets, dessiner un polyligne ou autre, changer les propriétés d'un objet (calque, couleur...) Le site internet de @didier https://www.da-code.fr est très bien fait, et tu as la bible de gilles : https://apps.autodesk.com/ACD/fr/Detail/Index?id=6145646386361353211&appLang=fr&os=Win32_64

Même si tu débutes en lisp, en lisant le code, tu sais où est demandé le point à cliquer et où est reconstruit la polyligne. Il faut donc intercaler le code juste avant la demande de la hauteur du texte

Comme on a déjà cliqué un point pour reconstituer la polyligne fermée, il faut ajouter une option pour demander à utiliser le point cliqué ou le Centroïde. Dans ce cas, reprendre cette partie du code de Giles qui crée une région à partir de la poly fermée pour en calculer le centroïde. (if (not (setq ins (getpoint "\nSpécifiez le point d'insertion ou : " ) ) ) (progn (if (= (vla-get-closed obj) :vlax-false) (progn (vla-put-closed obj :vlax-true) (setq op T) ) ) (setq reg (vlax-invoke space 'addRegion (list obj)) ins (vlax-get (car reg) 'Centroid) ) (if op (vla-put-closed obj :vlax-false) ) (vla-delete (car reg)) ) ) Attention, le centroïde d'une surface en forme de U ne se situe pas forcément à l'intérieur de la polyligne. Olivier

Voilà la version modifiée. J'ai déclaré les noms et couleurs des 2 calques tout au début, c'est plus facile si on doit adapter. SURFACELOT.lsp

Quel est le nouveau traceur qui ne fait pas d'imbrication? Olivier

Sinon, on peut utiliser les accrochages "milieu entre 2 points" (plus souple que le centre géométrique) et l'accrochage depuis. DécalageCentreRectangle.mp4

Bonjour L'extraction de données est faite pour cela. Olivier

(itoa i) entier en texte : Integer TO Alpha : itoa

Si la polyligne n'est plus modifiée, on peut utiliser la commande raccord avec un rayon égal à la moitié de la largeur globale. Ca dessine des angles sous forme arrondi et non plus carré et ça change la longueur (et surface) de la polyligne, mais visuellement, c'est plus "sympa" Olivier

A ma connaissance, cela n'a jamais fonctionné sur AutoCAD pour les types de lignes autres que Continous Les coudes sur les polylignes épaisses (largeur globale non nulle) ont toujours fait ces cassures.

Voilà ce que ça pourrait donner pour prendre en charge les noms de calque avec espace et les couleurs CalqueAutoCAD.xlsx

La vidéo ici : https://streamable.com/mk6qql

Pourquoi ne pas utiliser l'extraction de données qui fait le boulot nativement sans développement?

Le fichier Exemple1.DWG n'est pas téléchargeable. Est-il possible de le poster à nouveau? Car il faut le nom du bloc présent dans chaque présentation, ainsi que les étiquettes des attributs, puis l'endroit où vous voulez dessiner le sommaire : espace objet? présentation? sous forme de tableau? dans les attributs d'un bloc?

Bonjour, cad, cdr et leur composante sont des raccourcis pour accéder à un des 1er éléments d'une liste. la fonction générique pour accéder à un élément (base 0) est : nth par exemple avec une liste (setq lsInfo (list "A" "B" "C" "D" "E" "F")) La récupération d'un élément peut s'écrire (nth 0 lsInfo) ; 1er élément, la liste commence à l'indice 0 => "A" (nth 1 lsInfo) ; 2ème élément => "B" (nth 4 lsInfo) ; 5ème élément => "E" ou bien "Milla Jovovich" :) Olivier

Si tu as Covadis, il y a le module volet paysager qui part d'un projet de route / plate-forme, ou bien sans MNT si terrain plat. Ce module monte la voirie, les trottoirs, les plates-formes de bâtiment puis tu passes de 2D en 3D, les murs, les haies, les bâtiments et tous les symboles 2D vers les symboles 3D (bibliothèque fournie). Pour les panneaux de signalisation, c'est automatique, puisqu'il sont à la fois 2D et 3D. Pour le marquage au sol, idem, ça se projette directement sur le relief construit par le module. Si tu as des réseaux enterrés (eau, assainissement, gaz, elec) conçus avec Covadis, le passage en 3D c'est automatique. Tu exportes ta scène sous Terravision (fourni avec Covadis), tu ajoutes les textures et les billboards et tu exportes en SKP pour fignoler sous Sketchup. Olivier

Bonjour, Pour les caractères accentués, il faut que le lisp soit enregistré en ANSI et non en UTF. Olivier