Bloc contenant un multitexte dont la couleur est forcée

[salvanorigatore]

Bonjour à tout le monde,

j'ai un fichier qui contient un certain nombre de blocs (quelque centaines) contenant un texte ou multitexte dont la couleur est forcée.

Lorsqu'on édite le bloc, tout est bien en "dubloc" (y compris le mutiltitexte) mais lorsqu'on clique dans le multitexte la couleur est bien forcée (j'ai joint un fichier avec un exemple).

Connaissez vous un moyen ou un outil qui permette de remettre la couleur du multitexte en dubloc (ou ducalque) sans avoir à les éditer ?

Merci bcp.

Exemple.dwg

[Curlygoth]

As tu le module VBA ?

[salvanorigatore]

il y a 7 minutes, Curlygoth a dit :

As tu le module VBA ?

Bonjour Curlygoth,

oui.

[(gile)]

Salut,

Le LISP suivant supprime tous les formatages de texte multiligne dans tous les blocs du dessin.

(defun c:NUNFORMAT (/ removeformatting bloc ent)

  (defun removeformatting (mtext)
    (setpropertyvalue
      mtext
      "Contents"
      (vl-string-translate "\r\n" "\\P" (getpropertyvalue mtext "Text"))
    )
  )
  
  (while (setq bloc (tblnext "block" (not bloc)))
    (setq ent (cdr (assoc -2 bloc)))
    (while ent
      (if (= (cdr (assoc 0 (entget ent))) "MTEXT")
	(removeformatting ent)
      )
      (setq ent (entnext ent))
    )
  )
  (command-s "_regen")
  (princ)
)

 

[Curlygoth]

Gilet a été plus rapide 😉

[salvanorigatore]

il y a 24 minutes, (gile) a dit :

Salut,

Le LISP suivant supprime tous les formatages de texte multiligne dans tous les blocs du dessin.

(defun c:NUNFORMAT (/ removeformatting bloc ent)

  (defun removeformatting (mtext)
    (setpropertyvalue
      mtext
      "Contents"
      (vl-string-translate "\r\n" "\\P" (getpropertyvalue mtext "Text"))
    )
  )
  
  (while (setq bloc (tblnext "block" (not bloc)))
    (setq ent (cdr (assoc -2 bloc)))
    (while ent
      (if (= (cdr (assoc 0 (entget ent))) "MTEXT")
	(removeformatting ent)
      )
      (setq ent (entnext ent))
    )
  )
  (command-s "_regen")
  (princ)
)

 

Bonjour (gile),

ton lisp fonctionne du tonnerre !!!

Merci infiniment.

Merci aussi a toi Curlygoth même si effectivement (gile) à été plus rapide 😉

Bon WE à tous.