Classement

(defun massoc (key alist / x nlist) (setq nlist nil) (foreach x alist (if (eq key (car x)) (setq nlist (cons (cdr x) nlist)) ) ) (reverse nlist) ) (defun c:detxref (/ EPOLY PTLIST SS I NOM selxref lxref bl) (command "_.undo" "_group") ;; sélectionner un polyligne fermée ou non (while (not (and (setq EPOLY (car (entsel "\nSelectionner une polyligne : "))) (= (cdr (assoc 0 (entget EPOLY))) "LWPOLYLINE") ) ) ) ;; extraire les sommets de la polyligne (setq PTLIST (massoc 10 (entget EPOLY))) ;; faire un ssget avec ces points (setq ss (ssget "_CP" ;; capture polygone (mapcar '(lambda (x) (trans x 0 1)) PTLIST) ;; en coordonnées locales '((0 . "INSERT")) ;; uniquement les blocs ) ) (setq I 0) (if ss (repeat (sslength ss) (setq NOM (cdr (assoc 2 (entget (ssname ss I))))) (setq I (+ I 1)) (if (= (logand (cdr (assoc 70 (tblsearch "BLOCK" NOM))) 4) 4) ;; on ne garde que les xrefs (setq selxref (cons NOM selxref)) ) ) ) ;; obtenir la liste des xrefs présents dans le fichier (setq Bl (tblnext "BLOCK" T)) (while bl (setq NOM (cdr (assoc 2 BL))) (if (= (logand (cdr (assoc 70 bl)) 4) 4) ;; on ne garde que les xrefs (setq lxref (cons NOM lxref)) ) (setq BL (tblnext "BLOCK")) ) ;; détacher les xref qui ne sont pas dans selxref (foreach nom lxref (if (not (member nom selxref)) (command "_.-XREF" "_d" nom) ) ) (command "_.undo" "_end") (princ) ) je n'ai pas regardé ce que ça donne avec des xrefs imbriqués. Par ailleurs, la sélection se fait par une lwpoly. Si ça doit être autre chose, il faut voir d'utiliser la fonction selobj développée par (gile) Amicalement Vincent

Hello, Je n'ai plus de version antérieure à 2016, et il me semble avoir déjà eu à traiter cela... Mais je ne me souviens plus. En vrac, et sans être trop sûr (désolé), il y avait des variables: - NOUVONGLET - NEWTABMODE - ECRANBIENVENUE A voir ce qu'ils en disent dans l'aide TotoCad 2015 et désactiver ce qui convient. En espérant avoir aidé :huh: Bonne fin de journée.