Facteur de largeur de texte

[bibi1979]

Bonjour tous le monde,

Je cherche un petit lisp, pour modifier automatiquement le facteur de largeur d'un texte séléctionné

et éviter de me taper x fois le facteur dans les propriétés de l'objet.

Merci d'avance

[Fraid]

Bonjour,

 

Un lisp me semble aun peu superflu

 

sélectionne tout les textes concernés, puis tu peux changer les propriétés de l'ensemble dans la fenêtre de propriétés (ctrl+1)

[bibi1979]

le souci est que j'ai au moins 1 texte dans 100 fichiers à modifié et j' aurais aimez éviter de taper le facteur 100 fois..

J'ai du mal m'exprimer désolé.

[bryce]

Bonjour,

 

Un petit vite fait :

 

(defun c:FLT(/ echelle acobj doc textes texte)

(setq echelle 2.5); remplacer par le facteur de largeur souhaité

(vl-load-com)

(setq acobj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acobj))

(princ "\Sélectionnez les textes à modifier: ")
(setq textes (ssget '( (0 . "TEXT") ) ))

(if textes
(progn
	(setq textes (vla-get-activeselectionset doc))
	(vlax-for texte textes
		(vla-put-scalefactor texte echelle)
	);for
);progn
);if textes

);defun

 

Modifier le facteur d'échelle dans la première ligne (la valeur après "setq echelle"), puis charger le lisp.

La commande à taper est FLT.

Sélectionner les textes à modifier, appuyer sur Entrée, c'est fait. :)

Ne fonctionne que sur les TEXTES simples, pas sur les textes multilignes...

[bibi1979]

NIkel parfaitement ce que je voulais , un GRAND MERCI !!