vincentp010

Salut, Je ne sais pas ce que tu as comme fichier de départ et ce que tu attend comme surfaces. Mais si ton fichier est un DXF du cadastre et que tu veux les surfaces cadastrales et non graphiques (defun c:SURFACES () (setvar "cmdecho" 0) (command "annuler" "m") (setq input "c:/parcelles.csv") (setq file (open input "w")) (write-line "INSEE;SECTION;PARCELLE;SURFACE" file) (setq sl (ssget "x" (list (cons 8 "1PARCELLE")))) (setq nb1 0) (setq nb (sslength sl)) (while (< nb1 nb) (setq ent (ssname sl nb1)) (setq ent1 (entget ent '("IDU"))) (setq exlist1 (cadadr (assoc -3 ent1))) (setq num (cdr exlist1)) (setq insee (substr num 1 3)) (setq section (substr num 7 2)) (setq parc (substr num 9)) (setq ent2 (entget ent '("SUPF"))) (setq exlist2 (cadadr (assoc -3 ent2))) (setq surf (cdr exlist2)) (setq line (strcat insee ";" section ";" parc ";" surf ";")) (write-line line file) (setq nb1 (+ nb1 1)) ) (close file) )

Bonjour à tous ceux qui ne sont pas en vacances, Quand j'ai installé autocad 2009 il y a un an j'avais réussi à réduire la taille de l'icône d'autocad en haut à gauche. Après un réinitialisation du profil suite à des problème avec covadis l'icône est redevenue grosse, et impossible de retrouver ou changer la taille. Donc si une âme charitable passe par là. http://imagik.fr/uploads/105779

Le tout en une seule ligne : -calque co 9 * d *

Normalement si ton étudiant est bien organisé il doit toujours avoir le DXF envoyé par le cadastre qui lui, est dans le bon système de coordonnés.

Merci j'y vois plus clair maintenant. En parcourant le dictionnaire raçine (namedobjdict) j'ai réussi à retrouver les données. Reste plus qu'à écrire le lisp pour les récupérer automatiquement.

Salut, Es-tu sur que le système est bien "Système RGM04 - Mayotte" ? J'ai essayé avec MAP de transformer de UTM-38S a CC46 et j'obtiens des Y négatifs X=45634010 Y=-131646567

Bonjour, Je viens de découvrir les xdata et je suis en train de plancher sur un lisp pour récupérer ces données. Les xdata que je veux extraire sont créées par Covadis. Certaines sont stockées sur des polylignes, donc là pas de problèmes je les récupères avec (setq ent (entget (car entsel) '("NOMAPPLI"))) Mais d'autres ont l'air d'être dans le dessin et nom sur des objets, j'arrive à les voir en enregistrant mon dessin en DXF : 0 XRECORD 5 1244 102 {ACAD_REACTORS 330 11A6 102 } 330 11A6 100 AcDbXrecord 280 1 1040 1.6 1000 DA1 1070 11121 1000 M. et Mme MICHU 1000 M. DUPONT Michel mais je ne sais pas comment les récupérer en lisp. Ça doit être possible mais je ne voit pas comment.

Un petit exemple de ce qu'a expliqué (gile) : (defun c:aire () (setq ent (car (entsel "Selectionnez l'objet dont vous voulez connaitre l'aire"))) (command "AIRE" "o" ent) (setq aire (getvar "AREA")) (print) (princ "L'aire de l'objet est de ") (princ aire) (princ " m²") (print) )

+1 Il est vrai que pour suivre ses sujets c'est la croix et la bannière.

Bonjour, j'ai la MAP 2009 et je n'ai jamais eux aucun problème avec ce lisp.

Bonjour, j'avais trouvé un lisp sur le forum, mais je n'arrive pas à retrouver la page. Sinon je l'avais refait pour m'entrainer à mes débuts du lisp. (defun c:DXF () (setvar "cmdecho" 0) (command "annuler" "m") (setq ent2 "\tCodes DXF :\n\n") (print) (initget "Sous-entite") (setq ent (entsel "Pointez l'objet à lister ses codes DXF (ou Sous-entite) :")) (if (/= ent nil) (progn (if (= ent "Sous-entite") (setq ent (nentsel "Pointez la Sous-Entité à lister ses codes DXF :")) ) (setq ent (entget (car ent))) (setq nb (length ent)) (setq nb1 0 nb2 0) (while (< nb1 nb) (setq ent1 (nth nb1 ent)) (setq ent1 (vl-prin1-to-string ent1)) (setq ent2 (strcat ent2 ent1 "\n")) (setq nb1 (+ nb1 1)) (setq nb2 (+ nb2 1)) (if (> nb2 31) (progn (alert ent2) (setq ent2 "suite Codes DXF :\n\n" nb2 0))) ) (alert ent2) )) ) EDIT: les smileys dans les balises code c'est enervant [Edité le 5/8/2009 par vincentp010]

Ah oui j'avais pas fais gaffe au LT. Je vais me pencher sur l'histoire des scripts que je n'ai jamais essayé.

Salut, normalement si tu fait la commande PEDIT, autocad doit te demander si tu veux transformer les objets en polylignes. Tu répond oui et après tu fais joindre.

Content d'avoir pu t'aider. Perso j'utilise toujours un lisp avant de me servir des fichiers cadastres (defun c:cadastre () (setvar "cmdecho" 0) (command "annuler" "m") ; change la police du style STANDARD (command "-style" "STANDARD" "swissl.ttf" "0" "1.0001" "0" "N" "N") (command "-calque" "ch" "0" "co" "7" "*" "") (command "zoom" "et") ; hachure les batiments (command "-calque" "ch" "3BATIDUR" "") (setq pl1 (ssget "x" (list (cons 8 "3BATIDUR")))) (if (/= pl1 nil) (progn (setq nb (sslength pl1)) (setq nb1 0) (while (< nb1 nb) (setq ent (ssname pl1 nb1)) (command "hachures" "ansi31" "1" "50" ent "") (setq nb1 (+ nb1 1)) (setq aff (strcat (rtos nb1 5 0) "/" (rtos nb 5 0))) (grtext -2 aff) ) ) ) ; hachure les zones d'eau (command "-calque" "ch" "3EAU" "") (setq pl1 (ssget "x" (list (cons 8 "3EAU")))) (if (/= pl1 nil) (progn (setq nb (sslength pl1)) (setq nb1 0) (while (< nb1 nb) (setq ent (ssname pl1 nb1)) (command "-hachures" "p" "s" "t" "a" "s" ent "" "") (command "changer" "d" "" "p" "co" "4" "") (setq nb1 (+ nb1 1)) (setq aff (strcat (rtos nb1 5 0) "/" (rtos nb 5 0))) (grtext -2 aff) ) ) ) ; change les types de ligne (command "-calque" "ch" "0" "") (command "-calque" "tl" "hidden" "3fiscline" "") (command "-calque" "tl" "cache" "1subdfisc" "") (command "-calque" "tl" "lieudit" "1lieudit" "") (command "-calque" "tl" "section" "1section" "") ; change les epaisseurs de lignes (setq pl (ssget "x" (list (cons 8 "3sncf")))) (if (/= pl nil) (command "pedit" "m" "" pl "la" "0.5" "")) (setq pl (ssget "x" (list (cons 8 "1lieudit")))) (if (/= pl nil) (command "pedit" "m" "" pl "la" "0.25" "")) (setq pl (ssget "x" (list (cons 8 "1section")))) (if (/= pl nil) (command "pedit" "m" "" pl "la" "1" "")) ;effaces des calques (setq pl (ssget "x" (list (cons 8 "1zoncomm")))) (if (/= pl nil) (command "effacer" pl "")) (setq pl (ssget "x" (list (cons 8 "1subdsect")))) (if (/= pl nil) (command "effacer" pl "")) (command "-purger" "to" "*" "n") (command "-purger" "to" "*" "n") (command "-purger" "to" "*" "n") (command "-purger" "to" "*" "n") (command "-purger" "to" "*" "n") (command "zoom" "et") (command "redess") ) Si tu veux t'en servir, à toi de l'adapter à tes besoins.

Salut, Pour moi aussi les fichiers cadastres sont d'une lenteur. Le problème viens du fait que le style de texte STANDARD qui est utilisée fais référence à la police Times new roman, et cette police est lourde à régénérer. Résultat; il suffit juste de changer la police du style STANDARD pour être tranquille :)

Bonjour, je ne sais pas si ça vas plaire à tout le monde mais je suis un amoureux de la ligne de commande Il faut installer pstoedit Et ensuite dans une console windows: "c:\Program Files\pstoedit\pstoedit.exe" lefichier.pdf -f dxf:-polyaslines lefichier.dxf Tout est dans le même calque et le texte devient des lignes mais les couleurs sont gardées

Bonjour, ça marche sur Autocad Map 3D 2009.

Bonjour, en bas de ton premier message clique sur le point d'interrogation :) http://www.vosfichiers.com/images/jdv1243506771z.PNG

Bonjour, cette option m'intéresse, où trouve tu cette case dans les propriétés?

Salut, non testé, mais n'aurais tu pas cette case de cochée ? http://www.vosfichiers.com/images/bwy1239970533t.png

Mince on est déjà en 2011, j'ai du trop dormir cette nuit :)

A d'accord c'est à ce niveau là que ça vas pas. Je ne l'ai jamais utilisé, je trouve qu'il ne gère pas bien les formats de compression et vous êtes 2 à le confirmer. 7-Zip est un très bon logiciel libre de gestion des archives :)

Les fichiers DCL et LSP s'ouvrent avec un éditeur de texte. Pour les utiliser il faut les mettre dans un dossier de support d'autocad ("Outils" "Option" "Fichiers" "Chemin de recherche des fichiers de support") Ensuite il faut charger le lisp : dans la ligne de commande tape (load"ixl") Puis ixl pour le lancer.

Ok Et quel fichier ne peut tu pas ouvrir, le zip ou un des 3 fichiers qu'il contient?

Je l'ai installé il y a 2 mois, il est prenant mais il faut jouer a petites doses: recommencer 100x un niveau car on a pas tout prévu à l'avance pour sortir ça a de quoi énerver à la longue :mad: