Classement

Bonjour @FredGL J'ai retrouvé un truc et je l'ai enjolivé avec des cases d'alerte pour donner le résultat. C'est un peu plus "moderne" mais surtout ça prévient l'utilisateur qu'il a demandé la superficie d'une (ou plusieurs) polyligne(s) non close. Testé sur LT 2024 -> fonctionnel Amicalement Polyligne-2d-Addition-Superficies.lsp

Bonjour, Quand tu parle de "cache", je pense que tu fais allusion au "masque d'arrière plan". Pour palier à ton problème, soit lors de la création du MTEXT tu définie ta largeur à 0 (le masque est alors ajusté automatiquement à la longueur du texte), soit après coup tu mets la largeur à 0.0 Comme il n'est pas possible de changer la largeur dans le panneau de propriété, ce petit lisp te permettra de le faire. (defun c:LARG0 (/ ss i text) (if (setq ss (ssget '((0 . "MTEXT")))) (repeat (setq i (sslength ss)) (setq text (ssname ss (setq i (1- i)))) (if (< 0.0 (getpropertyvalue text "Width")) (progn (if (/= (getpropertyvalue text "ColumnType") 0) (setpropertyvalue text "ColumnType" 0) ) (setpropertyvalue text "Width" 0.0) ) ) ) ) (princ) )