TEXTE + COTE en avant

yusukens82 · le 18 décembre 2007

Encore moi, en ce moment je suis très présent sur le forum.

Eh oui je trouve ce forum très intéressant.

Enfin, j'ai cherché dans le forum mais je n'ai pas trouvé de solution.

Voila j'explique mon problème.

Est t'il possible lors d'une impression, de mettre en valeur (en première plan) les TEXTES et les COTATIONS afin de rendre un plan plus lisible.

Jusqu’a la j'utilisé les WIPEOUT pour les quelque texte ou cotation qui ce chevaucher avec des trait, hachure etc.

Mais il y a peut etre plus rapide comme une variable à changer ?

Merci

[Edité le 18/12/2007 par yusukens82]

Vandenheede · le 18 décembre 2007

Bonjour,

Commande: TEXTTOFRONT

Placer au premier plan [Texte/Cotes/Les deux] :

Valide "les deux"

Salutations

yusukens82 · le 18 décembre 2007

Merci Vandenheede pour ta réponse.

ton premier message, bienvenue sur CADXP.

commande TEXTTOFRONT met bien les cotes et les textes en premiere plan mais elles se chevauchent encore avec les autres éléments du dessin.

En fait cela doit faire un contour artificiel sur les textes et cotes et lors de l'impression le contour est remplie par un vide afin montrer plus cliarement les textes et cotes.

un peu comme un WIPEOUT.

Bred · le 18 décembre 2007

Salut,

Pour les texte :

