Aller au contenu

[Réglé] Modifier les marges des masques d\'arriere plan


Messages recommandés

Posté(e)

Bonjour,

Sur le dessin suivant,

http://www.socara.net/images/image.jpg

le texte du bas est un texte multiligne avec le paramètre masque d'arrière plan.

Mais y'a t'il moyen de modifier la marge " [surligneur] A[/surligneur]" ?

[Edité le 5/12/2006 par barbichette]

 

[Edité le 5/12/2006 par barbichette]

***********************

Rien ne sert de courrir, il faut partir à point.

Posté(e)

Bonjour,

 

Tu mets ton texte en surbrillance dans la fenêtre de Texmult ==> clic droit ==> Masque d'arrière plan et là tu modifies le facteur de décalage...voili...voilà... ;)

Posté(e)

re....

 

par contre avec ce lisp CAD_TXT.LSP (de DominIque VAQUAND) tu pourras remplir ce cadre qui s'applique juste au pourtour de ton texte (bien sûr il y a aussi un pb, il ne s'applique qu'aux textes Lignes et non Multilignes.... :casstet: )

 

CAD_TXT.permet de dessiner un cadre autour d'une ligne de

texte.

Le cadre est réalisé en polyligne, il suit l'épaisseur par défaut.

Il se place sur le plan courant et prend la couleur et le type de

ligne courant.

 

; CAD_TXT.LSP

 

; ===================

; Cadre autour d'un texte

;

; Dominique VAQUAND

; 30.12.96

; ===================

 

 

(defun c:cad_txt ()

 

(setvar "cmdecho" 0)

 

 

(setq ent_txt (entget (car (entsel))))

 

; trouve la coordonnée de la boite texte

 

(setq dim_txt (textbox ent_txt))

 

; trouve hauteur du texte

 

(setq ht_txt (cdr (assoc 40 ent_txt)))

 

; trouve angle du texte

 

(setq an_txt (cdr (assoc 50 ent_txt)))

 

; défini le scu suivant l'angle du texte

 

(command "scu" "z" (* an_txt (/ 180 pi)))

 

; calcule les points pour construire le cadre

 

(setq pos1 (trans (cdr (assoc 10 ent_txt)) 0 1))

(setq pos2 (list (+ (car pos1) (car (cadr dim_txt))) (+ (cadr pos1) (cadr (cadr dim_txt)))))

 

 

; dimension autour du texte

 

(setq posx1 (polar pos1(* 1.25 pi) (/ ht_txt 2)))

 

(setq posx2 (polar pos2 (* 0.25 pi) (/ ht_txt 2)))

 

(setq posx3 (list (car posx1) (cadr posx2)))

 

(setq posx4 (list (car posx2) (cadr posx1)))

 

 

; trace le cadre

 

(command "polylign" posx1 posx3 posx2 posx4 "c")

 

; revient sur le scu précédent

 

(command "scu" "p")

 

(princ)

 

)

 

(princ "\n==> CAD_TXT")

(princ)

 

 

...d'ailleurs j'en profite pour demander auprès des spécilaistes s'il serait possible de modifier ce lisp de façon à ce qu'il traite également les textes Multilignes( je pense que D. VAQUAND nous accorderai un avis favorable.... :) merci à lui d'avance)...et merci à vous.

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é