Classement

Hello @TUAU Pour completer la proposition de notre Grand Maitre @(gile) Je te propose un Type de Ligne "SENS_ISOCP" qui dessine une Fleche dans le sens de construction des Polylignes, Lignes, Arcs, etc ... ;; ;; Pour indiquer le sens de Saisie des Lignes / Polylignes / etc ... ;; ;; Ainsi avec ce type de ligne "SENS_ISOCP", on visualise le sens de Dessin / Numerisation des Polylignes ! ;; ;; C est tres interessant pour les Reseaux Gravitaires ;; *SENS_ISOCP, SENS_ISOCP --->--->--->--- A,5,[">",ISOCP,S=2,X=-0.5,Y=-0.700],5 ATTENTION : tu dois avoir un Style de Texte nomme imperativement "ISOCP" qui utilise par exemple "ISOCP.SHX" dans ton DWG ! Ne pas hesiter a augmenter la Propriete "Echelle de type de ligne local" ... RAPPEL : le fait d utiliser une Police SHX et non pas TTF dans les Types de Ligne permet d avoir des milliers d objets avec ce genre de Type de Ligne ! Bye, lecrabe

Le problème ne vient pas du code LISP mais des limites d'AutoCAD quand on veut traiter avec un LISP plus de 2000 polylignes d'un seul coup en insérant un bloc sur chaque segment quand certaines polylignes ont plusieurs milliers de sommets et, dans le même temps, de détecter des ilots. Je te propose d'alléger un peu la tâche en séparant les deux traitement et en remplaçant l'insertion de dizaines de milliers de flèches par un simple changement de couleur. Edit : La détection de polylignes "intérieures" provoque une "erreur matérielle" : "limite de la pile interne atteinte (simulation)" avec certaines polylignes ayant "trop de sommets". ;; Met en couleur orange (30) les polylignes fermées en sens anti-horaire. (defun c:SENSPOLY (/ ss i pline) (if (setq ss (ssget '((0 . "LWPOLYLINE") (-4 . "&") (70 . 1)))) (progn (repeat (setq i (sslength ss)) (setq pline (ssname ss (setq i (1- i)))) (if (not (IsClockwise pline)) (setpropertyvalue pline "Color" "30"); couleur orange "30" ) ) ) ) (princ) )

Bonjour, il y a des avantages/inconvénients aux 2 solutions. Lorsque j'étais au support Geomedia pour choisir l'un ou l'autre mode de licence je posais plusieurs questions: Nombre d'utilisateurs très régulier de Covadis? Nombre d'utilisateurs plus occasionnel de Covadis? Nombre de licences disponibles? Y a t il du télétravail? En fonction des réponses plusieurs options possibles : un mix de licences mono et reseau en fonction du rapport d'utilisation occasionnel / regulier des licences ou que du reseau ( gestion automatique de la libération de la licence au bout de 300 secondes d'inutilisation de fonctions Covadis ou fermeture d'AutoCAD ) cette option est idéale pour moi pour les utilisateurs nombreux mais pas 24 heures sur 24 sur le logiciel... ou que du Mono et la encore il y a 2 options 1: des EID de licences identique ( permet de faire du "pseudo" reseau il faut penser à suspendre la licence quand plus besoin, et attention le simple faite de relancer AutoCAD récupère la licence si elle est dispo ) 2: des EID de licences différentes cela revient au mode clé Physique mono, chaque utilisateur ne viendra associer son empreinte machine uniquement à son EID. Le choix du type de licences est un sujet qu il faut bien étudier au départ mais, si rien n'a changé, il est possible de passer d'un mode de licence à un autre gratuitement le prix des licences étant le même entre mono ou réseau.

Salut, ;; ;; https://gilecad.azurewebsites.net/Lisp.aspx ;; ;; https://gilecad.azurewebsites.net/LISP/Dialog.lsp ;; Pour faire comme un de mes mentor, je regroupe ici des LISP éparpillés un peu partout. Pour beaucoup, ces LISP ont été publiés sur le site, certains étaient des réponses à des demandes, beaucoup y ont évolué à la suite de tests et de suggestions, merci à tous ceux qui ont participé. Pour l'utilisation des LISP (chargement, lancement) voir cette page Certains semblent avoir des soucis pour décompresser les fichiers ZIP, je leur recommande d'utiliser : 7-zip (gratuit). 3dPolyFillet : "Raccord" sur les polylignes 3D (arc constitué des segments jointifis). commande : 3dpolyfillet Arc2Seg : Transforme des arcs et cercles en polygones et les arcs des polylignes en successions de segments droits. Les Xdatas (ainsi que les données d'objet MAP) sont conservées. commande : arc2seg Ac_ob&Rac_ob : ACcroche ou RACcorde l'extémité des objets (ligne, polyligne spline) située en deçà d'une distances spécifiée au centre, point d'insertion, ou point du cercle bloc point sélectionné. commandes : ac_ob (accrocher) rac_ob (raccorder) lien : Routine pour accrocher les fils AddVtx&DelVtx : Ajoute ou supprime des sommets à une polyligne (lw, 2D ou 3D). commandes : addvtx (ajouter) delvtx (supprimer) liens : Ajouter un sommet sur une polyligne, Enlever des sommets sur une Lwpolyligne Anse de panier : crée une polyligne en anse de panier. commande : adp Arcedit : Permet de changer les angle de départ et de fin d'un arc (cercle ou ellipse) ou de transformer un cercle en arc. commande : arcedit Arcs_spec : Crée des arcs d'après le périmètre de l'arc. commandes : arc_dcl (départ, centre, longueur), arc_cdl (centre, départ, longueur), arc_del (départ, fin, longueur) Bbox : Crée une polyligne ou polyligne 3D figurant la "bounding box" de l'objet par rapport au SCU courant. commande : bbox lien : Boundingbox Bissectrice : Crée une ligne sur la bissectrice de deux segments rectilignes. commande : bissectrice Cadre&Masque : Crée un cadre ou un masque sur les texte et mtextes sélectionnés. commandes : ct pour un cadre mt pour un masque lien : Cadre/Masque pour textes et mtextes CleanPoly : Supprime les sommets superposé d'une polyligne. commande : clean_poly lien : Poignées superposées Curve2Pipe : Extrude un anneau sur les chemin spécifés. commande : curve2pipe ou c2p Dist : Retourne à la ligne de commande la distance entre 2 points ou celle de l'objet sélectionné (plus la longueur du segment pour les polylignes). commande : dist lien : Un DISTANCE amélioré Diviser_Mesurer_3D : Comme les commandes diviser et mesurer avec des options supplémentaires. commande : div3d (diviser) et mes3d (mesurer) lien : Commande Diviser... Edit_bloc : (version 3.5) Modifie les propriétes des entités composants les blocs spécifiés. Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "Lisez moi". commandes : edit_bloc et edit_bloc_rep (tous les DWG d'un répertoire) liens : Modifier des blocs ; Modifier des blocs version 2 ; Edit_bloc version 3 : Sélectionner le contenu de calques "non purgeables" Fusion : Crée une polyligne sur le contour de chaque gorupe de polylignes fermées et contiguës sélectionnées. commande : fusion ou upl lien : Fusion de plusieurs polylignes, Polyligne englobante. Gileselscu : Active la fenêtre de sélection parallèle au SCU courant pour les commandes : copier, déplacer, échelle, effacer, miroir, rotation et 3drotation. commande : gileselscu lien : Sélection suivant SCU Helicoide : Crée une hélicoïde (succession d'arcs elliptiques) Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "Lisez moi". commande : helicoide lien : Solides 3D en colimaçon Increment version 2.0 : Incrémenter une valeur numérique, alphabétique ou alphanumérique dans une chaîne de caractères (texte ou attribut) commandes : inctxt (insertions multiples d'un texte) ; incatt (insertions multiples d'un bloc avec attribut) ; incsuf (incrémentation du suffixe des textes sélectionnés) ; incsel (incrémentation d'une valeur dans les textes sélectionnés) ; incadd (ajout d'une chaîne avec incrément) ; incr (choisir une de ces commandes) liens : Incrémenter les suffixes ; Lisp Numeros...besoin d'une correction. Ins3d : (version 1.1) Insère un bloc sur le plan spécifié par 3 points. commande : ins3d InsTopo : Lit un fichier ascii (txt,csv...) contenant des points topo et insère des points et/ ou des blocs avec attributs. commande : instopo lien : Importer des points depuis un fichier Join3dPoly : Joint les objets sélectionné en une polyligne 3D. commande : join3dpoly Long_line : Retourne dans la fenêtre de texte la longueur de ligne et polyligne du calque sélectionné (possibilité d'enregistrer en XLS) commande : long_line Long_objt : Modifie la longueur totale d'un objet en fonction du périmètre de l'objet sélectionné. commande : long_objt Matchset : Rend courantes le propriétés de l'entité sélectionnée qui sont cochées dans la boite dialogue. Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "lisez-moi". commande : matchset lien : 2 outils que j'ai dans la tête Mcopy : Effectue la copie multiple d'une sélection suivant le décalage spécifié par 2 points. commande : mcopy Mediatrice : Crée une ligne sur la médiatrice du segment défini par 2 points. commande : mediatrice Model_hatch : Un LISP de BonusCAD tourné à ma façon. Récupère la définition du modèle de hachure et propose de l'enregistrer. commande : model_hatch lien : Créer fichier PAT depuis une hachure existante MoveAtt : Permet de déplacer les attributs sélectionnés. commande : moveatt lien : Déplavement attribut ; Amélioration du lisp Move-Att.lsp MsFreeze : Gèle les calques sélectionnés dans une liste ou à l'écran uniquement dans l'onglet objet. commande : msfreeze lien : Geler uniquement en EO ; Geler calques EO mais pas EP Obj2Wipeout : Crée un "Wipeout" à partir de l'objet sélectionné (cercle, ellipse, ou polyligne avec arcs). commande : ob2wo lien : Wipeout avec des arcs Pline_Block : Insère un bloc contenant des attributs dont certains sont des champs dynamiques liés à une polyligne. Le ZIP contient les fichiers source, un fichier compilé VLX, un fichier PDF "Mode d'emploi" et un bloc DWG. commande : pline_block liens : Blocs avec champs dynamiques ; Etiquettes de métré automatique ; Pline_block ; Pline_block (mode d'emploi) ; MAJ Pline_Block PlineOrg : Change le sommet de départ d'une polyligne fermée. Version 2.0 : le sommet peut être choisi n'importe où sur la polyligne. commande : plineorg lien : Changer l'origine d'une polyligne 2D ; départ polyligne PolySegments : Permet de copier ou décaler uniquement certains segments d'une polyligne. commandes : copsegs (copier), ofsegs (décaler) lien : Décaler plusieurs segments de polyligne PolySolid : Permet de créer des "polysolides" avec les versions antérieures à AutoCAD 2007 commande : polysolid lien : Polysolide Res_hel : Crée un réseau hélicoïdal avec les objets sélectionnés. Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "Lisez moi". commande : res_hel liens : Réseau hélicïdal ; Solides 3D en colimaçon ; Réseau polaire avec REF R_pline : Inverse le sens des sommets d'une polyligne. commande : r_pline lien : Inverser les sommets d'une polyligne Soustrac : Effectue une soustraction de solides 3d ou de régions sans les unir les objets (les objet soustraits sont consevé ou supprimés suivant la valeur de la variable DELSUB). commande : soustrac Special_selections : Plusieurs routines pour faire des jeux de sélection suivant les propriétés d'un objet,suivant une fenêtre parallèle au SCU courant ou ou une fenêtre délimitée par un objet. commandes : ssc (suivant la couleur), ssl (suivant le calque), sse (suivant le type d'entité), sstl (suivant le type de ligne), ssatt (suivant la valeur d'un attribut) , sscu (fenêtre parallèle au SCU), ssof (fenêtre définie par un objet), ssoc (capture définie par un objet), inv_sel (inverser la sélection), ssd (suivant les valeurs de paramètres de blocs dynamiques). liens : Sélection de tous les objets d'un calque ; Sélection suivant SCU... ; Sélection rapide de blocs par valeur d'attribut ? ; SELETION BLOC DYNAMIC!!!!!!!! SSFilter : Sélectionne les objets ayant les mêmes propriétés que les entités sélectionnées et qui sont cochées dans la boite dialogue. Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "lisez-moi". commande : ssf SSMatch : ssm sélectionne les objets ayant les mêmes propriétés que l'entité sélectionnée et qui sont cochées dans la boite dialogue ; ssmm permet à l'utilisateur de faire des sélections multiples chacune utilisant le filtre créé à partir d'un objet sélectionné et des propriétés cochées dans la boite de dialogue. Le ZIP contient les fichiers source, un fichier compilé VLX et un fichier "lisez-moi". commandes : ssm et ssmm lien : 2 outils que j'ai dans la tête ; Sélection de tous les objets d'un calque SurfDev : Crée une région représentant le développé d'un maillage 3D ouvert ou fermé à 2 sommets M (surface réglée). commande : surfdev lien : Développer les surfaces développables Tangente : Crée une ligne sur la tangente à la courbe au point spécifié. commande : tap lien : Tangente au point TotalArea (v4.06) : Crée un lien dynamique entre deux attributs du bloc "TotalArea" : étiquette "AREA" pour la somme des aires des objets (arc, cercle, ellipse, polyligne, spline, hachure, région, mpolygon) qui lui sont liés et "NOBJ" pour le nombre d'objets. Le fichier ZIP contient le fichier LISP (TotalArea.lsp), un exemple de bloc (TotalArea.dwg), un fichier d'aide (TotalArea.chm) et un fichier texte (TotalArea.txt). Décompresser le ZIP dans un répertoire du chemin de recherche et charger automatiquement le LISP au démarrage (pour activer les réacteurs) commandes : arebox (boite de dialogue), totalarea (insertion et liaison), areaedit (lier ou détacher des objets), areashow (mettre en surbrillance les objets liés), areaconv (facteur de conversion), areaprec (affichage des décimales). liens : Pline_block+ ; surfaces cumulées, TotalArea & TotalPerim, nouvelles versions. TotalPerim (v4.06) : Crée un lien dynamique entre deux attributs du bloc "TotalPerimeter" : étiquette "PERIM" pour la somme des longueurs des objets (arc, cercle, ellipse, ligne, polylines, région, spline, mpolygon) qui lui sont liés et "NOBJ" pour le nombre d'objets. Le fichier ZIP contient le fichier LISP (TotalPerim.lsp), un exemple de bloc (TotalPerimeter.dwg), un fichier d'aide (TotalAPerim.chm) et un fichier texte (TotalPerim.txt). Décompresser le ZIP dans un répertoire du chemin de recherche et charger automatiquement le LISP au démarrage (pour activer les réacteurs) commandes : perimbox (boite de dialogue), totalperim (insertion et liaison), perimedit (lier ou détacher des objets), perimshow (mettre en surbrillance les objets liés), perimconv (facteur de conversion), areaprec (affichage des décimales). lien : Longueurs cumulées, TotalArea & TotalPerim, nouvelles versions. Trapeze : Crée une polyligne trapézoïdale. Le ZIP contient le fichiers source .LSP, un PDF "Mode d'emploi" et 2 icones. commande : trapeze lien : (mon premier message sur CADxp) Dessiner un trapèze Vues_pavé : Les vues prédéfinies avec le pavé numérique commandes : 0 (Bas), 1 (Isométrie sud Ouest), 2 (Avant), 3 (Isométrie sud Est), 4 (Gauche), 5 (Haut), 6 (Droite), 7 (Isométrie Nord Ouest), 8 (Arrière), 9 (Isométrie Nord Est) Le coin des lispeurs Il ne s'agit plus ici de commandes définies en LISP mais de routines LISP utilisables dans divers programmes. Dialog : Des petites boites de dialogue (sans fichier DCL séparé) pour récupérer des données de la part de l'utilisateur . Routines : getBlock, retourne le nom du bloc entré, sélectionné à l'écran, dans la liste déroulante ou depuis la boite de dialogue AutoCAD de sélection de fichier (getfiled). getLayer, retourne le nom du calque entré, sélectionné à l'écran ou dans la liste déroulante. getLayers, retourne les noms des calques cochés (possibilité de pré-cocher et/ ou de griser des calques) InputBox, retourne la donnée entrée en réponse au message (chaîne) DoubleInputBox, retourne la liste des données entrées en réponse aux messages (chaîne) GetLayouts, retourne la liste des présentations choisies dans la boite de dialogue OptionBox, retourne la (ou les) clé de l'option (ou des options) cochées(s) (chaîne) ListBox, retourne la (ou les) clé de l'option (ou des options) choisie(s) dans une liste (chaîne) Vecteurs&Matrices : Petite librairie de fonctions de calcul vectoriel et matriciel élémentaire et des exemples d'application à la DAO Listes : Petite librairie de fonctions de manipilation des listes Dernière édition : 24/11/2011