récupérer les coordonnées

[hsam]

Bonjour,

 

comment convertir en fichier texte les coordonnées d'un ensemble de points appartenant à un seul calque.

merci,

[pbrion]

Bonjour,

En utilisant la commande "Extraction de données" (EXTRACTDONNEES)

[lecrabe]

Hello

 

Ci-apres une VIEILLE routine "PTEXPORT" puisee dans mon stock de 2000 routines ...

 

Qui exporte dans un fichier Texte les Coords des POINTs et aussi les Vertex/Sommets des LWPOLYLINEs !

 

Donc SVP tu ne selectionneras que les POINTs qui te concernent !

 

Bye, lecrabe

 

;; Routine : PTEXPORT  - Chargement par : APPLOAD
;;
;; Export vers un fichier TXT des XYZ des Points graphiques 
;;                         OU des XYZ des Sommets/Vertex de Polylignes 2D simples (NON Splinee, NON Lissee) 
;;
;; Micro-Micro-Modif par Patrice BRAUD pour avoir des ; et non pas des , entre chaque coordonnee XYZ 

; ----------------------------------------------------------------------
;             (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 (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 (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/Vertex Export loaded, type PTEXPORT to run. ")
(princ)

[hsam]

Bonjour,

En utilisant la commande "Extraction de données" (EXTRACTDONNEES)

c'est ce que j'utilise pour extraire les données. Seulement avec cette commande, je n'ai pas la possibilité de choisir le calque qui m'intéresse.

[hsam]

Hello

 

Ci-apres une VIEILLE routine "PTEXPORT" puisee dans mon stock de 2000 routines ...

 

Qui exporte dans un fichier Texte les Coords des POINTs et aussi les Vertex/Sommets des LWPOLYLINEs !

 

Donc SVP tu ne selectionneras que les POINTs qui te concernent !

 

Bye, lecrabe

 

 

merci pour la routine mais je ne sais pas comment (où .?) la lancer

[COME]

Salut,

 

avant de lancer Extracdonnees sélectionne le ou les calques qui t'intéresses puis choisi l'ensemble des points affichés et normalement tu auras ton listing (ou alors je n'ai pas compris ta demande).

[hsam]

Salut,

 

avant de lancer Extracdonnees sélectionne le ou les calques qui t'intéresses puis choisi l'ensemble des points affichés et normalement tu auras ton listing (ou alors je n'ai pas compris ta demande).

tu as bien compris mon problème.J'ai essayé la solution que tu as préconisée en "gelant" les calques qui ne m'intéressent pas. Mais le résultat est le même: il m'exporte l'ensemble des points et pas seulement ceux associés au seul calque qui m'intéresse.

[COME]

Ben là je vois pas, peut-être si tu peux partager ton fichier et en expliquant quel points t'intéressent.

[hsam]

Ben là je vois pas, peut-être si tu peux partager ton fichier et en expliquant quel points t'intéressent.

désolé, je n'ai pas eu la permission de partager le fichier.

[pbrion]

Avec Extraction de données, c'est très facile.

Tu sélectionnes un de tes points. Tu fais un clic droit et la commande "Sélection similaire".

Tu lances ensuite la commande d'extraction et dans la fenêtre "Source de données", tu coches l'option "Sélectionner les objets dans le dessin actif", tu cliques sur l'icone de sélection et tape P au clavier (Pour sélection précédente).