masque d'arriere plan

[Big666]

bonjour

 

Par défaut le masque d’arrière plan des textes est rouge ,bien sur il est possible de changer la couleur.

mais comment faire pour que la couleur soit blanche par défaut.

merci

[lili2006]

Bonjour à toutes et tous,

 

Tu lances une fenêtre de MText, puis cloc droit => Masque d'AP => Décocher "Utiliser la couleur ...." pour choisir la couleur qui te convient,..Puis Ok !

[Big666]

merci

 

c'est la méthode que j'emploie ,mais par défaut si je veux faire un masque d’arrière plan sur un autre texte ,la couleur et rouge.

comment faire en sorte ,qu'elle soit blanche (par exemple) par défaut?

[philsogood]

hello

ça viendrait pas de ton style de texte par hasard?

Phil

[Julian-Nihon]

Salut,

 

Moi aussi, j'en avais mare d'aller dans le menu clic droit et regler mon masque d'arriere plan. Alors, j'avais cherche, et trouve ceci :

 

(defun C:jd (/)
 (setq BGMWidth 1.05)                                             ;Changer le 1.05 avec la valeur qui vous plait
 (PRINC "\nPick Mtext to change Background Mask & Size. ")
 (setq e1 "y")
 (setq e1 (entsel))                                               ;select entity
 (setq L1 (entget (car e1)))                                      ;gets list of all its info
 (entmod
   (append L1
    (list '(90 . 3) '(63 . 256) (cons 45 BGMWidth))               ;Changer le 256 avec la valeur qui vous plait, 7 pour le blanc
   ) ;_ end of append
 ) ;_ end of entmod
 (terpri)
 (princ)
) ;_ end of defun

 

