SToooooP !!! Aux TEXTES MULTI LIGNES !!!!!!

[rebcao]

Bonsoir à Toutes et Tous,

 

Par pitié n'utiliser plus des TEXTES MULTI LIGNES pour écrire une seule ligne et dans lesquels on a forcé la POLICE, GRASSé le texte, etc.

 

Encore une fois je constate chez un CLIENT, une LENTEUR AFFLIGEANTE pour le chargement du dessin, des zooms, du changement de présentation (30 secondes). à cause des MTEXTES. :mad:

 

[surligneur] Après avoir DECOMPOSE les TEXTES MULTI LIGNES on passe d'un chargement de 30 secondes à 2 SECONDES ! [/surligneur].

 

Je précise que ce dessin est SAIN (PURGER, CONTROLER, SUPP liste échelle, etc)

 

Christian

 

[BIM G CO]

En ce jour de 9/9/9 voici le premier jet de mon code que j'ai appelé Armagedon.

;;; ----------------------------------------------------------------------

(defun EnleveCouleurMTEXT (/ sel liste n boucle strtempo)
 ;; (Re)charge la liste
 (setq sel (ssget "X" '((0 . "MTEXT"))))
 (setq liste nil)
 (if sel
   (foreach n (ssnamex sel)
     (if liste
(setq liste (append liste (list (entget (nth 1 n)))))
(setq liste (list (entget (nth 1 n))))
     )
   )
 )
 ;; Textemultiligne avec modification du style de caractère
 (setq strtempo "{\\")
 (foreach n liste
   (if
     (and (= (substr (cdr (assoc 1 n)) 1 (strlen strtempo)) strtempo)
   (vl-string-position (ascii ";") (cdr (assoc 1 n)))
     )
      (progn
 (setq n
	(subst
	  (cons
	    1
	    (vl-string-right-trim
	      "}"
	      (substr
		(cdr (assoc 1 n))
		(+
		  (vl-string-position (ascii ";") (cdr (assoc 1 n)))
		  2
		)
		(strlen (cdr (assoc 1 n)))
	      )
	    )
	  )
	  (assoc 1 n)
	  n
	)
 )
 (entmod n)
      )
   )
 )
 ;; (Re)charge la liste
 (setq sel (ssget "X" '((0 . "MTEXT"))))
 (setq liste nil)
 (if sel
   (foreach n (ssnamex sel)
     (if liste
(setq liste (append liste (list (entget (nth 1 n)))))
(setq liste (list (entget (nth 1 n))))
     )
   )
 )
 ;; Couleur Simple
 (setq boucle 1)
 (while (< boucle 256)
   (setq strtempo (strcat "\\C" (itoa boucle) ";"))
   (foreach n liste
     (if (= (substr (cdr (assoc 1 n)) 1 (strlen strtempo)) strtempo)
(progn
  (setq	n (subst (cons 1
		       (substr (cdr (assoc 1 n))
			       (1+ (strlen strtempo))
			       (strlen (cdr (assoc 1 n)))
		       )
		 )
		 (assoc 1 n)
		 n
	  )
  )
  (entmod n)
)
     )
   )
   (setq boucle (1+ boucle))
 )
 (princ (strcat "\n"
	 (itoa (length liste))
	 " Textes multilignes passés en DuCalque"
 )
 )
)
;;; ----------------------------------------------------------------------
(defun c:Armagedon (/ sel Aenlever a b c ent1)
 (setq sel (ssget "X" '((0 . "MTEXT"))))
 (if (not VALEUR)
   (progn
     (princ
"\n\nSolution ultime pour les textes récalcitrants\nVeuillez avant tout faire Bellucci - Programmation - Entité\n"
     )
     (princ
"et cliquer sur le texte multiligne récalcitrant\nIdentifiez le code DXF $1\npuis à l'aide de la souris copier la partie avant le \"{\"\n"
     )
     (princ
"puis taper au clavier :\n(setq VALEUR \"coller ici la valeur copiée\")\nex: (setq VALEUR \"\\\\A1;\")\n"
     )
     (princ
"A la suite de cela refaite Armagedon \nEnsuite Bellucci - Architecte et XREF - Enlève la couleur MTEXT\n\n"
     )
     (princ)
     (exit)
   )
 )
 (setq
   Aenlever
    VALEUR
				;"\\A1;"
 )
 (princ Aenlever)
 (princ "\n")
 (setq a 0)
 (while (and sel
      (< a (sslength sel))
 )
   (setq ent1 (entget (ssname sel a)))
   (setq b (substr (cdr (assoc 1 ent1)) 1 (strlen aenlever)))
   (setq c (substr (cdr (assoc 1 ent1)) (1+ (strlen aenlever))))
   (if	(= b Aenlever)
     (progn
(setq ent1 (subst (cons 1 c) (assoc 1 ent1) ent1))
(entmod ent1)
     )
   )
   (setq a (1+ a))
 )
)
;;; -------------------------------------------------------------------------------------------------

 

 

[Edité le 10/9/2009 par Maximilien]

[(gile)]

Salut,

 

Il existe des LISP qui suppriment les formatages dans les mtext.

J'avais fait un truc un peu radical ici pour supprimer tous les formatages.

Depuis, j'en ai fait un plus abouti mais je ne peux pas le publier ici.

Il y a aussi StripMtext qui marche pas mal et permet de choisir les formatages à supprimer.

[Invité Patrick]

Entièrement {\fArial|b1|i0|c0|p34;\H1.6x;\C1;d'accord }avec toi!\PY en a {\H1.6x;\C1;marre

}des textes {\fArial|b1|i0|c0|p34;usine à gaz}!\PVive la

{\fArial|b1|i0|c0|p34;simplicité}!\P{\L\C5;Le mieux est l'ennemi du

bien\l!\P\fArial Black|b0|i0|c0|p34;\C256;Camarades, faisons la \fArial

Black|b1|i0|c0|p34;grêve \fArial Black|b0|i0|c0|p34;du Mtext!}

[rebcao]

Bonsoir,

 

J'avais hésité avant de choisir le FORUM... (complète ou LT)

 

Je vous rappelle que mon souci est de répondre à TOUS c''est à dire entre autre à mes chers LTsiens... ;)

 

Merci pour vos LISP.

 

Bien VU Patrick c'est exactement ce KAKA !

 

 

Christian

[rebcao]

Re,

 

 

http://www.rebcao.fr/cadxp/Texte_SIMPLE_image.png

 

 

;)

 

Christian

[didier]

coucou

 

ah que je suis content de voir des messages comme celui-ci

 

à chaque fois que je tiens ce genre de discours,

j'ai une dizaine de collègues qui me tombent dessus à bras raccourcis

en me qualifiant d'ancien combattant.

 

il faut dire pour expliquer leur discours,

qu'ils sont jeunes et ont débuté avec Windows

et ses polices qui pourrissent Autocad,

 

vous comprendrez que je suis moins jeune et que je n'ai pas débuté avec Windows

mais je pense que c'est de notoriété

 

encore une fois et définitivement :

 

[surligneur]le mieux est l'ennemi du bien.[/surligneur]

 

amicalement

[bseb67]

Salut,

 

alors pour un jeune (enfin plus tellement), et pour un jeune sous autocad (2.5 ans seulement)

et bien je dis sus aux Mtext pourris !!!!

 

Après je me prends des réflexions du genre :

- ton lisp il ne marche pas pour incrémenter des valeurs dans les textes!!

- ben oui, si tu fais des mtexts pourris où chaque chiffre est forcé :mad:

 

et pour les problèmes de lenteurs, pareil. Nos plans peuvent contenir jusqu'à 800

mtext, en moyenne c'est dans les 200.

 

L'autre problème, et c'est tout con : le copier-coller.

Il suffit qu'il y ait un seul de ce mtext à la noix, les dessinateurs ont tendance à faire

des copier-coller et modifier le texte, donc on sème carrément la mer...

[bseb67]

Pour rajouter sur la lenteur,

 

En utilisant 400 fois le mtext donné en exemple par patrick, en faisant des basculements

de vue, avec un benchmark je suis à 85s.

 

Je déforce les mtext pour n'avoir que du texte simple, le benchmark tombe à 4s :D

 

avant de râler par ce que ca rame, faudrai peut-être réfléchir a ce que vous avez fais ...

[PHILPHIL]

hello

 

:D ;)

 

 avant de râler par ce que ca rame, faudrai peut-être réfléchir a ce que vous avez fais ...

 

a qui tu dis ca ?

 

aux jeunots autocadiens ( 1 an a peine ) ou aux vieux (+12ans sur autocad) l o lllllll

 

au fait on a droit d'en mettre des MTEXT quand c'est justifie ? l ollll

 

avec parsimonie

 

phil retourne a ses textes simples

[bseb67]

philphil,

 

Ce petit bout de message est surtout destiné aux dessinateurs de mon BE.

 

Mais cela peut être pris pour tout le monde, en mécanique automobile c'est pareil:

- ouinnn, ma voiture marche pas ou elle se comportement bizarrement

=> si tu fais n'importe quoi avec, sans bien la suivre, c'est normal.

 

sur ce, bon appétit à ceux qui mange, comme moi maintenant.

[Invité Patrick]

Le message original de ce fil de discussion faisait état de problèmes de lenteurs. Ce n'est pas le seul inconvénient des objets Mtext (qui présentent également des avantages). Je citerais le problème de gestion par style, c'est bien beau de permettre de paramétrer des tas de choses par objet Mtext, mais le souci c'est que ce paramétrage n'est pas fait par style. Un peu comme si on vous enlevait les styles de cotes... Imaginez le résultat, chaque objet cote ayant des paramètres différents. Un des grands principes des logiciels gérant du texte (traitements de texte par exemple), est de comporter une gestion des styles. Nous perdons cet avantage avec le Mtext, mais comme je le dis souvent, si la pub à la télé vous ennuie, y a une solution simple, n'allumez pas votre télé. C'est évidemment une réflexion qui n'a que l'apparence de la simplicité, en fait, vous êtes tenté d'appuyer sur le bouton comme vous êtes tenté de cliquer sur l'icône Mtext. On peut difficilement vous le reprocher, on vous met cette icône bien en évidence sous les yeux (Autodesk pousse à l'utilisation de Mtext). Comme le conseille rebcao, n'utilisez Mtext que quand c'est indispensable et en réfléchissant aux conséquences à long terme.

[FRAXA]

Après 2005 les textes ont ils un masque d'arrière plan (hors masque de texte des express)?

Car j'avoue :( , je suis un grand utilisateur des mtxt juste pour cette fonction d'arrière plan.

 

[laud69]

Bonjour,

 

J'ai pas bien compris, c'est le fait d'utiliser des multitextes qui fait ramé ?

Ou alors le fait de forcer les polices, couleur etc. ?

 

Sinon, une petite remarque: que des utilsateurs de windows utilisent Arial et veuillent mettre des effets sur leur textes je ne voie ce qu'il y a de si choquant.

Par contre qu'on nous vende un logiciel 5000 Euros (et certifié MS Windows) qui ne sache les gérer efficacement , ça je trouve que c'est honteux...

( c"était mon coupde gueule à moi ;) )

 

++

PS: si qqu'un a une police Shx qui a de le gueule pour remplacer le Arial je suis preneur...

[rebcao]

Bonsoir,

 

c'est le fait d'utiliser des multitextes qui fait ramé ?

Ou alors le fait de forcer les polices, couleur etc. ?

 

C'est surtout du fait des textes MULTI LIGNES !...

 

Une police ARIAL utilisée dans un style par des textes simples ne pose AUCUN problème !

 

Christian