Classement

Voici un petit LiSP que je viens de t'écrire... Tu peut le modifier selon tes besoins... (defun c:TestHach () (setq n 0) (if (setq Select (ssget "_X" '((0 . "LWPOLYLINE") (8 . "01323"))) ) ;_ Fin de setq (while (setq ent (ssname Select n)) (setq elst (entget ent) n (1+ n) ) ;_ Fin de setq (if (not (tblsearch "layer" "01323_Hach")) (command "-calque" "n" "01323_Hach" "") (setvar "clayer" "01323_Hach") ) ;_ Fin de if (command "_-hatch" "s" ent "" "") ) ;_ Fin de while ) ;_ Fin de if (if (setq Select (ssget "_X" '((0 . "HATCH")))) ;_ Fin de setq (command "ordretrace" Select "" "ar" "") ) ;_ Fin de if (princ) ) Tu peut aussi faire un foreach pour boucler sur une liste de calque... Denis...