Ligne de repère multiple

[-=micka=-]

Bonjour,

 

j'aimerais savoir s'il y a un moyen de définir l'état du masque d'arrière plan des lignes de repère multiples soit dans les styles de LRM SVP

ou si quelqu'un a développé un LISP permettant de rajouter ou non ce masque à toutes les LRM d'un dessins.

 

merci pour vos infos

 

cordialement

 

=-MICKA=-

[philsogood]

hello

je ne connais plus l'auteur de ce lisp

à ajouter au démarrage des lisp

Phil

(vl-load-com)

(vlr-command-reactor "Masque texte" '((:vlr-commandEnded . EndMtextMleader)))





(defun EndMtextMleader (calling-reactor endcommandInfo / thecommandend enam elst obj d)

 (setq thecommandend (nth 0 endcommandInfo))

 (setq enam (entlast))

 (setq obj (vlax-ename->vla-object enam))

 (setq d 1.15)  ;; valeur de l'offset

 (cond

   ((= thecommandend "MTEXT")

     (if (eq (vla-get-backgroundfill obj) :vlax-false)

       (progn

         ;; changer backgroundfill à vrai

         (vla-put-backgroundfill obj :vlax-true)

         ;; entmod offset

         (setq elst (entget enam))

         (entmod 

           (subst (cons 45 d)

             (assoc 45 elst)

             elst

           ) ;_ subst

         ) ;_ entmod

       ) ;_ progn

     ) ;_ if

   )

   ((= thecommandend "MLEADER")

     (if (eq (vla-get-TextBackgroundFill obj) :vlax-false)

       (progn

         ;; changer backgroundfill à vrai

         (vla-put-TextBackgroundFill obj :vlax-true)

         ;; entmod offset

         (setq elst (entget enam))

         (entmod

           (subst (cons 141 d)

             (assoc 141 elst)

             elst

           ) ;_ subst

         ) ;_ entmod

       ) ;_ progn

     ) ;_ if

   )

 ) ;_ cond

) 

[-=micka=-]

Merci Phil c'est déja pas mal au moins mes nouveaux plans seront nickel,

 

je vais être un peu plus exigeant dsl ;-)

mais existe t-il un moyen de modifier les LRM déja créées?

 

merci

-=micka=-

[lovecraft]

Bonjour,

 

J'espère que j'ai bien compris.

 

1- Sélectionne un LRM puis clic droit puis sélection similaire

2- CTRL+1 (fenetre des propriétés) puis mettre oui pour le masque d'arrière plan

 

Cdt,

 

Laurent

[zebulon_]

hello

je ne connais plus l'auteur de ce lisp

à ajouter au démarrage des lisp

Phil

 

ça vient de là

 

Toujours pas de possibilité de définir un masque d'arrière plan dans le style de mleader, sauf erreur de ma part. Mais ce sera peut être possible un jour.

 

amicalement

Vincent