Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Fri 10 November 2017 10:35
- djbnj84
- Participant occasionnel
- Date d'inscription: 14 Dec 2012
- Messages: 30
[ACAD] Export de point XYZ en CSV
Bonjour,
Suite à la certification en géoréférencement, l'auditeur m'a demandé de pouvoir extraire de manière automatique les différents réseaux séparément (enedis, grdf, eau..etc) avec le texte de la profondeur qui est sur le même calque que le réseau concerné à extraire.
J'ai essayé avec l'outil d'extraction de données, mais pour une polyligne 3d impossible d'extraire le x, y, z en chaque point, l'option n'est pas disponible. (alors que pour un bloc oui).
Auriez vous une solution?
Merci d'avance
Hors ligne
#2 Fri 10 November 2017 13:05
- Patrice
- JeSuisCharlie
- Date d'inscription: 16 Sep 2005
- Messages: 4794
Re: [ACAD] Export de point XYZ en CSV
Hello
Une bonne petite Routine VLisp de Gilles va venir a ton secours ...
Voir le LSP joint en bas de mon message ...
Comme d'habitude chargement par APPLOAD et Execution en tapant : 3DPOLY2FILE <Entree>
Merci Gilles, GeoBye, Pat
<<< Debut Fichier >>>
;;
;; Par GC - Liste des points XYZ d'une Polyligne 3D
;;
;; Commande au clavier : 3DPOLY2FILE
;;
;; Enregistrer en fichier .txt et l'ouvrir avec Excel (Separateur = virgule),
;; en .csv si Windows est parametre pour le Separateur de donnees = virgule
;; et en .scr si utilisation comme script pour recopier les Polylignes dans d'autres dessins
;;
;; La précision des points dépend de la valeur de la variable LUPREC.
;; Donc changer eventuellement LUPREC avant ...
;;
(vl-load-com)
(defun c:3DPoly2File (/ path ss file lst)
(if (and
(setq path (getfiled "Creer un fichier" (getvar "DWGPREFIX") "" 1))
(ssget '((0 . "POLYLINE") (-4 . "&") (70 . 8)))
)
(progn
(setq file (open path "w"))
(vlax-for pl (setq ss (vla-get-ActiveSelectionSet
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(write-line "_3DPOLY" file)
(setq lst (vlax-get pl 'Coordinates))
(while lst
(write-line
(strcat (rtos (car lst))
","
(rtos (cadr lst))
","
(rtos (caddr lst))
)
file
)
(setq lst (cdddr lst))
)
(write-line "" file)
)
(close file)
)
)
(princ)
)
<<< Fin Fichier >>>
(Autodesk Expert Elite Team)
Hors ligne
#3 Fri 10 November 2017 17:52
- djbnj84
- Participant occasionnel
- Date d'inscription: 14 Dec 2012
- Messages: 30
Re: [ACAD] Export de point XYZ en CSV
merci pour ce retour rapide
le fichier marche très bien. une dernière chose que dois je modifier pour que sur mon fichier il y ait ecrit x, y et z en haut de chaque colonne de manière automatique?
Hors ligne
#4 Sat 11 November 2017 14:34
- Patrice
- JeSuisCharlie
- Date d'inscription: 16 Sep 2005
- Messages: 4794
Re: [ACAD] Export de point XYZ en CSV
Hello
Voici ce que donne actuellement la Routine LSP :
_3DPoly
-877.428,286.000,0.000
-815.428,258.000,10.000
-751.428,274.000,20.000
-689.428,238.000,40.000
-583.428,278.000,80.000
_3DPoly
499.000,286.000,0.000
561.000,258.000,10.000
625.000,274.000,20.000
687.000,238.000,40.000
793.000,278.000,80.000
Tu peux ajouter manuellement au fichier genere ce que tu veux avec le NOTEPAD.exe ou directement dans Excel !?
Donc "no comprendo " !
Bon WE, GeoBye, Pat
(Autodesk Expert Elite Team)
Hors ligne
#5 Mon 13 November 2017 18:07
- djbnj84
- Participant occasionnel
- Date d'inscription: 14 Dec 2012
- Messages: 30
Re: [ACAD] Export de point XYZ en CSV
quand j'ouvre excel avec mon fichier .csv créé j'aimerai que ca donne ca :
X Y Z
852778.49 6320830.38 33.33
852771.6 6320825.56 33.38
852746.6 6320807.71 33.3
852746.8 6320804.49 33.33
852773.53 6320822.98 33.49
852771.6 6320825.56 33.38
Dernière modification par djbnj84 (Mon 13 November 2017 18:13)
Hors ligne
#6 Mon 13 November 2017 18:15
- Patrice
- JeSuisCharlie
- Date d'inscription: 16 Sep 2005
- Messages: 4794
Re: [ACAD] Export de point XYZ en CSV
Hello
Vu de loin et SANS reflechir et SANS AutoCAD, SVP tu supprimes la ligne (write-line "_3DPOLY" file) de la routine Lisp
et ainsi, il ne te restera plus qu'a ajouter manuellement la ligne de titre X Y Z ...
Bonne Semaine, GeoBye, Pat
(Autodesk Expert Elite Team)
Hors ligne
#7 Mon 13 November 2017 18:21
- djbnj84
- Participant occasionnel
- Date d'inscription: 14 Dec 2012
- Messages: 30
Re: [ACAD] Export de point XYZ en CSV
Merci pour l'aide 
a++++
Hors ligne
