Aller au contenu

masque d'arriere plan


Big666

Messages recommandés

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

 

 

Nous vivons tous dans le ventre d'un chien géant

Tout le monde le sait mais personne ne dit rien du tout

 

ultra Vomit

Lien vers le commentaire
Partager sur d’autres sites

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?

 

 

Nous vivons tous dans le ventre d'un chien géant

Tout le monde le sait mais personne ne dit rien du tout

 

ultra Vomit

Lien vers le commentaire
Partager sur d’autres sites

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.

Lien vers le commentaire
Partager sur d’autres sites

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)

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité