Fonction AutoLISP pour l'ajout de cotes intérieures aux plans de dessin

Bonjour à tous,
Je voulais partager à nouveau une fonction que j'avais précédemment publiée dans notre espace forum. Suite au vif intérêt de nos membres, je l'ai améliorée et mise à jour. Il s'agit d'une fonction utilisée pour ajouter des cotes intérieures dans les plans de dessin (plans de coffrage en béton armé, plans d'étage architecturaux, etc.).
Bien que le code de cette dernière version soit devenu beaucoup plus court, ses fonctionnalités ont encore augmenté et elle est devenue plus pratique. Je voulais la présenter sous forme de code source ouvert (Code Source AutoLISP), en pensant que cela pourrait être un bon exemple pour les collègues développeurs. Je pense que vous serez surpris par ce que cette fonction peut faire, alors qu'elle ne comprend qu'environ 40 lignes de code et qu'elle est si simple et compacte.
Lorsque la fonction est exécutée, elle vous demande de sélectionner le "Point de départ de la cote." Après avoir sélectionné le premier point, il vous est demandé de sélectionner le second point, le "Point de fin de la cote." La ligne de cote que vous sélectionnez peut être dans n'importe quelle direction et à n'importe quel angle. Pendant ce processus, vous pouvez contrôler l'endroit où la ligne de cote va passer en utilisant la ligne de guidage affichée à l'écran. De cette façon, vous déterminez de quel endroit à quel endroit les objets de votre dessin sur le plan seront cotés. En d'autres termes, vous n'êtes pas obligé de coter l'ensemble du plan d'un bout à l'autre.
Ensuite, vous devez sélectionner les calques contenant les objets à inclure dans la cotation (murs, plâtre, poteaux, poutres, etc.). Seuls les objets du ou des calques sélectionnés seront cotés. Vous pouvez sélectionner un seul calque ou plusieurs calques. Cette sélection se fait en cliquant sur un objet situé dans le calque souhaité. Les objets sélectionnés sont mis en surbrillance. Si vous cliquez sur un objet d'un calque déjà sélectionné, les objets de ce calque sont supprimés du jeu de sélection. Vous pouvez librement ajouter et supprimer des sélections sans restriction jusqu'à ce que vous terminiez en appuyant sur Entrée (ou par un clic droit).
En résumé, vous pouvez créer des cotes de mur à mur, ou inclure également des objets d'autres calques, comme les calques d'axes. Les objets situés sur le ou les calques sélectionnés, y compris Ligne, LWPolyline, Polyline, Spline, Ellipse, Cercle et Arc, seront cotés. Les blocs, leurs sous-objets et les objets tels que le Texte ne sont pas inclus dans le processus de cotation.
Les objets situés entre les points de départ et de fin mais qui se trouvent actuellement en dehors de la zone visible de l'écran (par exemple, parce que vous avez modifié le zoom) ne seront pas sélectionnés.
Une fois le processus de sélection terminé, la ligne de cote continue apparaîtra sur votre écran. Vous pouvez la faire glisser avec la souris, la placer à l'emplacement souhaité et terminer le processus par un clic gauche.
La fonction effectue la cotation en utilisant le Calque courant et le Style de cote courant. Elle n'interfère en aucune façon avec le Style de cote ou la configuration des Calques de l'utilisateur et ne modifie aucun paramètre d'AutoCAD.
Après avoir sélectionné les points de Départ et de Fin, si vous terminez l'ajout/suppression d'objets (Calques) au jeu de sélection et que le jeu de sélection est vide, la fonction s'interrompt avec un message d'erreur.
Puisqu'au moins une cote est requise pour créer une ligne de cote continue, et qu'une cote nécessite au moins deux points, si la ligne virtuelle formée par les points de Départ et de Fin a moins de deux points d'intersection avec les objets sélectionnés, la fonction s'interrompt avec un message d'erreur.
Nom de la commande : dimint
Bonne utilisation, et je souhaite à tous un flux de travail facile...
Le fichier DimInt.fas (DimInt.rar) a été rechargé. 31 mai 2016
Ce sujet est discuté ici : Sujet du Forum – Fonction AutoLISP pour l'ajout de cotes intérieures aux plans de dessin

Auteur: cizimokulu.com
Description: Fichier d'application AutoLISP au format LSP.
Tag: Cotation intérieure automatique de plans, création automatique de cotes

Télécharger