Aller au contenu

Textmult changer police en style


Messages recommandés

Posté(e)

J'ai ce qu'il te faut:

 

(defun bl:mtext-killpolice (entity / object string regex newstring)
(or vlax-create-object (vl-load-com))
(setq object (vlax-ename->vla-object entity))
(setq string (vla-get-textstring object))
(setq regex (vlax-create-object "vbscript.regexp"))
(vlax-put-property regex 'pattern "\\{\\\\f[^;]+;([^}]+)}")
(vlax-put-property regex 'global :vlax-true)
(setq newstring (vlax-invoke-method regex 'replace string "$1"))
(vlax-release-object regex)
(vla-put-textstring object newstring))

 

(vla-get-textstring (vlax-ename->vla-object (car (entsel)))) te montrera comment AutoCAD identifie les passages de textes dont la typologie a été forcée.

La police est forcée via la structure {\\f...;texte dont la police est forcée}.

Avec une expression régulière, il est possible de supprimer le {\\f...; et le }

 

 

Attention s'il y a un } dans ton texte, ca va merder.

 

 

PS/ est-ce qu'un modo pourrait déplacer ce sujet vers le forum ad hoc (Pour aller plus loin en Lisp), merci :-)

Carboléüm, qui dessine aussi à la main -> Carboleum's sketchblog

Posté(e)

Merci Carboleum t'es un champion !!

Est-ce possible juste de l'adapter de façon à sélectionner plusieurs mtext plutôt qu'un seul ?

 

Je vais essayer de tester StripMtext 5.0 également

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é