Aller au contenu

récupérer les coordonnées


hsam

Messages recommandés

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)

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

COME

 

La vie sans musique est tout simplement une erreur, une fatigue, un exil. »

Friedrich Nietzsche

Lien vers le commentaire
Partager sur d’autres sites

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.

Lien vers le commentaire
Partager sur d’autres sites

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

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é