Classement

@AnthonyCAO merci. une belle avancée de pouvoir enfin récupérer ces infos, a défaut d'avoir le retour des DT en DXF comme il est normalement possible de demander avec le Cerfa. Merci aussi à Geomedia pour cette mise à jour que je hâte de pouvoir utiliser.

Ça devrait répondre à ta demande. ;; setBackground ;; Masque d'arrière plan de texte multiligne ;; ;; Arguments ;; handle : handle du mtext ;; fill : type de remplissage 1 ou 3 (1 pour la couleur spécifiée ; 3 pour la couleur de l'arrière plan ;; color : couleur de l'index entre 1 et 255 ;; scale : facteur d'achelle du masque ;; ;; Exemple : (setBackground "2AE9" 1 31 1.2) (defun setBackground (handle fill color scale / l) (setq l (entget (handent handle))) (entmod (append (vl-remove-if (function (lambda (x) (member (car x) '(90 63 421 431 45 441))) ) l ) (list (cons 90 fill) (cons 63 color) (cons 45 scale) ) ) ) )

Hello Et voici la routine "MBlank" tiree de mon stock de 3001 routines ... ; ; This will set the color to match the background ;; (entmod (append dxf_ent '((90 . 3) (63 . 256) (45 . 1.1) (441 . 0)))) La Sante, Bye, lecrabe (triste & fatigue) ;; ;; http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/mtext-background-mask-settings-lisp/td-p/5998702 ;; ;; Routine: MBlank for MTEXT - Add/Modify Background Mask ;; ;; Background Color = 9 ou 61 ou xxx ;; ;; Border = 1.3 ( Default = 1.5 ) ;; (defun c:MBlank ( / js n dxf_ent) (setq js (ssget '((0 . "MTEXT")))) (cond (js (repeat (setq n (sslength js)) (setq dxf_ent (entget (ssname js (setq n (1- n))))) (entmod (append dxf_ent '( (90 . 1) (63 . 61) (45 . 1.3) (441 . 0) ))) ) ) ) )

Salut, Attention, TILEMODE c'est pour l'onglet Objet. Dans une présentation, c'est CVPORT qui renseigne si on est dans l'espace papier (1) ou dans l'espace objet d'une fenêtre (> 1).

Bonjour, (defun ChPropTx (HT COL / ss) (setq ss (ssget "_X" (list '(8 . "TEXTES") ;; le calque '(0 . "*TEXT") ;; les text et mtext (cons 40 HT) ;; la hauteur ) ) ) (if ss (command "_chprop" ss "" "_c" COL "") ) ) (defun c:ChPropTxMain () (ChPropTx 0.15 1) ;; texte de hauteur 0.15 -> couleur 1 (ChPropTx 0.25 2) ;; texte de hauteur 0.25 -> couleur 2 (ChPropTx 0.35 3) ;; texte de hauteur 0.35 -> couleur 3 ;;; etc (princ) ) Le moyen c'est le script ou mieux SuperAutoScript, ou sas pour les intimes. Amicalement Vincent