FIFI19

La routine fonctionne avec "OSMODE O". Cela signifie qu'a chaque ID que tu veux, tu dois faire ton acochage d'objet a chaque sélection. A+. ;Impression d'une identification ID sur le plan XY. ; ========================================================================== (defun c:IDXY (/ pt_acro sblip scmde sosmd sdasz) (menucmd "S=osnapb") (setq sblip (getvar "BLIPMODE") scmde (getvar "CMDECHO") sosmd (getvar "OSMODE") sdasz (getvar "DIMASZ") ) (setvar "BLIPMODE" 0) (setvar "CMDECHO" 0) (setvar "OSMODE" 0) (setvar "DIMASZ" (/ sdasz 3)) (command "_OSNAP" "_non") (setq pt_acro (getpoint (strcat "\nPoint de d�part de la ligne de rappel : ") ) ) (prompt "\nAu point:") ;== V�rifie si le texte a �t� d�fini en hauteur dans "STYLE". (if (= (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0.0) (setq haut (* (getvar "DIMSCALE") (getvar "DIMTXT"))) (setq haut (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE"))))) ) (command "_DIM1" "_LEADER" pt_acro pause "" (strcat "X=" (rtos (car pt_acro) 2 3) ", Y=" (rtos (cadr pt_acro) 2 3) ) ) (setvar "BLIPMODE" sblip) (setvar "CMDECHO" scmde) (setvar "OSMODE" sosmd) (setvar "DIMASZ" sdasz) (menucmd "S=s") (princ) )

Approffondi, comment veux-tu la cotation (baseline, continue, alignée, orthogonal) La PO ouverte ou fermée??

Et si tu fais "_erase" "_all" "_remove" les objets que tu veux garder.