Exporter les Layers sur le plan Autocad

[bono05]

Bonjour à tous,

 

Je voulais savoir si il était possible avec une routine de créer un tableau des layers, mais de façon à ce qu'il garde toutes ses propriétés (nom du layer, couleur)

 

Par exemple:

 

Layer "test" en couleur bleu.

Layer "gdenn" en couleur verte.

 

Résultat sur mon plan après utilisation du lisp.

 

Test

gdeen

 

Merci de votre aide!!

 

Bono.

[bono05]

Bon j'ai trouvé ça sur la toile.

Pour moi cela me convient donc je partage...

 

 

(defun c:legend ( / df i ln p1 pt sp ) ;; Lee Mac 2011
(if
(and
(setq pt (getpoint "\nSpecify Point for Legend: "))
(setq ln (getdist "\nSpecify Length of Lines: " pt))
(setq pt (trans pt 1 0) i -1
sp (* 1.5 (getvar 'TEXTSIZE))
)
)
(while (setq df (tblnext "LAYER" (null df)))
(entmakex
(list
(cons 0 "LINE")
(cons 8 (cdr (assoc 2 df)))
(cons 6 "ByLayer")
(cons 39 0.0)
(cons 62 256)
(cons 10 (setq p1 (polar pt (* 1.5 pi) (* (setq i (1+ i)) sp))))
(cons 11 (polar p1 0. ln))
(cons 370 -1)
)
)
(entmakex
(list
(cons 0 "TEXT")
(cons 7 (getvar 'TEXTSTYLE))
(cons 8 (cdr (assoc 2 df)))
(cons 6 "ByLayer")
(cons 39 0.0)
(cons 62 256)
(cons 10 p1)
(cons 40 (getvar 'TEXTSIZE))
(cons 1 (cdr (assoc 2 df)))
(cons 370 -1)
)
)
)
)
(princ)
)

[jalna]

Salut

Merci cela peut être utile.