Voila, tu modifie le 1.05 avec la largeur qui te plait. De meme le 256 avec le chiffre correspondant au Blanc (je crois que c'est 7).

Tu mets le tout sur un bouton a porter de main ... et le tour est presque jouer, parce que je ne sais pas non plus comment mettre la couleur par defaut.

 

J'espere que ca t'aidera.

[Big666]

ca marche

[lecrabe]

Hello

 

Je dessine mes N entites MTEXT sur N calques et apres j'utilise l'excellente routine MTEXTMASK de Lee Ambrosius

pour selectionner mes N entites MTEXT et leur appliquer le meme Masque avec le meme Decalage ...

 

BUG : je n'ai jamis reussi a lui passer des parametres de couleur autre que les 256 couleurs classiques AutoCAD, mais bon c pas tres grave !?

 

lecrabe

 

 

;; Written by: Lee Ambrosius - Created on: 4/7/2004 - http://www.hyperpics.com/
;; This program allows you to add Background Mask to several Mtext objects
;; at one time instead of using the Mtext editor 
;; for each object or the Properties Palette.
;; The Properties Palette in 2005 doesn't allow you 
;; to set Background Color or Border Offset.

(defun c:MTextMASK ( / kWordBackgroundMaskCurrent dOffsetCurrent ssMtext dxf90 dxf63 dxf45 dxf441)
 (prompt "\nApply Mtext Mask")

 (if (= kWordBackgroundMask nil)
   (setq kWordBackgroundMask "Background" kWordBackgroundMaskCurrent "Background")
   (setq kWordBackgroundMaskCurrent kWordBackgroundMask)
 )

 (initget "None Background Color")
 (setq kWordBackgroundMask (getkword (strcat "\nSpecify Background Mask: [None/Background/Color] <" kWordBackgroundMask ">: ")))

 (if (= kWordBackgroundMask nil)
   (setq kWordBackgroundMask kWordBackgroundMaskCurrent)
 )

 (cond ((= kWordBackgroundMask "Color")
           (if (or (= maskClr nil) (/= (type maskClr) 'LIST))
              (setq maskClr (acad_truecolorcli 1))
              (if (= (assoc 420 maskClr) nil)
                (setq maskClr (acad_truecolorcli (cdr (assoc 62 maskClr))))
                (setq maskClr (acad_truecolorcli (assoc 420 maskClr)))
              )
           )
       )
       ((= kWordBackgroundMask "Background")(setq maskClr 256))
       ((= kWordBackgroundMask "None")(setq maskClr 0 dOffset 1.0))
 )

 (if (/= maskClr nil)
   (progn
     (if (/= kWordBackgroundMask "None")
       (progn
         (setq dOffsetCurrent dOffset)

         (if (= dOffsetCurrent nil)
           (setq dOffset 1.0 dOffsetCurrent 1.0)
           (setq dOffsetCurrent dOffset)
         )

         (setq dOffset (getreal (strcat "\nSpecify border offset factor: <" (rtos dOffsetCurrent 2 3) ">: ")))
   
         (if (= dOffset nil)
           (setq dOffset dOffsetCurrent)
         )

         (if (> dOffset 5)(setq dOffset nil))
         (if (< dOffset 1)(setq dOffset nil))

         (while (= dOffset nil)
           (setq dOffset (getreal (strcat "\nSpecify border offset factor: <" (rtos dOffsetCurrent 2 3) ">: ")))

           (if (> dOffset 5)(setq dOffset nil))
           (if (< dOffset 1)(setq dOffset nil))
         )
       )
       (if (= dOffset nil)
         (setq dOffset 1.0)
       )
     )

     (if (setq ssMtext (ssget (list (cons 0 "MTEXT"))))
       (progn
         (cond ((= kWordBackgroundMask "None")
                   (setq mask_list (list (cons 90 2)(cons 63 0)(cons 45 dOffset)(cons 441 0))
                         dxf90 2
                         dxf63 nil
                         dxf45 nil
                         dxf441 nil
                   )
               )
               ((and (= kWordBackgroundMask "Color")(/= (assoc 420 maskClr) nil))
                   (setq mask_list (list (cons 90 1)(cons 63 1)(cons 421 (cdr (assoc 420 maskClr)))(cons 45 dOffset)(cons 441 (cdr (assoc 420 maskClr))))
                         dxf90 1
                         dxf63 2
                         dxf45 dOffset
                         dxf441 (cdr (assoc 420 maskClr))
                   )
               )
               ((and (= kWordBackgroundMask "Color")(= (assoc 420 maskClr) nil))
                   (setq mask_list (list (cons 90 1)(cons 63 (cdr (assoc 62 maskClr)))(cons 45 dOffset)(cons 441 2146608))
                         dxf90 1
                         dxf63 (cdr (assoc 62 maskClr))
                         dxf45 dOffset
                         dxf441 nil
                   )
               )
               ((= kWordBackgroundMask "Background")
                   (setq mask_list (list (cons 90 3)(cons 63 3)(cons 45 dOffset)(cons 441 0))
                         dxf90 3
                         dxf63 256
                         dxf45 dOffset
                         dxf441 0
                   )
               )
         )

         (setq emax (sslength ssMtext)
               sscount 0
         )

         (while (< sscount emax)
           (setq EN (entget (ssname ssMtext sscount))
	  tempEN nil)

           (if (/= dxf90 nil)
             (progn
               (if (/= (assoc 90 EN) nil)
                 (setq EN (subst (cons 90 dxf90) (assoc 90 EN) EN))
                 (setq EN (append EN (list (cons 90 dxf90))))
               )
             )
             (progn
               (setq CNT 0
                     nMembers (member (assoc 90 EN) EN))

               (if (= nMembers nil)
                 (setq nMembers 0)
	  (setq nMembers (length nMembers))
	)
               (repeat (- (length EN) nMembers)
                 (setq tempEN (append tempEN (list (nth cnt EN))))
                 (setq CNT (1+ CNT))
               )

	(if (> nMembers 0)
	  (progn
	    (setq CNT 1)
                   (repeat (- nMembers 1)
                     (setq tempEN (append tempEN (list (nth cnt (member (assoc 90 EN) EN)))))
                     (setq CNT (1+ CNT))
	    )
	  )
               )
               (setq EN tempEN
	      tempEN nil)
             )
           )

    
           (if (/= dxf63 nil)
             (progn
               (if (/= (assoc 63 EN) nil)
                 (setq EN (subst (cons 63 dxf63) (assoc 63 EN) EN))
                 (setq EN (append EN (list (cons 63 dxf63))))
               )
             )
             (progn
               (setq CNT 0
                     nMembers (member (assoc 63 EN) EN))

               (if (= nMembers nil)
                 (setq nMembers 0)
	  (setq nMembers (length nMembers))
	)
               (repeat (- (length EN) nMembers)
                 (setq tempEN (append tempEN (list (nth cnt EN))))
                 (setq CNT (1+ CNT))
               )

	(if (> nMembers 0)
	  (progn
	    (setq CNT 1)
                   (repeat (- nMembers 1)
                     (setq tempEN (append tempEN (list (nth cnt (member (assoc 63 EN) EN)))))
                     (setq CNT (1+ CNT))
	    )
	  )
               )
               (setq EN tempEN
	      tempEN nil)
             )
           )

           (if (/= dxf45 nil)
             (progn
               (if (/= (assoc 45 EN) nil)
                 (setq EN (subst (cons 45 dxf45) (assoc 45 EN) EN))
                 (setq EN (append EN (list (cons 45 dxf45))))
               )
             )
             (progn
               (setq CNT 0
                     nMembers (member (assoc 45 EN) EN))

               (if (= nMembers nil)
                 (setq nMembers 0)
	  (setq nMembers (length nMembers))
	)
               (repeat (- (length EN) nMembers)
                 (setq tempEN (append tempEN (list (nth cnt EN))))
                 (setq CNT (1+ CNT))
               )

	(if (> nMembers 0)
	  (progn
	    (setq CNT 1)
                   (repeat (- nMembers 1)
                     (setq tempEN (append tempEN (list (nth cnt (member (assoc 45 EN) EN)))))
                     (setq CNT (1+ CNT))
	    )
	  )
               )
               (setq EN tempEN
	      tempEN nil)
             )
           )

           (if (/= dxf441 nil)
             (progn
               (if (/= (assoc 441 EN) nil)
                 (setq EN (subst (cons 441 dxf441) (assoc 441 EN) EN))
                 (setq EN (append EN (list (cons 441 dxf441))))
               )
             )
             (progn
               (setq CNT 0
                     nMembers (member (assoc 441 EN) EN))

               (if (= nMembers nil)
                 (setq nMembers 0)
	  (setq nMembers (length nMembers))
	)
               (repeat (- (length EN) nMembers)
                 (setq tempEN (append tempEN (list (nth cnt EN))))
                 (setq CNT (1+ CNT))
               )

	(if (> nMembers 0)
	  (progn
	    (setq CNT 1)
                   (repeat (- nMembers 1)
                     (setq tempEN (append tempEN (list (nth cnt (member (assoc 441 EN) EN)))))
                     (setq CNT (1+ CNT))
	    )
	  )
               )
               (setq EN tempEN)
             )
      
           )

           (entmod EN)
           (setq sscount (1+ sscount))
         )
       )
     )
   )
 )
(princ)
)

(prompt "\nType MTEXTMASK to run the command")
(princ)