Tu selectionnes tous tes textes, tu ouvres (si ce n'est déjà fait) la fenêtre de propriétés -> dans la partie "Texte" tu as "Masque d'arrière plan".

Pour les cotes : tu selectionnes tes cotes, propriétés, Texte, couleur de remplissage....

Vandenheede · le 18 décembre 2007

Précision:

Paramètre tes styles de cotations et tes textes multilignes avec un remplissage, cela te sera plus facile à gérer que des Wipeout.

http://xs222.xs.to/xs222/07512/cotes.PNG

http://xs222.xs.to/xs222/07512/texte.PNG

Salutations

(Houps désolé Bred, je n'ai pas voulu être redondant avec ta réponse, tu as été plus rapide à répondre)

[Edité le 18/12/2007 par Vandenheede]

yusukens82 · le 18 décembre 2007

Merci

Vandenheede

Et

Bred

Pas mal le system des arrière plan, ça résout exactement mon problème.

Par contre ce sont des TEXTE et non des textmult.

Mais cela n’est pas grave, je vais chercher un moyen pour remplacer tous les textes en textmult.

Quelqu’un a déjà sans doute posé cette question dans le forum.

En tout cas merci pour tout.

yusukens82 · le 18 décembre 2007

ayé trouvé,

y'a une commande dans express tool qui permet de transformer les texte en textmult.

la commande :

TXT2MTXT

Que la vie est belle.

richard-c · le 18 décembre 2007

bonjour,

voilà un petit programme que j'avais bricolé avec BonusCAD (BonusCAD y était pour beaucoup)

il masque les textes et les attributs

cela peut être itérressant pour toi

 (defun transpts (apt matrix / )
(list
	(+
		(* (car (nth 0 matrix)) (car apt))
		(* (car (nth 1 matrix)) (cadr apt))
		(* (car (nth 2 matrix)) (caddr apt))
		(cadddr (nth 0 matrix))
	)
	(+
		(* (cadr (nth 0 matrix)) (car apt))
		(* (cadr (nth 1 matrix)) (cadr apt))
		(* (cadr (nth 2 matrix)) (caddr apt))
		(cadddr (nth 1 matrix))
	)
	(+
		(* (caddr (nth 0 matrix)) (car apt))
		(* (caddr (nth 1 matrix)) (cadr apt))
		(* (caddr (nth 2 matrix)) (caddr apt))
		(cadddr (nth 2 matrix))
	)
)
)
(defun v_matr (dpt alphax alphay alphaz echx echy echz / )
(list
	(list
		(* echx (cos alphaz) (cos alphay))
		(- (sin alphaz))
		(sin alphay)
		(car dpt)
	)
	(list
		(sin alphaz)
		(* echy (cos alphaz) (cos alphax))
		(- (sin alphax))
		(cadr dpt)
	)
	(list
		(- (sin alphay))
		(sin alphax)
		(* echz (cos alphax) (cos alphay))
		(caddr dpt)
	)
	(list 0.0 0.0 0.0 1.0)
)
)
(defun nettoyer ( / ok choix)
    (setvar "cmdecho" 0)
    (foreach n (arx) (if (wcmatch "wipeout.arx" n) (setq ok T)))
    (if (not ok) (arxload "wipeout"))
    (command "_.regen")
    (command "_.wipeout" "_frame" "_off")     
    (setq choix (entlast))         
    (command "_.wipeout" "_new" choix "_yes" )
    (setvar "cmdecho" 1)     
    (princ)
)
(defun c:box_text_att ( / ent_txt dxf_ent ins_point ht_txt lg_box ht_box ang_box pt_just lst_box transform diag_box sv_osm sv_cmd sv_blp cur_col mask_txt)
(while
(setq ent_txt (nentsel "\n Choix d'un TEXTE ou d'un ATTRIBUT : "))
       (command "_.UCS" "_new" "_object" ent_txt);;;non
(setq dxf_ent (entget (car ent_txt)))
(cond
	((and (equal (assoc 210 dxf_ent) '(210 0.0 0.0 1.0)) (eq (cdr (assoc 0 dxf_ent)) "MTEXT"))
		(setq
			ins_point (cdr (assoc 10 dxf_ent))
			ht_txt (/ (cdr (assoc 40 dxf_ent)) 5.0)
			lg_box (cdr (assoc 42 dxf_ent))
			ht_box (cdr (assoc 43 dxf_ent))
			ang_box (cdr (assoc 50 dxf_ent))
			pt_just (cdr (assoc 71 dxf_ent))
		)
		(setq lst_box
			(list 
				(list (- ht_txt) ht_txt 0.0)
				(list (+ lg_box ht_txt) ht_txt 0.0)
				(list (+ lg_box ht_txt) (- 0.0 ht_box ht_txt) 0.0)
				(list (- ht_txt) (- 0.0 ht_box ht_txt) 0.0)
			)
		)
		(cond
			((eq pt_just 1)
				(setq transform (v_matr (list 0.0 0.0 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 2)
				(setq transform (v_matr (list (- (/ lg_box 2.0)) 0.0 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 3)
				(setq transform (v_matr (list (- lg_box) 0.0  0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 4)
				(setq transform (v_matr (list 0.0 (+ (/ ht_box 2.0)) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 5)
				(setq transform (v_matr (list (- (/ lg_box 2.0)) (/ ht_box 2.0) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 6)
				(setq transform (v_matr (list (- lg_box) (/ ht_box 2.0) 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 7)
				(setq transform (v_matr (list 0.0 ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 8)
				(setq transform (v_matr (list (- (/ lg_box 2.0)) ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
			((eq pt_just 9)
				(setq transform (v_matr (list (- lg_box) ht_box 0.0) 0.0 0.0 0.0 1.0 1.0 1.0))
			)
		)
		(setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box))
		(setq transform (v_matr (trans ins_point 0 1) 0.0 0.0 (- ang_box) 1.0 1.0 1.0))
		(setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box))
	)
	((or
		(and (equal (assoc 210 dxf_ent) '(210 0.0 0.0 1.0)) (eq (cdr (assoc 0 dxf_ent)) "TEXT"))
		(and (equal (assoc 210 dxf_ent) '(210 0.0 0.0 1.0)) (eq (cdr (assoc 0 dxf_ent)) "ATTRIB"))
	 )
		(setq
			diag_box (textbox dxf_ent)
			ins_point (cdr (assoc 10 dxf_ent))
			ht_txt (/ (cdr (assoc 40 dxf_ent)) 10.0)
			ang_box (cdr (assoc 50 dxf_ent))
		)
		(setq lst_box
			(list
				(list (- (caar diag_box) ht_txt) (- (cadar diag_box) ht_txt) 0.0)
				(list (+ (caadr diag_box) ht_txt) (+ (cadadr diag_box) ht_txt) 0.0)
				(list (- (caar diag_box) ht_txt) (+ (cadadr diag_box) ht_txt) 0.0)
                                       (list (+ (caadr diag_box) ht_txt) (+ (cadadr diag_box) ht_txt) 0.0)
                                       )
		)
		(setq transform (v_matr ins_point 0.0 0.0 (- ang_box) 1.0 1.0 1.0))
		(setq lst_box (mapcar '(lambda (x) (transpts x transform)) lst_box))
		(setq lst_box (mapcar '(lambda (x) (trans x 0 1)) lst_box))
	)
	(T
		(princ "\nN'est pas un TEXTE ou un ATTRIBUT , ou non parallèle au SCG.")
		(setq lst_box nil)
	)
)
(cond
	(lst_box
		(setq sv_osm (getvar "osmode")
		      sv_cmd (getvar "cmdecho")
		      sv_blp (getvar "blipmode")
		      cur_col (getvar "CECOLOR")
		)
		(setvar "cmdecho" 0)
		(setvar "blipmode" 0)
		(setvar "osmode" 0)
		(setvar "CECOLOR" "DuCalque")
                       (command "_.rectang" (car lst_box))
		(setq lst_box (cdr lst_box))
		(repeat 3
			(command (car lst_box))
			(setq lst_box (reverse (cdr lst_box)))
		)
		(command "")
                       (nettoyer)
		(command "_.draworder" ent_txt "" "AV" )
                       (command "_.UCS" "P")
)
		(setvar "cmdecho" sv_cmd)
		(setvar "blipmode" sv_blp)
		(setvar "osmode" sv_cmd)
	)
)
(princ)
)

A+

richard-c · le 18 décembre 2007

au fait,

tu lances box_text_att pour lancer le programme

A+

(gile) · le 18 décembre 2007

Salut,

Pour mettre un masque (de couleur ou wipeout) derrière un (ou des) texte ou mtexte, tu peux utiliser la commande MT du LISP Cadre&Masque sur cette page.

yusukens82 · le 18 décembre 2007

Merci richard-c pour le LISP

j'ai tout de suite essayé le lips vous vous en douté bien <acronym class=dict title=.

le lisp est bien chargé

et lorsque j'execute "box_text_att"

Choix d'un TEXTE ou d'un ATTRIBUT :

je sélectionn un text et voila ce qui me met :

Commande inconnue "BOX_TEXT_ATT". Appuyez

sur F1 pour obtenir de l'aide.

; erreur: ARXLOAD a échoué

Le texte est alors encadré. et lors d'une impression le texte est toujours visible.

[Edité le 18/12/2007 par yusukens82]

yusukens82 · le 18 décembre 2007

Merci Gile pour CT et MT.

ce lips ne cache l'arrière plan mais elle peut me servir pour autre chose surtout la cadre.

merci

richard-c · le 18 décembre 2007

j'ai placé (et j'ai oublié de le signaler) WIPEOUT.arx (de express) sous un chemin reconnu par AutoCAD

A+

(gile) · le 18 décembre 2007

ce lips ne cache l'arrière plan

:casstet: :casstet: :casstet:

http://img339.imageshack.us/img339/9457/mt1xo8.png

La commande MT avec les paramètres par défaut :

http://img260.imageshack.us/img260/444/mt3pa4.png

En changeant les paramètres (wipeout) :

Commande: MT

Décalage: 0.50 Couleur: 1

Sélectionnez les textes ou .

Choix des objets: Entré pour changer les paramètres

Choix de l'option [Décalage/Couleur/Wipeout]: w

Décalage: 0.50 Couleur: Wipeout

Sélectionnez les textes ou .

Choix des objets: 1 trouvé(s)

http://img260.imageshack.us/img260/2624/mt2rw2.png

richard-c · le 18 décembre 2007

je pense que les lisps de (gile) sont meilleurs que celui envoyé ci-avant,

mais je n'ai que V2002, et les prgrammes de (gile) ne fonctionne pas toujours avec ma version, ce qui est normal.

A quand une nouvelle version d'AutoCAD pour pouvoir tout gouter . . .

A+

yusukens82 · le 18 décembre 2007

Gile

c'est bizarre moi lorsque je tape la commande MT ou CT

il me demande directement

Choix des objets

et après avoir choisi les objet il me met le masque.

pour changer les parametre il faut que je rentre dans le lsp ?

(gile) · le 18 décembre 2007

c'est bizarre moi lorsque je tape la commande MT ou CT
il me demande directement

Choix des objets
et après avoir choisi les objet il me met le masque.

pour changer les parametre il faut que je rentre dans le lsp ?

C'est normal, sur la ligne de commande, au dessus de "Choix des objets: ", tu as :

"Décalage: 0.50 Couleur: 1

Sélectionnez les textes ou ."

il suffit de faire Entrée, Espace ou clic droit pour accéder aux paramètres, puis de choisir le paramètre que tu veux changer :

"Choix de l'option [Décalage/Couleur/Wipeout]: "

yusukens82 · le 18 décembre 2007

a yeah ça marche gile

ok ok c'était donc comme ça qu'on accéder au parametres.

merci a vous tous, j'ai le choix pour cacher mes textes maintenant.

bonne journée

Je viens de relire la notice et effectivement c'était bien expliqué, toute mes excuses, j'avais lu trop vite.

[Edité le 18/12/2007 par yusukens82]

Connexion

TEXTE + COTE en avant

Messages recommandés

yusukens82

Vandenheede

yusukens82

Bred

Vandenheede

yusukens82

yusukens82

richard-c

richard-c

(gile)

yusukens82

yusukens82

richard-c

(gile)

richard-c

yusukens82

(gile)

yusukens82

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Forums

Naviguer

Activité

Information importante