tableau xyz a partir de blocs point

[catoche]

Bonjour à tous,

 

Soyez indulgent c'est ma première discussions.

Je cherche une méthode simple pour créer un tableau de cordonnées à 4 colonnes: N°point,X,Y,Z avec une entête : TABLEAU DE COORDONNES;

Tous cela a partir de bloc point.

Merci de vos réponses.

 

PS: Je n'y connais rien en lisp.

[lili2006]

Bonjour à toutes et tous,

 

Bienvenu catoche,

 

Par une extraction de données ? (Menu "outils").

[catoche]

Bonjour à toutes et tous,

 

Bienvenu catoche,

 

Par une extraction de données ? (Menu "outils").

 

Non, je ne pense pas car j'ai des fichiers dwg avec des points topo intégré en référence bloc. J'ai essayé avec extraction mais celà me demande d'aller chercher un fichier type "dxe"??? Je ne vois pas comment faire avec cette méthode

Moi je désirerai cliquer à l'écran les points que je désire mettre en tableau.

[lili2006]

Re,

J'ai essayé avec extraction mais celà me demande d'aller chercher un fichier type "dxe"???

 

Il est alors à créér,..

Moi je désirerai cliquer à l'écran les points que je désire mettre en tableau.

 

Après tri sous Excel, par exemple, tu peux coller ton tableau dans ton dwg ou encore le dessiner depuis l'extraction des données,..

[catoche]

Merci pour ton aide.

Catoche.

[lili2006]

Re,

 

Alors, comment as-tu pratiqué ?

[PHILACAD]

j ai ce lisp mais il te fais un fichier texte ou il faut entrer le Z

 

;BC le 06/12/96

;creation d'un fichier ascii matricule x y z

;avec demande du matricule et de l'altitude

;modifié par SP 04/02/98 par PHB 27/08/2003

 

(defun c:PTS2()

 

;(command "resol" "in")

;(command "accrobj" "nod")

;(command "modifvar" "pickbox" 2)

;(command "ouvertur" 5)

(command "scu" "g")

(terpri)

(terpri)

(setq f (getfiled "Fichier à écrire (voir si style ARIAL existant hauteur egal 1??): "(strcat (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3)) "txt") "txt" 37))

(setq n 0)

(setq a (open f "a"))

(terpri)

(terpri)

(initget 16)

 

(while (setq p (getpoint "Choix d'un Point : "))

(setq x (rtos (car p) 2 3))

(setq y (rtos (cadr p) 2 3))

(setq z (rtos (caddr p) 2 3))

;suffixe possible (setq m "CAD.")

(setq n (1+ n))

(setq n1 (rtos n 2 0))

(setq o " ")

(setq qy " ")

(setq qz " ")

(setq r (getstring" puis entrez son altitude : "))

(setq k (strcat "Numéro du point <" n1 "> : "))

(setq n2 (getreal k))

(if (= n2 nil) (setq n1 (rtos n 2 0)) (setq n1 (rtos n2 2 0) n n2))

(setq l (strcat ""n1 o x qy y qz r ))

(write-line l a)

(initget 16)

(command "calque" "n" "num" "co" "5" "num" "e" "num" "")

(command "texte" "style" "arial" p "0.7" n1)

(command "point" p)

)

 

(close a)

;(command "accrobj" "auc")

;(command "modifvar" "pickbox" 3)

)