Salut,
Un début de code d'après ton DWG exemple
Code:
(defun c:Att_Constant2Layer ( / AcDoc ss)
(vl-load-com)
(if (ssget "_X" '((0 . "INSERT")))
(progn
(setq
AcDoc (vla-get-activedocument (vlax-get-acad-object))
ss (vla-get-activeselectionset AcDoc)
)
(vlax-for blk ss
(if (eq (vla-get-HasAttributes blk) :vlax-true)
(foreach n (vlax-invoke blk 'GetConstantAttributes)
(cond
((eq (vla-get-TextString n) "VEN")
(vla-add (vla-get-layers AcDoc) "VEN")
(vla-put-Layer blk "VEN")
)
)
)
)
)
)
)
(prin1)
)
NB: Tu as aussi un AUTRE attribut constant MAIS invisible