modifications de textes

[jfl.architecte]

Bonjour,

 

J'ai recu d'un BET un fichier contenant des textes (beaucoup) utilisant un

style de texte (normal) mais qui ont été édité et où la police et été forcé

et donc ce n'est plus celle du style.

Mon problème est que je voudrai retrouvé pour tous ces textes la police du

style pour pouvoir facilement modifier de manière globale la police de tous

mes textes en un seul fois par le biais du style justement.

Impossible je n'arrive pas trouver la manip, je suis pour l'instant obligé

d'éditer chaque texte un par un et de remettre la police du style, c'est

hyper long !

Quelqu'un aurait-il la solution miracle !

 

Merci

 

JF Lemoing

 

[lili2006]

Bonjour,

Il faut récupérer le fichier de style. Pour cela, demande au BET de te rfaire l'envoi avec le "etransmit" d'AutoCAD en zip. Tu décompresses alors le fichier dans le même dossier et tu pourras lire correctement ton fichier. C'est la seule solution que je connais. Peut-être quelqu'un à une autre idée ?? :P

[BIM G CO]

Deux programmes que je possèdes pour anhiler ce genre de problème:

 

tout d'abord colle a feuille de code dans un bloc note et enregistre le en fichier à l'extension LSP. Ensuite tu glisse ce fichier dans AutoCAD pour le charger.

 

Dans la ligne de commande tu tapes

 

(EnleveCouleurMText)

 

Pour enlever la couleur forcé et le style forcé des textes multilignes (brut de décoffrage) :

 

(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"
 )
 )
 (princ)
)
(princ "\nPour enlever les couleurs et polices forcées faire :\n(ENLEVECOULEURMTEXT)\n")
(princ)

 

 

 

[Edité le 7/5/2007 par Maximilien]

[jfl.architecte]

merci de ta réponse lili2006, mais ce n'est pas ca le problème.

il ne me manque aucune info dans mon fichier.

ce sont des entités textes classique en Mtext, mais que le BET à éditer et changer sa police par le biais de l'éditeur de text standar. Donc la police du texte ne fait plus référence au style mais à celui forcé.

je cherche donc à rendre la propriété police du texte sur "dustyle".

en gros c'est le m^me problème que si l'on avais forcé la couleur d'une entité, même en changeant la couleur du calque l'entité elle ne change pas. pour les couleur, type deligne etc... la commange "changer" permet de le faire de manière globale sur plusieurs entités selectionnées. Je cherche à faire la même chose avec les entités texte et la police utilisée.

 

voilà

Merci

JF Lemoing

[jfl.architecte]

Merci pour ta réponse Maximilien,

 

J'ai bien appliqué le lisp que tum'as donné, mais malheuresement cela n'a pas eu d'influence sur les polices des mes entités texte. Mes textes copncervent toujours la police qui à été forcé en interne lors d'une édition.

 

Merci encore

 

JF Lemoing

[lili2006]

merci de ta réponse lili2006, mais ce n'est pas ca le problème

.

Désolé,je pensais que cela pouvait être une piste,... (mais je suis encore loin d'être un "crack" sur autoCAD comme beaucoup sur ce forum). Bon courage et @+

[jfl.architecte]

Maximilien,

peus tu me donner ton courriel pour je t'envoi un fichier exemple de mon problème et voir si de ton coté tu y arrive.

j'ai peu etre mal utilisé le lisp.

 

tu peus m'envoyer ton courriel à l'adresse jfl.architecte@wanadoo.fr

 

merci d'avance

 

JF

[BIM G CO]

Edit:

 

Modification de la réponse N° 2

 

jfl.architecte, si cette réponse convient Ne pas oublier de la marquer comme résolu. (la petite lampe à coté du bouton voter au premier message)

 

et peut être un don au site géré par M. Patrick EMIN.

 

 

 

[Edité le 7/5/2007 par Maximilien]

[jfl.architecte]

Salut Maximilien,

 

Super ton lisp fonctionne, c'est royal !!

par contre juste petit soucis sans gravité, il change la taille du texte lors de la manip

peut-on éviter ca ?

et autre petit souhait (mais j'en demande peus etre trop) pourrait-on avoir la possibilité de choisir sur quel texte appliquer le lisp car actuellement la manip affecte tous les textes du fichier.

 

si tu y arrive ton lisp serait nickel, mais c'est dejà super et je peus m'en contenter.

 

encore merci

 

a charge de revanche, si tu as besoin.

 

A+

 

JF