Aller au contenu

Extraire les coordonnées des points sur Autocad vers Excel ou Fichier Texte


Maxime85

Messages recommandés

Bonsoir ,

 

J ai un souci , j' aimerais savoir comment extraire les coordonnées XYZ des points crées dans Autocad

 

vers Excel ou un Fichier Texte

 

http://img4.hostingpics.net/pics/678492cad.jpg

 

peu t'être avce un Lisp ???

 

Mais la je n ai aucune idée

 

Cordialement

En devenant sincère, l'amour devient généreux.

 

Autocad Map 2015 Covadis V16  et Mensura V9

MacBook Pro 2019

Win10 64 bits

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Tu trouveras sur ce forum differentes solutions plus ou moins sophistiquees

mais lorsque je desire un Export simple des Points AutoCAD ou des Sommets/Vertex de Polylignes simples

j'utilise ce bon vieux programme Lisp ...

 

Chargement par APPLOAD

Commande au clavier : PTEXPORT

 

lecrabe

 


; ----------------------------------------------------------------------
;             (Export LWPOLYLINE Vertices & Points to File)
;            Copyright (C) 2000 DotSoft, All Rights Reserved
;                   Website: http://www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER:  DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose.  All materials are
; to be considered ‘as-is’, and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------

(defun c:ptexport ()
 (setq sset (ssget '((-4 . "<OR")(0 . "POINT")
                     (0 . "LWPOLYLINE")(-4 . "OR>"))))
 (if sset
   (progn
     (setq itm 0 num (sslength sset))
     (setq fn (getfiled "Point Export File" "" "txt" 1))
     (if (/= fn nil)
       (progn
         (setq fh (open fn "w"))
         (while (< itm num)
           (setq hnd (ssname sset itm))
           (setq ent (entget hnd))
           (setq obj (cdr (assoc 0 ent)))
           (cond
             ((= obj "POINT")
               (setq pnt (cdr (assoc 10 ent)))
               (princ (strcat (rtos (car pnt) 2 8) ","
                              (rtos (cadr pnt) 2 8) ","
                              (rtos (caddr pnt) 2 8)) fh)
               (princ "\n" fh)
             )
             ((= obj "LWPOLYLINE")
               (if (= (cdr (assoc 38 ent)) nil)
                 (setq elv 0.0)
                 (setq elv (cdr (assoc 38 ent)))
               )
               (foreach rec ent
                 (if (= (car rec) 10)
                   (progn
                     (setq pnt (cdr rec))
                     (princ (strcat (rtos (car pnt) 2 8) ","
                                    (rtos (cadr pnt) 2 8) ","
                                    (rtos elv 2 8)) fh)
                     (princ "\n" fh)
                   )
                 )
               )
             )
             (t nil)
           )
           (setq itm (1+ itm))
         )
         (close fh)
       )
     )
   )
 )
 (princ)
)

(princ "\nPoint Export loaded, type PTEXPORT to run.")
(princ)

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Merci lecrabe il marche par contre j aimerais savoir si on peu l' impossez l' ordre des points ?

 

Ps Capde06 (:vers excel le mieux a mon avis

menu outils> extraction de donnees) j ai pas trouver cet option dans le menu outils

 

Cordialement

En devenant sincère, l'amour devient généreux.

 

Autocad Map 2015 Covadis V16  et Mensura V9

MacBook Pro 2019

Win10 64 bits

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Puisque le programme Lisp fonctionne, tu as bien une vraie version d'AutoCAD (AutoCAD, MAP, CIVIL, MEP, ACA, Electrical, etc) et non pas un AutoCAD LT, tu as forcement l'outil d'extraction de donnees !

 

SVP tu tapes au clavier : _dataextraction ou _DATAEXTRACTION

 

C la commande clavier qui marche avec un AutoCAD 2009

et je pense pas que le nom de la commande etait different pour un AutoCAD 2008

 

Sinon pour la vieille routine Lisp, je pense que les Points sont extraits dans l'ordre de selection (non verifie)

ce qui n'est pas tres pratique surtout si tu as des dizaines/centaines/etc de points a extraire !

 

C pourquoi beaucoup de gens exigent un Bloc/Symbole avec 1/2 attribut(s) :

NO_POINT ou NO_MATRICULE

ALTITUDE ou NIVEAU_Z

 

Ainsi aucun souci de selection ou d'ordre, car on extrait le No du Point (ou Matricule) ...

 

Pour resoudre ton probleme, il faudrait un developpement specifique qui aille chercher en automatique le Texte (NO_POINT) dans un certain rayon autour du Point en esperant ne pas se tromper lorsque N points (donc N textes) sont proches !!

 

lecrabe

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Bonjour Lecrabe ,

 

Merci une fois de plus effectivement quand je sélectionne les points un par un avec un ordre bien défini ( selon moi).

 

Les points dans le fichier Texte sont dans l' ordre certe quand on a plusieurs points ça devient une usine a gaz mais

 

bon la ça va déja .

 

Cordialement

En devenant sincère, l'amour devient généreux.

 

Autocad Map 2015 Covadis V16  et Mensura V9

MacBook Pro 2019

Win10 64 bits

Lien vers le commentaire
Partager sur d’autres sites

  • 2 mois après...

Bonjour bryce ,

merci pour ta réponse.

 

En fait ce que j'aimerais c'est faire un script ou marcro dans ecel pour récupérer les coordonnées des points et si possible mais ca se serra plus tard récupérer le type de ligne, cercle, demi-cercle ...

 

 

Je regarde déja avec ton programme ;)

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité