Classement

Salut Dommage d'utiliser le code dxf 8 alors que tu as sous la main la propriété layer. En plus, ce que demande kinato c'est d'ajouter un préfix au nom du bloc qui deviendra le nom du calque ;; Place tout les Xref du fichier dans le calque de leur nom de respectif (defun c:layXref (/ ent obj ss) (vl-load-com) (ssget "_X" '((0 . "INSERT"))) (vlax-for obj (setq ss (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object)))) (and (vlax-property-available-p obj 'Path) (setq ent (vla-get-name obj)) (progn (or (tblsearch "layer" (setq ent (strcat "X-" ent))) (vla-add (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object))) ent) ) (vla-put-layer obj ent) ) ) ) (if ss (vla-delete ss) ) (princ) ) @+

Bonjour, Il faut décocher "Lier les références externes"