Sepultur@

bonjour, voici mon problème, ma société a demande a un sous-traitant de nous créer des plans, ils nous ont fait un bon nombre de plans, tous avec de belles erreurs, qui sont la base du dessin. les blocs demandes sont forces dans tous les sens du terme, j'ai trouver cela http://cadxp.com/topic/11038-lisps-de-patrick-35/ malheureusement cela ne fonctionne pas sur AutoCAD 2017 mes souci sont ceux la : 1- les blocs sont forces dans un calque autre que le 0 2- dans l' "éditeur de bloc" , la propriété de chaque attribut le calque n'est pas le 0 3- dans l'onglet "objet" a la modification de chaque attribut le calque n'est pas le 0 4- les blocs ne sont pas centrés (mais comparer au reste cela n'est qu'un détail) j'ai fais cette action et cela a fonctionne sur une partie http://cadxp.com/topic/35990-comment-mettre-tous-les-elements-de-plusieurs-blocs-dans-le-calque-0/ il me reste le problème numéro 3, très embêtant a 18 attributs par bloc. je ne sais malheureusement pas réaliser de Lisp qui a mon avis serait la seule solution ici. merci d'avance de votre aide éventuelle. cordialement PJ : https://drive.google.com/file/d/1FyjuPtg_sc6kM6sDAkTCXG6r2RVTX4Dz/view?usp=sharing

ok c'est pour cela que cela ne fonctionne pas pour moi au boulot on est en 2011, mais avec PEDIT cela fonctionne bien. merci

une fois toutes les polylignes jointe auriez vous une idée pour les coupées au point d'épissures comme suit exemple d'épisure merci par avance

ok pas de souci désoler mais je n'etais pas revenu sur ce forum depuis 2014.... mais merci pour l'info

je pense avoir trouver, cela patine toujours dans la commande PEDIT sélectionner tous et faire simplement JOINDRE merci pour vos aides. bonne et heureuse année

bonjour, oui c'est aussi ce que je voulais faire mais malheureusement la commande joindre, on ne peux sélectionner qu'un seul objet, ps je suis sous la version 2011 merci

oui merci, c'est effectivement ce que je viens de tester juste avant de lire vôtre réponse et je me suis aperçu que cela fonctionnais j'aurais une autre question dans la même relation maintenant je me retrouve avec beaucoup de polyligne les une en face des autres, auriez vous une solution pour les joindre toutes en même temps, parce que j'ai bien essayer le même genre de solution mais là, il ne vaux pas. merci par avance.

bonjour, je cherche une solution pour pouvoir transformer l'intégralité des ligne d'un synoptique en polyligne parce que je doit le modifier. parce que transformer ligne par ligne je sais comment faire mais c'est extrêmement long, je n'ais pas le temps. d'où le fait de venir ici pour savoir si quelqu'un aurais une idée peux être faire un genre de LISP. merci par avance. ps impossible de joindre un fichier

bon je ne pourrais tester que chez moi ce soir, au boulot je suis sur la 2013 LT malheureusement

merci je teste cela et je reviens vers vous

oui fois 300

ok

salut, oui j'ai poster le meme message sur deux forum, parce que au boulot on est sous 2013 LT, mais chez moi j'ai la 2011 complète et oui les bonne couleur sont forcé sur des calque blanc, si je passe tout en du calque, je perd toutes mes couleurs. j'ai entre 28 et 30 calques par plans. si vous avez une solution en LISP, j’emmène mes plans chez moi et je fait cela. merci d'avance.

bonjour, à mon boulot, nous avons récupérer les cadastres de la villes, chaque objet a leur couleur bien a eux, très pratique, mais aussi le contraire pour d'autre choses.malheureusement la ville a très bien fait leur travail puisque tous les calques sont blanc avec chacun une couleur forcer. Je voulais savoir s'il n'y aurais pas un moyen simple pour récupérer la couleur forcer et la déposer sur la couleur des calques. je me vois pas faire cela à la main, vu qu'il y a plus de 300 plans. merci par avances. cordialement

bonjour, à mon boulot, nous avons récupérer les cadastres de la villes, chaque objet a leur couleur bien a eux, très pratique, mais aussi le contraire pour d'autre choses.malheureusement la ville a très bien fait leur travail puisque tous les calques sont blanc avec chacun une couleur forcer. Je voulais savoir s'il n'y aurais pas un moyen simple pour récupérer la couleur forcer et la déposer sur la couleur des calques. je me vois pas faire cela à la main, vu qu'il y a plus de 300 plans. merci par avances. cordialement

