Modification LISP Export Result

[helas]

Bonjour,

Je dispose d'un lsp qui affiche les résultats de la fonction dans la console je souhaite que ces résultats soit également enregistrer en format CSV (calque + longueurs)
J'ai pourtant essayé mais sans résultat.
 

(defun c:tpo(/ ent ele lst sel res tot filtre)
 (setq filtre 'Layer) ; Constantwidth pour les épaisseurs, Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes
 (and (ssget (list (cons 0 "*POLYLINE")))
   (progn
     (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
(if (setq ele (assoc (vlax-get ent filtre) lst))
  (setq lst (subst (list (car ele) (cons (vla-get-length ent) (cadr ele))) ele lst))
  (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-length ent))) lst))
)
     )
     (vla-delete sel)
     (setq tot 0)
     (mapcar '(lambda(x)
	(setq tot (+ tot (setq res (apply '+ (cadr x)))))
	(princ "\nTotal polyligne(s) type ")
	(princ filtre)
	(prin " --> ")
	(princ (car x))
	(princ (strcat " : " (rtos res)))
      )
      (vl-sort lst '(lambda(a B)(< (car a) (car B))))
     )
     (princ (strcat "\nTotal : " (rtos tot)))
   )
 )
 (princ)
)

Merci d'avance et bonne journée.

PS : Utilisation sur ZWCad

Cdt

[DenisHen]

Salut helas.
Je te propose ceci, mais je n'ai rien pour tester :

(defun c:tpo (/ ent ele lst sel res tot filtre)
  (setq Fichier (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))
  (setq Fichier (strcat (getvar "dwgprefix") Fichier ".txt"))
  (setq FichierEcrit (open Fichier "a"))
  (write-line "Total polyligne(s) type" FichierEcrit)
  (setq filtre 'Layer) ; Constantwidth pour les épaisseurs, Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes
  (and (ssget (list (cons 0 "*POLYLINE")))
       (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
                (if (setq ele (assoc (vlax-get ent filtre) lst))
                  (setq lst (subst (list (car ele) (cons (vla-get-length ent) (cadr ele))) ele lst))
                  (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-length ent))) lst))
                ) ;_ Fin de if
              ) ;_ Fin de vlax-for
              (vla-delete sel)
              (setq tot 0)
              (mapcar '(lambda (x)
                         (setq tot (+ tot (setq res (apply '+ (cadr x)))))
                         (princ "\nTotal polyligne(s) type ")
                         (princ filtre)
                         (prin " --> ")
                         (princ (car x))
                         (princ (strcat " : " (rtos res)))
                         (write-line (strcat "Filtre --> " (car x) " : " (rtos res)) FichierEcrit)
                       ) ;_ Fin de lambda
                      (vl-sort lst '(lambda (a B) (< (car a) (car B))))
              ) ;_ Fin de mapcar
              (princ (strcat "\nTotal : " (rtos tot)))
              (write-line (strcat "Total : " (rtos tot)) FichierEcrit)
       ) ;_ Fin de progn
  ) ;_ Fin de and
  (close FichierEcrit)
  (princ)
) ;_ Fin de defun