Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 ven. 10 novembre 2017 10:35

djbnj84
Membre
Date d'inscription: 14 déc. 2012
Messages: 13

[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 ven. 10 novembre 2017 13:05

Patrice
JeSuisCharlie
Date d'inscription: 16 sept. 2005
Messages: 3672

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 ven. 10 novembre 2017 17:52

djbnj84
Membre
Date d'inscription: 14 déc. 2012
Messages: 13

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 sam. 11 novembre 2017 14:34

Patrice
JeSuisCharlie
Date d'inscription: 16 sept. 2005
Messages: 3672

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 lun. 13 novembre 2017 18:07

djbnj84
Membre
Date d'inscription: 14 déc. 2012
Messages: 13

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 (lun. 13 novembre 2017 18:13)

Hors ligne

 

#6 lun. 13 novembre 2017 18:15

Patrice
JeSuisCharlie
Date d'inscription: 16 sept. 2005
Messages: 3672

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 lun. 13 novembre 2017 18:21

djbnj84
Membre
Date d'inscription: 14 déc. 2012
Messages: 13

Re: [ACAD] Export de point XYZ en CSV

Merci pour l'aide wink

a++++

Hors ligne

 

Pied de page des forums

Powered by FluxBB

Partagez  |