Je ne comprend pas desoler, mais ton lisp ne fait rien chez moi. voici celui qui nous sort les nombre de logements de tout les bloc compris dans une polyligne fermer. ;; POCHAGE FE ;; Affiche la somme des logements contenus dans la polyligne sélectionnée (defun c:POCHAGE (/ *error* GetPlineVertices GetAttVal pl elst ss n name val lst grp ) (vl-load-com) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "\nErreur: " msg)) ) (princ) ) (defun GetPlineVertices (pl / n lst) (repeat (setq n (fix (vlax-curve-getEndParam pl))) (setq lst (cons (vlax-curve-getPointAtParam pl (setq n (1- n))) lst) ) ) ) (defun GetAttVal (lst tag) (cond ((null lst) nil) ((= (vla-get-TagString (car lst)) tag) (vla-get-TextString (car lst)) ) (T (GetAttVal (cdr lst) tag)) ) ) (defun Distinct (lst) (if lst (cons (car lst) (Distinct (vl-remove (car lst) lst))) ) ) (sssetfirst nil nil) (setq cnt 0) (if (and (setq pl (car (entsel "\nSélectionnez une polyligne: "))) (setq elst (entget pl)) (= (cdr (assoc 0 elst)) "LWPOLYLINE") ) (progn (not (vla-ZoomExtents (vlax-get-acad-object))) (setq ss (ssget "_WP" (mapcar (function (lambda (p) (trans p 0 1)) ) (Distinct (GetPlineVertices pl)) ) '((0 . "INSERT") (2 . "BLOC_BAL_V5")) ) ) (not (vla-ZoomPrevious (vlax-get-acad-object))) (if ss (progn (vlax-for blk (setq ss (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object) ) ) ) (setq name (vla-get-Name blk)) (if (setq val (GetAttVal (vlax-invoke blk 'GetAttributes) "11_BAL" ) ) (setq lst (if (setq grp (assoc name lst)) (subst (cons name (+ (cdr grp) (atoi val))) grp lst ) (cons (cons name (atoi val)) lst) ) ) ) ) (vla-delete ss) ) ) (alert (strcat (apply 'strcat (mapcar (function (lambda (p) (strcat (car p) " : " (itoa (cdr p)) "\n") ) ) lst ) ) "\nTotal : " (itoa (apply '+ (mapcar 'cdr lst))) " logements" ) ) ) (princ "\nL'objet sélectionné n'est pas une polyligne couillon!.") ) (princ) ) FEFEFEFEFEFEFEFEFEFEFEFEF ce que je recherche a faire c'est le même résultat que cela mais sélectionnable et pour les adresses et non les logements. je ne sais pas comment expliquer déferrement, je réalise des tableau ou je réécrit chaque adresse en indiquant le numéro de parcelle en face, donc j'aimerais sélectionner la parcelle (polyligne) et que le lisp me donne les adresses concerner. voiou

pour arriver a ce résultat si, c'est beaucoup plus simple de passer par MAP=>OUTILS=>EXPORTER de la tu sélectionne vraiment tous ce que tu veux exporter mais, moi je ne veux pas tout exporter, j'ai déjà insérer mais adresse d'une exportation d'un autre fichier. non moi je recherche vraiment a créer un lisp qui me sort une petite fenêtre où je puisse sélectionner les adresses qui ce trouve dans les bloc que je viens d'entourer d'une polyligne fermer. dsl ps : sur le fichier joints, le résultat de notre lisp pour extraire le nombre de logements dans une polyligne fermer. j'aimerais juste la meme chose avec les adresses a la place des logements. malheureusement dans ce lisp ce n'est qu'une visu, on ne peu rien selectionner.....

yep voila un ex-tract de mon plan la j'ai bien plusieurs adresse pour une seul et meme parcelle par exemple la 44 calque magenta => n° parcelle calque cyan => adresse replacer par "acgis" calque vert => adresse replacer par "crocgeo" au centre des parcelles => replacer a la main sur le numéro après traitement. si possible, j'aimerais un lisp qui, lorsque je sectionne plusieurs adresse, cela m'affiche l'adresse attribut 01 merci par avance. cordialement exemple de parcelle.zip

et non pas possible parce que map va me sortir un tableau complet, c'est comme cela que je fait lorsque je veux tout. nous avons deja un LISP pour calculer le nb de BAL(logements) par adresse a l'interrieur d'une polyligne fermer et nous faire un total. la j'aimerais avoir une fenetre du meme genre avec la liste des adresses qui ce trouve dans la polyligne fermeé que je vien de creer autour de me adresse concerner. pour info sur mon fichier j'ai 33524 adresses. cordialement

malheureusement cela dépasse mes compétence, ce serais cool de pouvoir faire cela, mais si quelqu'un arrive a faire ce genre de LISP, pourriez vous me le détailler, que je puisse comprendre comme cela fonctionne, et les futur me les faire moi meme. merci d'avance. nicolas

je suis en version map 2014 complete

oui c'est ça, m'ai effectivement les recuperés pour les recopier dans un tableau excel, ou peux etre extraire ces donnee en TXT comme un attout, je ne sais pas trop

non le problème, c’est que j'ai des ville avec des blocs déjà existant donne par mon client, donc je ne peux pas le changer, tout mes bloque sont identiques mais chacun sont déjà rempli avec l'adresse correspondante avec l'emplacement d'où il est géo-référencer. je recherche a entourer avec une poly-ligne mes adresses concerner et que lorsque je lance mon LISP une fenêtre s'ouvre en me faisant ressortir seulement les adresses, c'est a dire l'attribut 1, sacahant qu'il y en a 26 attributs sur chaque adresses.

Bonjour, je cherche a créer un LISP qui pourrais m'ouvrir une fenêtre sur laquelle je pourrais sélectionner les réponses. En fait j'ai une ville avec toutes ces adresses (BLOC), j'aimerais lorsque j'en sélectionne quelques une (une parcelle), que le LIST m'affiche les différentes adresse. je recherche partout sur le NET et je ne trouve que des personne qui partage leur LISP mais je ne trouve pas de tutoriel pour apprendre a les créer sois même. quelqu'un pourrait-il m'aider ? ci-joint => capture du nom du bloc avec l'attribut que j'aimerais afficher. si quelqu'un m'aide a créer ce LISP, pourriez vous m'expliquer en même temps ? merci par avance. cordialement B.NICOLAS