helas

Je pense effectivement pour un projet de départ ca risque d'être compliqué. Cdt

Je comprends parfaitement que ma demande puisse sortir du cadre d’une simple entraide entre membres. Il est vrai que c’est un projet assez technique, et je reconnais qu’il s’apparente à une prestation professionnelle. Je suis ouvert aux suggestions et j’apprécie tout de même les éventuels conseils ou points de départ qui pourraient m’aider à progresser dans cette direction. Merci encore pour votre réponse.

Bonjour à tous, Je suis à la recherche d'une solution pour générer automatiquement des coupes de profils à partir des données issues de fouilles géoréférencées, en utilisant un script Lisp. Voici le contexte et les spécificités de ce que je souhaite réaliser. Contexte et besoin : Dans le cadre de travaux de fouilles, nous avons relevé des réseaux découverts avec des points GPS (coordonnées x, y, z). Mon objectif est de pouvoir tracer une coupe type selon un axe défini dans l’emprise de la fouille, en utilisant ces données géoréférencées pour visualiser précisément le profil des réseaux. Données disponibles : Pour chaque réseau découvert dans l'emprise de fouille, nous disposons des informations suivantes : Points délimitant la zone de fouille (x, y, z) Profondeur de fouille Altitude du sol (GS) pour chaque réseau Diamètre et autres caractéristiques des réseaux Autres si nécessaire ... Attentes spécifiques : Je cherche à savoir s'il serait possible de développer un script Lisp qui permettrait de : Créer une coupe type suivant un axe donné dans l’emprise (à définir). Utiliser les données géoréférencées pour positionner chaque réseau sur la coupe avec précision. Intégrer des attributs spécifiques tels que la profondeur de fouille, la GS des réseaux et le diamètre, pour un rendu complet et lisible. (cotation) Je suis preneur de tout retour d'expérience ou de conseil sur la faisabilité de ce script Lisp En PJ une idée du besoin (avec ici moins d'information, je remarque que ce plan les réseaux est passé en 3D hors nos plan de géoréférencement sont en 2D) EXEMPLE.dwg

Bonjour, Je dispose d'un lsp qui affiche les résultats de la fonction dans la console je souhaite que ces résultats soit également enregistrer en format CSV (calque + longueurs) J'ai pourtant essayé mais sans résultat. (defun c:tpo(/ ent ele lst sel res tot filtre) (setq filtre 'Layer) ; Constantwidth pour les épaisseurs, Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes (and (ssget (list (cons 0 "*POLYLINE"))) (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (if (setq ele (assoc (vlax-get ent filtre) lst)) (setq lst (subst (list (car ele) (cons (vla-get-length ent) (cadr ele))) ele lst)) (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-length ent))) lst)) ) ) (vla-delete sel) (setq tot 0) (mapcar '(lambda(x) (setq tot (+ tot (setq res (apply '+ (cadr x))))) (princ "\nTotal polyligne(s) type ") (princ filtre) (prin " --> ") (princ (car x)) (princ (strcat " : " (rtos res))) ) (vl-sort lst '(lambda(a B)(< (car a) (car B)))) ) (princ (strcat "\nTotal : " (rtos tot))) ) ) (princ) ) Merci d'avance et bonne journée. PS : Utilisation sur ZWCad Cdt

Bonjour, C'est Good merci (j'avais fais les modifications mais surement pas pris en compte sur ZWCAD) Merci à vous tous 😉

Hélas(sans jeux de mot), pareil de plus le but de ma demande c'est pour remplacer MAPTRIM d'AutocadMAP vers Zwcad.

Je viens de tester : Error: chaîne du mode ssget incorrecte

Super ! je viens de tester le cut.lsp avec le dcl c'est ok visiblement ! EDIT : Erratum ca ne marche pas véritablement comme maptrim ca ne coupe pas vraiment tout 😞

Effectivement c'est "juste" pour ça mais ultra pratique. Apres si il existe une autre manière plus ou moins identique je suis preneur. " efface tous les objets à l'intérieur de la limite ou l'extérieur" selon choix.

J'utilise MAPTRIM pour réduire la zone d'une emprise en traçant la nouvelle zone. Une vidéo sera plus facile pour comprendre :

Bonjour Didier, Désolé, je viens de tester et ca ne correspond pas a ce que j'utilise avec MAPTRIM 😕

Bonjour, Merci pour vos retour, je viens de tester pour TRIMOUTER mais effectivement je n'ai visiblement pas le LISP Résult commande : "Express Tools not installed!" Pourtant sur ZwCAD Express tool est bien présent.

Bonjour, Suite à un changement proche de logiciel AutocadMAP > ZWCAD J'ai découvert (pour le moment) l'absence de la fonction MAPTRIM sur ZWCAD que j'utilise régulièrement, possible de reproduire cette commande en LISP ou .... ?? Merci à vous. Bon WE.

Super merci Visiblement j'ai quelques problèmes sur certains points liés à l'élévation sur les polylignes (que je dois forcer en Z = 0) Pourtant j'ai des Z = 50+ qui passent sans problème et d'autres non. Etonnant car on s'occupe pas du Z il me semble. Bises.

Bonjour, Je me permets de revenir vers toi car j'ai toujours le même résultat "\nNumber of block moved successfully : " Est-ce possible de faire une sélection sur les XX non déplacés car j'ai certains bloc qui ne bougent pas. Que je puisse les afficher d'une autres couleurs pour comprendre le problème ou même le déplacer manuellement 😉 Bonne journée

Bonjour, Merci pour cette update ! C'est vraiment intéressant et puissant. J'aimerai biens maitriser et pouvoir me débrouiller pour me confectionner des LISPS mais cela demande du temps et pas mal d'apprentissage ... (VBA également) Encore merci à vous. Bonne journée.

Bonjour Luna, Je viens de réaliser un test et visiblement cela fonctionne à merveille, merci beaucoup pour ton aide et la rapidité de réponse. Bisous.

Bonjour, Je suis à la recherche d'un LSP qui pourrait me permettre soit de déplacer automatiquement plusieurs blocs (mais "le même") sur une polyline (accrocher) au plus "proche" mais source d'erreurs je pense et/ou un LSP qui permet de sélectionner et retrouver les blocs qui ne sont pas accrochés sur la polyligne ainsi de pouvoir les changer manuellement. Je viens de test un LSP trouvé sur un ancien topic mais sans succès et de plus j'ai des paramètres qui me sont inutiles. Voici en screen l'exemple Ici le 500 C doit être accrocher sur la polyligne via le point Ici également : Comme ici ok : Les polylignes sont pour la plupart du temps coupées entre chaque cercle noir que vous pouvez apercevoir. Merci d'avance, bonne journée. lsp.dwg