coordonnées polyligne vers excel

[valtop]

Je cherche un lisp ou autres fonctions pouvant transférer les coordonnées XYZ d'une polyligne vers un tableau excel. D'avance merci

[Bred]

Salut et bienvenue !

 

Un petit truc rapidement fait, à tester.

Vu que tu parles de coordonnée sen Z je pense que tu à des polylignes dites "3D", donc tu ne peux que sélectionner celles-ci.

Le fichier créé est un .csv transposable en .xls

 

charger et taper "test"

(comme d'hab, une routine piqué à (gile) : lst2mat - merci)

 

(defun c:test (/ COORDS F NOMFICHIER SEL X)
 (defun lst2mat (lst n)
 (if (and lst (zerop (rem (length lst) n)))
   (cons (sublst lst 1 n)
  (lst2mat (sublst lst (1+ n) (- (length lst) n)) n)
  )
   )
)  
 (setq sel nil
coords nil)

 (while (not sel)
   (setq sel (ssget '((0 . "POLYLINE")))))
 (repeat (setq x (sslength sel))   
   (setq coords
   (append (list (lst2mat (safearray-value
	       (vlax-variant-value
		 (vla-get-Coordinates (vlax-ename->vla-object (ssname sel (setq x (1- x))))))) 3)) coords))
   )   
 
 (setq nomfichier (getfiled "Nom du fichier Exportation"
		    (strcat (getvar "dwgprefix")
			    (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)) " "
			    (menucmd "M=$(edtime,$(getvar,date),DD-MO-YYYY)"))"csv" 1))
 (setq f (open nomfichier "w"))
 (repeat (setq x (length coords))
   (princ "\n" f)
   (foreach n (nth (setq x (1- x)) coords)
     (foreach o n (princ o f) (princ ";" f))
     (princ "\n" f)
     )
   )
 (close f)
(princ)
)