Liste des calques

[pascal19]

Bonjour

 

Je crois bien avoir déja vu passer quelque chose de ce genre

 

Existe-t-il un programme qui permet d'exporter la liste des calques d'un plan vers excel?

 

D'avance merci

 

[(gile)]

Salut

 

Un calque par rangée ?

 

(defun c:lay2Xl (/ filename file layer)
 (if (setq filename (getfiled "Créer un fichier Excel" "" "xls" 1))
   (progn
     (setq file (open filename "w"))
     (while (setq layer (tblnext "LAYER" (not layer)))
(write-line (cdr (assoc 2 layer)) file)
     )
     (close file)
   )
 )
 (princ)
)

 

ou un calque par colonne ?

 

(defun c:lay2Xl (/ filename file layer str)
 (if (setq filename (getfiled "Créer un fichier Excel" "" "xls" 1))
   (progn
     (setq str "")
     (while (setq layer (tblnext "LAYER" (not layer)))
(setq str (strcat str (cdr (assoc 2 layer)) "\t"))
     )
     (setq file (open filename "w"))
     (write-line str file)
     (close file)
   )
 )
 (princ)
)

[pascal19]

Merci Gile pour ta solution

 

Sinon pour ceux que ça interresse un de mes collègues a trouvé

un fichier EXCEL (listeinfoacad-sigecom-v1.53.xls) contenant

une macro permetant d'importer une liste de calque (avec leurs caractéristiques)

d'autocad vers excel ou d'exporter une liste d'excel vers autocad

ça marche trés bien , il a téléchargé cet utilitaire sur vbfrance.com.

 

a+