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

[Maxime85]

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

[lecrabe]

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)

[capde06]

vers excel le mieux a mon avis

menu outils> extraction de donnees

[Maxime85]

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

[lecrabe]

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

[lecrabe]

Hello

 

Rappel : cette vieille routine Lisp PTEXPORT ne traite que :

- Les Points graphiques OU

- Les Polylignes 2D simples (NON Splinees, NON Lissees)

 

lecrabe

[Maxime85]

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

[marcus_tpl]

Bonjour,

 

Etant sous autocad LT 2009 je suis dans impossibilité d'utiliser les programmes Lisp.

Pourriez-vous m'aider dans la création de script ou macro sous excel.

 

d'avance merci

[bryce]

Bonjour,

 

Tu as besoin de faire quoi ? Exporter des coordonnées de points ? De blocs ? :unsure:

 

Je te suggère de tester ScanDXF. ;)

[marcus_tpl]

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 ;)